CPAN->GREP


26 to 50 of more than 1000 distributions (1.87 seconds)
POE-Component-IKC-0.2402/dev/client
            name=>$NAME,
            subscribe=>[qw(poe://*/timeserver)],
);
            $kernel->post('IKC', 'publish', 'me', [qw(pulse)]);
            $kernel->post('IKC', 'monitor', '*', 
GWYN/POE-Component-IKC-0.2402 27 more files »
Algorithm-Diff-Apply-0.2.3/t/10plainsingle.t
# Replacement
$orig =             [qw{a b c d e f g h i j k l    }];
$diff = diff($orig, [qw{a b c d e f g h         z y}]);
$orig =             [qw{a b c d e f g h i j k l    }];
$diff = diff($orig, [qw{a b c d e f g h         z y}]);
$expc = join(':',    qw{a b c d e f g h         z y} );
# Reversal
$orig =             [qw{a b c d e f g h i j k l}];
$diff = diff($orig, [qw{l k j i h g f e d c b a}]);
7 more matches »
ANDREWC/Algorithm-Diff-Apply-0.2.3 7 more files »
Perinci-Sub-GetArgs-Argv-0.83/t/get_args_from_argv.t
test_getargs(meta=>$meta, argv=>[qw/--arg1 1 --arg2 2/],
           args=>{arg1=>1, arg2=>2},
           name=>"optional missing = ok");
test_getargs(meta=>$meta, argv=>[qw/--arg1 1 --arg2 2 --arg3 3/],
           args=>{arg1=>1, arg2=>2, arg3=>3},
           name=>"optional given = ok");
test_getargs(meta=>$meta, argv=>[qw/1 2/],
             args=>{arg1=>1, arg2=>2},
58 more matches »
PERLANCAR/Perinci-Sub-GetArgs-Argv-0.83
DBIx-RoboQuery-0.032/lib/DBIx/RoboQuery.pm
  $query->transform($sub, %opts);
  $query->transform($sub, fields => [qw(fld1 fld2)], args => []);
RWSTAUNER/DBIx-RoboQuery-0.032 8 more files »
Lab-Measurement-3.554/lib/Lab/Data/Analysis.pm
# or, for compatibility:
#   ($par1,$par2,$par3,$tail) = $self->_check_args(\@_,[qw(par1 par2 par3)]);
AKHUETTEL/Lab-Measurement-3.554 25 more files »
Log-Contextual-0.007001/lib/Log/Contextual.pm
sub arg_logger         { $_[1] }
sub arg_levels         { $_[1] || [qw(debug trace warn info error fatal)] }
sub arg_package_logger { $_[1] }
   my $minilogger = Log::Contextual::SimpleLogger->new({
     levels => [qw( trace debug )]
   });
 use Log::Contextual qw( :dlog ),
   -logger => Log::Contextual::SimpleLogger->new({ levels => [qw( debug )] });
6 more matches »
FREW/Log-Contextual-0.007001 20 more files »
Workflow-Aline-0.03/lib/Workflow/Aline.pm
    {
	isa => [qw( Class::Listener )],

	{
	    int => [qw( stages current_stage )],
	    
	    
	    bool => [qw( is_testrun is_staging )],

12 more matches »
MUENALAN/Workflow-Aline-0.03 6 more files »
PDLA-Stats-0.72/Basic/stats_basic.pp
    pdl> $odd_even = [qw( e o e o e o e o e o e o )]
    pdl> $magnitude = [qw( l l l l l l h h h h h h )]
ETJ/PDLA-Stats-0.72 6 more files »
Net-ISC-DHCPd-0.1709/lib/Net/ISC/DHCPd/Config/Block.pm
has [qw/ type name /] => (
    is => 'ro',
RDRAKE/Net-ISC-DHCPd-0.1709 10 more files »
MooseX-Types-Moose-MutualCoercion-0.04/examples/blood_donation.pl
    use namespace::clean -except => [qw(meta)];
    has visited_countries => (
        traits          => [qw(
            Array
    # minimum(diastolic_blood_pressure), maximum(systolic_blood_pressure)
    has [qw(min_blood_pressure max_blood_pressure)] => (
        is              => 'rw',
3 more matches »
MORIYA/MooseX-Types-Moose-MutualCoercion-0.04 5 more files »
AI-MXNet-1.0102/examples/char_lstm.pl
has 'dtype'         => (is => 'ro',  isa => 'Dtype', default => 'float32');
has [qw/nd counter seq_counter vocab_size
    data_size provide_data provide_label idx/] => (is => 'rw', init_arg => undef);
SKOLYCHEV/AI-MXNet-1.0102 17 more files »
Data-Context-0.2/lib/Data/Context.pm
   my $dc = Data::Context->new(
        path => [qw{ /path/to/configs /alt/path }],
   );
IVANWILLS/Data-Context-0.2 8 more files »
WebService-Recruit-HotPepper-0.03/lib/WebService/Recruit/HotPepper.pm
my $PARAMS = [qw( key Count Start )];
my $TPPCFG = [qw( user_agent lwp_useragent http_lite utf8_flag )];
my $PARAMS = [qw( key Count Start )];
my $TPPCFG = [qw( user_agent lwp_useragent http_lite utf8_flag )];
__PACKAGE__->mk_accessors( @$PARAMS, @$TPPCFG );
BASHI/WebService-Recruit-HotPepper-0.03 12 more files »
WebService-DMM-0.11/Build.PL
    script_files => [glob('script/*'), glob('bin/*')],
    c_source     => [qw()],
    PL_files => {},
SYOHEX/WebService-DMM-0.11 9 more files »
HTTP-MobileAttribute-0.23/inc/Spiffy.pm
our @EXPORT_OK = (@EXPORT_BASE, qw(id WWW XXX YYY ZZZ));
our %EXPORT_TAGS = (XXX => [qw(WWW XXX YYY ZZZ)]);
TOKUHIROM/HTTP-MobileAttribute-0.23 29 more files »
ArangoDB-0.08/Build.PL
    no_index   => { 'directory'   => [ 't', 'xt', 'inc', 'eg' ] },
    test_files => ( -d '.git' || $ENV{RELEASE_TESTING} ) ? [qw(t/ xt/)] : ['t/'],
    create_readme  => 1,
    meta_merge     => {
        keywords  => [qw/arngodb database/],
        resources => {
HIDEAKIO/ArangoDB-0.08 17 more files »
Class-DBI-Sweet-0.11/lib/Class/DBI/Sweet.pm
    my $statement_order = $attributes->{statement_order}
      || [qw/ prefetch_cols from sql /];
            sql_method          => 'count_by_cd',
            statement_order     => [qw/ from where limit order_by / ],
            disable_sql_paging  => 1,
            sql_method          => 'count_by_cd',
            statement_order     => [qw/ from where limit order_by / ],
            disable_sql_paging  => 1,
PHRED/Class-DBI-Sweet-0.11 14 more files »
DDG-1017/lib/DDG/Block.pm
  my $block = DDG::Block::MyType->new( plugins => [qw(
    DDG::Goodie::A
DDG/DDG-1017 10 more files »
Config-MVP-Slicer-0.302/t/match_name.t
    'opt'  => 'val',
    'and'  => [qw(camel squirrel)],
    # keys are sorted alphabetically, so Hunting comes before Hunting2
    # keys are sorted alphabetically, so Hunting comes before Hunting2
    season => [qw(duck wabbit fudd wabbit bunny bird duck zombie)],
  },
  $slicer->slice(['Moose' => 'X::Moose' => {}]),
  { and => [qw(squirrel)] },
  'matches without @Bundle/ prefix';
3 more matches »
RWSTAUNER/Config-MVP-Slicer-0.302 5 more files »
Data-Transform-0.06/lib/Data/Transform/Grep.pm
   
   my $out = $filter->get([qw(foo bar baz)]);
   # is($out, [qw(bar baz)], "only stuff with 'ba' in it");
   my $out = $filter->get([qw(foo bar baz)]);
   # is($out, [qw(bar baz)], "only stuff with 'ba' in it");
MARTIJN/Data-Transform-0.06 5 more files »
AI-Genetic-Pro-0.401/lib/AI/Genetic/Pro.pm
    $ga->init([
               [qw/red blue green/],
               [qw/big medium small/],
               [qw/red blue green/],
               [qw/big medium small/],
               [qw/very_fat fat fit thin very_thin/],
               [qw/big medium small/],
               [qw/very_fat fat fit thin very_thin/],
              ]);
STRZELEC/AI-Genetic-Pro-0.401 8 more files »
CGI-Bus-0.62/examples/cgi-bin/gwo.cgi
        ,-crt=>'ok', -qry=>''
        ,-inp=>{-values=>[qw(ok no --- do goal progress --- edit deleted template), '']}
        ,-clst=>sub{$_ =~/^(do|edit|de
ns', -cmt=>'All records available, including old versions and deleted'
                  ,-fields=>[qw(utime idnv status subject_v alist_v)]
                  ,-orderby=>'utime desc, ctime desc'}
 ,'AllActual'=>   {-lbl=>,'All Actual', -cmt=>'All actual records available'
                  ,-fields=>[qw(ftime status subject_v alist_v)]
                  ,-orderby=>'ftime desc, ctime desc'
24 more matches »
MAKAROW/CGI-Bus-0.62 1 more file »
Acme-MorningMusume-0.20/lib/Acme/MorningMusume/AbeNatsumi.pm
        family_name_en => 'Abe',
        nick           => [qw(なっち)],
        birthday       => $_[0]->_datetime_from_date('1981-08-10'),
CATATSUY/Acme-MorningMusume-0.20 37 more files »
HTML-TableContent-0.18/lib/HTML/TableContent/Element.pm
has [qw/template_attr row_index index data tag/] => (
    is      => 'rw',
has [qw/inner_html wrap_html attribute_list truncate/] => ( is => 'rw' );
has [qw/children nested links before_element after_element/] => (
    is      => 'rw',
LNATION/HTML-TableContent-0.18 18 more files »
Test-STDmaker-0.23/lib/Docs/Site_SVD/Test_STDmaker.pm
%INVENTORY = (
    'lib/Docs/Site_SVD/Test_STDmaker.pm' => [qw(0.23 2004/05/24), 'revised 0.22'],
    'MANIFEST' => [qw(0.23 2004/05/24), 'generated, replaces 0.22'],
  'lib/Docs/Site_SVD/Test_STDmaker.pm' => [qw(0.23 2004/05/24), 'revised 0.22'],
    'MANIFEST' => [qw(0.23 2004/05/24), 'generated, replaces 0.22'],
    'Makefile.PL' => [qw(0.23 2004/05/24), 'generat
    'MANIFEST' => [qw(0.23 2004/05/24), 'generated, replaces 0.22'],
    'Makefile.PL' => [qw(0.23 2004/05/24), 'generated, replaces 0.22'],
    'README' => [qw(0.23 2004/05/24), 'generated, r
34 more matches »
SOFTDIA/Test-STDmaker-0.23
Home · About