CPAN->GREP


126 to 150 of more than 1000 distributions (1.52 seconds)
Data-Context-0.2/t/data-context-json.t
    );
    my $data = $dc->get( 'data', { test => { value => [qw/a b/] } } );
    ok $data, "get some data from ( 'data', { test => { value => [qw/a b/] } } )";
    is $data->{hash}{straight_var}, 'b', "Variable set to 'b'";
    $data = $dc->get( 'data', { test => { value => [qw/a new_val/] } } );
8 more matches »
IVANWILLS/Data-Context-0.2 1 more file »
Async-Queue-0.021/t/10-sync.t
    }
    is_deeply(\@results, [qw(b c d)], "results OK");
    }), $q, 'push() method returns the object.');
    is_deeply(\@results, [qw(E e E)], "results OK. push() callback is called with arguments");
}
    });
    is_deeply(\@results, [qw(saturated empty task TASK finish drain)], "results OK. all events are fired.");
}
TOSHIOITO/Async-Queue-0.021 3 more files »
Class-InsideOut-1.14/t/00-report-prereqs.t
        my $title = ucfirst($phase).' '.ucfirst($type);
        my @reports = [qw/Module Want Have/];
DAGOLDEN/Class-InsideOut-1.14 5 more files »
HDB-1.05/lib/HDB.pm
  my %args_types = (
  file     =>  [qw(file dbfile databasefile db database)] ,
  db       =>  [qw(db database)] ,
  file     =>  [qw(file dbfile databasefile db database)] ,
  db       =>  [qw(db database)] ,
  host     => [[qw(host hostname)],localhost] ,
  db       =>  [qw(db database)] ,
  host     => [[qw(host hostname)],localhost] ,
  user     =>  [qw(user username)] ,
8 more matches »
GMPASSOS/HDB-1.05 4 more files »
Etk-Perl-0.09/lib/Etk/Constants.pm
our %EXPORT_TAGS = (
   box		=> [qw/BoxStart BoxEnd BoxNone BoxExpand BoxFill BoxExpandFill/],
   combobox	=> [qw/ColumnTypeLabel ColumnTypeImage ColumnTypeOther EntryImage EntryLabel EntryOther
   box		=> [qw/BoxStart BoxEnd BoxNone BoxExpand BoxFill BoxExpandFill/],
   combobox	=> [qw/ColumnTypeLabel ColumnTypeImage ColumnTypeOther EntryImage EntryLabel EntryOther
    EntryNone Entr
    EntryNone EntryExpand EntryFill EntryExpandFill/],
   fillpolicy	=> [qw/FillNone HFill VFill HExpand VExpand/],
   messagedialog=> [qw/None Warning Question Error
18 more matches »
LEVIATHAN/Etk-Perl-0.09 1 more file »
Class-Meta-0.66/lib/Class/Meta/Class.pm
for ([qw(attributes attr)], [qw(methods meth)], [qw(constructors ctor)]) {
    my ($meth, $key) = @$_;
for ([qw(attributes attr)], [qw(methods meth)], [qw(constructors ctor)]) {
    my ($meth, $key) = @$_;
for ([qw(attributes attr)], [qw(methods meth)], [qw(constructors ctor)]) {
    my ($meth, $key) = @$_;
DWHEELER/Class-Meta-0.66 5 more files »
POE-Component-Github-0.08/examples/commit.pl
  package_states => [
	'main' => [qw(_start _github)],
  ],
BINGOS/POE-Component-Github-0.08 19 more files »
Web-Scaffold-0.15/example_website/pages/manpage.c1
  # optional
            submenu     =&gt; [qw(Page3 Page4)], # drop down menu</PRE>
<PRE>
  # a named page
                links   =&gt; [qw(Page5 Page6)],</PRE>
<PRE>
MIKER/Web-Scaffold-0.15 6 more files »
ETL-Pipeline-2.02/lib/ETL/Pipeline.pm
	reader   => '_get_mapping',
	traits   => [qw/Hash/],
	writer   => '_set_mapping',
	reader   => '_get_constants',
	traits   => [qw/Hash/],
	writer   => '_set_constants',
	reader   => '_get_session',
	traits   => [qw/Hash/],
	writer   => '_set_session',
RBWOHLFAR/ETL-Pipeline-2.02 11 more files »
Math-PartialOrder-0.01/lib/Math/PartialOrder/Base.pm
  (
   trivialities => [qw(&_subsumes_trivial &_psubsumes_trivial),
		    qw(&_lub_trivial &_glb_trivial)],
		    qw(&_lub_trivial &_glb_trivial)],
   userhooks => [qw(&_subsumes_user &_psubsumes_user),
		 qw(&_binop_user &_lub_user &_glb_user)],
		 qw(&_binop_user &_lub_user &_glb_user)],
   typevars => [qw($TYPE_TOP)]
  );
MOOCOW/Math-PartialOrder-0.01 5 more files »
Astro-Constants-0.1100/lib/Astro/Constants/CGS.pm
our %EXPORT_TAGS = (
	alternates => [qw/ LIGHT_SPEED HBAR CHARGE_ELEMENTARY A_RAD VACUUM_IMPEDANCE PERMITIVITY_0 PERMEABILITY_0 CONSTANT_MA
ELECTRON_MASS PROTON_MASS NEUTRON_MASS HYDROGEN_MASS ELECTRON_RADIUS BOHR_RADIUS /],
	conversion => [qw/ ELECTRON_VOLT STERADIAN ATOMIC_MASS_UNIT PARSEC ASTRONOMICAL_UNIT LIGHT_YEAR ANGSTROM JANSKY AVOGA
OGADRO YEAR YEAR_JULIAN YEAR_TROPICAL YEAR_SIDEREAL YEAR_ANOMALISTIC YEAR_ECLIPSE /],
	cosmology => [qw/ SPEED_LIGHT LIGHT_SPEED GRAVITATIONAL PLANCK H_BAR HBAR STEFAN_BOLTZMANN DENSITY_RADIATION A_RAD W
7 more matches »
DUFFEE/Astro-Constants-0.1100 2 more files »
Lisp-Fmt-0.01/t/test.t
    # iteration
    [ ["~{ ~a ~}", [qw(a b c)]], " a  b  c "],
    [ ["~{ ~a ~}", []], ""],
    [ ["~{ ~a ~}", []], ""],
    [ ["~{ ~a ~5,,,'*a~}", [qw(a b c d)]], " a b**** c d****"],
    [ ["~{ ~a,~a ~}", [qw(a 1 b 2 c 3)]], " a,1  b,2  c,3 "],
    [ ["~{ ~a ~5,,,'*a~}", [qw(a b c d)]], " a b**** c d****"],
    [ ["~{ ~a,~a ~}", [qw(a 1 b 2 c 3)]], " a,1  b,2  c,3 "],
    [ ["~2{ ~a,~a ~}", [qw(a 1 b 2 c 3)]], " a,1  b,2 "],
18 more matches »
JAW/Lisp-Fmt-0.01
Net-Packet-3.28/lib/Net/Packet/Consts.pm
our %EXPORT_TAGS = (
   desc => [qw(
      NP_DESC_IPPROTO_IP
   )],
   dump => [qw(
      NP_DUMP_LINK_NULL
   )],
   layer => [qw(   
      NP_LAYER
18 more matches »
GOMOR/Net-Packet-3.28
Method-Cumulative-0.05/t/01_basic.t
	B->foo('!');
	is_deeply \@tags, [qw(!B !A)], 'B->foo (derived first)';
	@tags = ();
	B->new->foo('?');
	is_deeply \@tags, [qw(?B ?A)];
	B->bar('!');
	is_deeply \@tags, [qw(!A !B)], 'B->bar (base first)';
	@tags = ();
5 more matches »
GFUJI/Method-Cumulative-0.05 4 more files »
Import-Box-0.001/lib/Import/Box.pm
    use T2 'Basic', 'Compare' => [qw/is/];
EXODIST/Import-Box-0.001 7 more files »
Spreadsheet-HTML-1.20/lib/Spreadsheet/HTML.pm
    my @data = ( [qw(foo b&r b&z)], [1,2,3], [4,5,6], [7,8,9] );
    my $gen  = Spreadsheet::HTML->new( data => \@data, encode => 1 );
    print portrait( \@data, td => sub { sprintf "%02d", shift } );
    print landscape( \@data, tr => { class => [qw(odd even)] } );
  tr => { style => { background => [qw( color1 color2 )]' } }
JEFFA/Spreadsheet-HTML-1.20 5 more files »
Text-Categorize-Textrank-0.51/lib/Text/Categorize/Textrank.pm
  use Data::Dump qw(dump);
  my $listOfTokens = [ [qw(This is the first sentence)], [qw(Here is the second sentence)] ];
  my $hashOfTextrankValues = get
  use Data::Dump qw(dump);
  my $listOfTokens = [ [qw(This is the first sentence)], [qw(Here is the second sentence)] ];
  my $hashOfTextrankValues = getTextrankOfListOfTokens(listOfToken
correspond to the list of tokens in a sentence. For example,
C<[[qw(This is the first sentence)], [qw(Here is the second sentence)]]>.
3 more matches »
KUBINA/Text-Categorize-Textrank-0.51 3 more files »
WWW-FBX-0.19/lib/WWW/FBX/Error.pm
x_error' );
has http_response   => ( isa => 'HTTP::Response', is => 'rw', required => 1, handles => [qw/code message/] );
has stack_trace     => ( is => 'ro', init_arg => undef, builder => '_build_stack_
ARCHITEK/WWW-FBX-0.19 1 more file »
Class-Component-0.17/lib/Class/Component.pm
  use MyClass;
  my $obj = MyClass->new({ load_plugins => [qw/ Hello /] });
  $obj->hello; # autocall
  MyClass->;
  my $obj = MyClass->new({ load_plugins => [qw/ Test /] });
  $obj->test; # plugin load ok
YAPPO/Class-Component-0.17 12 more files »
Math-BLAS-1.01/lib/Math/BLAS.pm
  $EXPORT_TAGS{sub}
    = [qw(blas_dot
	  blas_norm
RALPH/Math-BLAS-1.01 2 more files »
App-installdeps-v0.0.3/t/01-basic.t
	['-nX',  ['target/1.pl'], ['$_'], 'simple -nX'],
	['-nu',  ['target/1.pl'], [qw(Test::More App::installdeps)], 'simple -nu'],
	['-nru', ['target/1.pl'], [qw(Test::More App::instal
	['-nu',  ['target/1.pl'], [qw(Test::More App::installdeps)], 'simple -nu'],
	['-nru', ['target/1.pl'], [qw(Test::More App::installdeps)], 'simple -nru'],
	['-n',   ['target/2.pl'], [], 'eval -n'],
	['-n',   ['target/2.pl'], [], 'eval -n'],
	['-nu',  ['target/2.pl'], [qw(Test::More Test::Exception)], 'eval -nu'],
	['-nru', ['target/2.pl'], [qw(Test::More)], 'eval -nru'],
10 more matches »
YAKEX/App-installdeps-v0.0.3 1 more file »
CSS-SAC-0.08/lib/CSS/SAC/Condition.pm
use Class::ArrayObjects define => {
                                   fields => [qw(_type_)],
                                  };
BJOERN/CSS-SAC-0.08 18 more files »
Qudo-0.0214/lib/Qudo.pm
        }],
        manager_abilities => [qw/Worker::Test/],
    );
KARUPA/Qudo-0.0214 8 more files »
circle-be-0.170740/lib/Circle/Loggable.pm
# Data about the log file itself
readonly_struct LogId => [qw(
   path time_start time_until itempath line_timestamp_fmt
# Data about logging from a particular item
readonly_struct LogCtx => [qw(
   path_residue
PEVANS/circle-be-0.170740 6 more files »
Class-Accessor-Inherited-XS-0.31/t/01_basic_obj.t
use Class::Accessor::Inherited::XS inherited => [qw/a b c/];
RANDIR/Class-Accessor-Inherited-XS-0.31 14 more files »
Home · About