CPAN->GREP


26 to 50 of more than 1000 distributions (1.62 seconds)
NetHack-Monster-Spoiler-0.05/bin/extract-monst
    conceal        => 'hides_under_item',
    covetous       => [qw/wants_amulet wants_quest_artifact wants_bell
        wants_book wants_candelabrum/],
SARTAK/NetHack-Monster-Spoiler-0.05 2 more files »
Statistics-RankOrder-0.13/lib/Statistics/RankOrder.pm
  
  $r->add_judge( [qw( A B C )] );
  $r->add_judge( [qw( A C B )] );
  $r->add_judge( [qw( A B C )] );
  $r->add_judge( [qw( A C B )] );
  $r->add_judge( [qw( B A C )] );
  $r->add_judge( [qw( A C B )] );
  $r->add_judge( [qw( B A C )] );
1 more match »
DAGOLDEN/Statistics-RankOrder-0.13 7 more files »
Maypole-2.13/examples/BeerDB.pm
# Handpumps should not show up.
BeerDB->config->display_tables([qw[beer brewery pub style]]);
BeerDB::Brewery->untaint_columns( printable => [qw/name notes url/] );
BeerDB->config->display_tables([qw[beer brewery pub style]]);
BeerDB::Brewery->untaint_columns( printable => [qw/name notes url/] );
BeerDB::Style->untaint_columns( printable => [qw/name notes/] );
BeerDB::Brewery->untaint_columns( printable => [qw/name notes url/] );
BeerDB::Style->untaint_columns( printable => [qw/name notes/] );
BeerDB::Beer->untaint_columns(
7 more matches »
TEEJAY/Maypole-2.13 17 more files »
MooseX-CoverableModifiers-0.30/inc/Data/OptList.pm
  *import = Sub::Install::exporter {
    exports => [qw(mkopt mkopt_hash)],
  };
CLKAO/MooseX-CoverableModifiers-0.30 2 more files »
Test-A8N-0.06/lib/Test/A8N.pm
        verbose            => 0,
        allowed_extensions => [qw( tc st )],
        tags               => {
    my $a8 = Test::A8N->new({
        filenames => [qw( cases/test1.tc )],
        file_root => 'cases',
NACHBAUR/Test-A8N-0.06 3 more files »
Getopt-Mixed-Help-0.26/t/Getopt-Mixed-Help.t
test_simple_import('boolean option is set (short)',
		   \@boolean, [qw(-b)],
		   'opt_boolean', 1);
test_simple_import('boolean option is set (long)',
		   \@boolean, [qw(--boolean)],
		   'opt_boolean', 1);
test_simple_import('mandatory string option (short, separate)',
		   \@mand_str, [qw(-s text1)],
		   'opt_mandatory_string', 'text1');
68 more matches »
DORNER/Getopt-Mixed-Help-0.26
App-RL-0.2.31/t/02-commands.t
my $result = test_app( 'App::RL' => [qw(commands )] );
WANGQ/App-RL-0.2.31 12 more files »
Complete-Util-0.58/t/complete_array_elem.t
    word      => 'a',
    array     => [qw(an apple a day keeps the doctor away)],
    result    => [qw(a an apple away)],
    array     => [qw(an apple a day keeps the doctor away)],
    result    => [qw(a an apple away)],
);
    word      => 'an',
    array     => [qw(an apple a day keeps the doctor away)],
    result    => [qw(an)],
36 more matches »
PERLANCAR/Complete-Util-0.58 2 more files »
Hyper-Developer-0.07/lib/Hyper/Developer/Generator/Control/ContainerFlow.pm
                          @{$item[1]}
                              ? '->get_value_recursive([qw('
                                . ( join q{ }, @{$item[1]} ) . ')])'
                          @{$item[1]}
                              ? '->get_value_recursive([qw('
                                . ( join q{ }, @{$item[1]} ) . ')])'
                 "\$self->set_value_recursive("
                  . '[qw('
                  . ( join q{ }, @{$item{variables}} )
ACID/Hyper-Developer-0.07 1 more file »
Config-Model-Itself-2.008/Build.PL
   add_to_cleanup => [qw/wr_test/] ,
  );
DDUMONT/Config-Model-Itself-2.008 15 more files »
Tk-JComboBox-1.14/examples/popupCreate.pl
my $jcb = $mw->JComboBox(
   -choices => [qw/one two three four/],
   -entrywidth => '16',
RCSEEGE/Tk-JComboBox-1.14 12 more files »
go-perl-0.15/GO/IO/Analysis.pm
    my $self = shift;
    my ($products, $seqs, $seqf) = rearrange([qw(products seqs file)], @_);
    
#    my $self = shift;
#    my ($fn) = rearrange([qw(file)], @_);
    
CMUNGALL/go-perl-0.15 13 more files »
LaTeX-BibTeX-0.34/BibTeX.pm
@ISA = qw(Exporter DynaLoader);
%EXPORT_TAGS = (nodetypes => [qw(BTAST_STRING BTAST_MACRO BTAST_NUMBER)],
                metatypes => [qw(BTE_UNKNOWN BTE_REGULAR BTE_COMMENT 
PORT_TAGS = (nodetypes => [qw(BTAST_STRING BTAST_MACRO BTAST_NUMBER)],
                metatypes => [qw(BTE_UNKNOWN BTE_REGULAR BTE_COMMENT 
                                 BTE_PREAMBLE BTE_MACRODEF)],
                                 BTE_PREAMBLE BTE_MACRODEF)],
                nameparts => [qw(BTN_FIRST BTN_VON BTN_LAST BTN_JR BTN_NONE)],
                joinmethods => [qw(BTJ_MAYTIE BTJ_SPACE 
3 more matches »
SEANO/LaTeX-BibTeX-0.34 7 more files »
mod_perl-2.0.10/Apache-Test/lib/Apache/Test.pm
            elsif ($ref eq 'ARRAY') {
                #plan tests $n, [qw(php4 rewrite)];
                $meets_condition = need_module($condition);
SHAY/mod_perl-2.0.10 14 more files »
Spreadsheet-XLSX-Reader-LibXML-v0.44.6/lib/Spreadsheet/XLSX/Reader/LibXML.pm
					xml =>{
						file => [qw( Workbook )],
						add_roles_in_sequence =>[ 
					xml =>{
						file => [qw( Relationships )],
						add_roles_in_sequence =>[ 
					xml =>{
						file => [qw( DocumentProperties )],
					},
11 more matches »
JANDREW/Spreadsheet-XLSX-Reader-LibXML-v0.44.6 21 more files »
Tripletail-0.50/doc/Tripletail/HtmlFilter.html
     # a, form, b要素のみ検出する。bは閉じタグも見る。それ以外は見ない。
     interest => [qw(^a$ form /?b)], # 正規表現の配列
     
     # Tripletail::HtmlFilter::Elementのオブジェクトを得る事が出来る。
     track => [qw(select option)], # 正規表現の配列
     
HIO/Tripletail-0.50 20 more files »
Fry-Shell-0.15/lib/Fry/Error.pm
			ie: die('really strange',{tags=>[qw/bizarre/]})
BOZO/Fry-Shell-0.15 13 more files »
Orignal-0.04/lib/Orignal.pm
     
  house->attributes({SCALARS 	    =>[qw(address style type)],
                     ORDERED_HASHES =>[qw(owners)],
  house->attributes({SCALARS 	    =>[qw(address style type)],
                     ORDERED_HASHES =>[qw(owners)],
                     HASHES         =>[qw(rooms)],
                     ORDERED_HASHES =>[qw(owners)],
                     HASHES         =>[qw(rooms)],
                     ARRAYS         =>[qw(occupants pets)]});
15 more matches »
BYTEROCK/Orignal-0.04 6 more files »
Acme-Nogizaka46-0.3/lib/Acme/Nogizaka46/AkimotoManatsu.pm
        family_name_en => 'Akimoto',
        nick           => [qw(まなつ まなったん)],
        birthday       => $_[0]->_datetime_from_date('1993-08-20'),
TWOGMON/Acme-Nogizaka46-0.3 47 more files »
Tie-Layers-0.06/lib/Docs/Site_SVD/Tie_Layers.pm
%INVENTORY = (
    'lib/Docs/Site_SVD/Tie_Layers.pm' => [qw(0.06 2004/05/28), 'revised 0.05'],
    'MANIFEST' => [qw(0.06 2004/05/28), 'generated, replaces 0.05'],
    'lib/Docs/Site_SVD/Tie_Layers.pm' => [qw(0.06 2004/05/28), 'revised 0.05'],
    'MANIFEST' => [qw(0.06 2004/05/28), 'generated, replaces 0.05'],
    'Makefile.PL' => [qw(0.06 2004/05/28), 'generat
    'MANIFEST' => [qw(0.06 2004/05/28), 'generated, replaces 0.05'],
    'Makefile.PL' => [qw(0.06 2004/05/28), 'generated, replaces 0.05'],
    'README' => [qw(0.06 2004/05/28), 'generated, r
10 more matches »
SOFTDIA/Tie-Layers-0.06 5 more files »
Graph-Implicit-0.03/t/001-basic.t
my %graph = (
    a => [qw/  b c          /],
    b => [qw/      d   f   h/],
    a => [qw/  b c          /],
    b => [qw/      d   f   h/],
    c => [qw/a       e     h/],
    b => [qw/      d   f   h/],
    c => [qw/a       e     h/],
    d => [qw/a b c d e f g h/],
13 more matches »
DOY/Graph-Implicit-0.03 3 more files »
Net-Gitlab-0.05/lib/Net/Gitlab.pm
      path     => 'session',
      required => [qw( email password )],
      path     => 'users/<user_id>',
      required => [qw( user_id )],
      path     => 'users',
      required => [qw( email password username name )],
      optional => [qw( skype linkedin twitter projects_limit extern_uid provider bio )],
43 more matches »
AYOUNG/Net-Gitlab-0.05
WebService-Recruit-Jalan-0.10/lib/WebService/Recruit/Jalan.pm
my $PARAMS = [qw( key )];
my $TPPCFG = [qw( user_agent lwp_useragent http_lite utf8_flag )];
my $PARAMS = [qw( key )];
my $TPPCFG = [qw( user_agent lwp_useragent http_lite utf8_flag )];
__PACKAGE__->mk_accessors( @$PARAMS, @$TPPCFG );
KAWASAKI/WebService-Recruit-Jalan-0.10 6 more files »
SQL-Translator-0.11021/lib/SQL/Translator/Generator/DDL/MySQL.pm
has quote_chars => ( is => 'ro', default => sub { +[qw(` `)] } );
ILMARI/SQL-Translator-0.11021 17 more files »
AlignDB-Codon-1.1.1/t/02.syn.t
    my @syn_codons = (
        [qw{ TTT TTC }],                    # Phe
        [qw{ TTA TTG CTT CTC CTA CTG }],    # Leu
        [qw{ TTT TTC }],                    # Phe
        [qw{ TTA TTG CTT CTC CTA CTG }],    # Leu
        [qw{ TCT TCC TCA TCG AGT AGC }],    # Ser
        [qw{ TTA TTG CTT CTC CTA CTG }],    # Leu
        [qw{ TCT TCC TCA TCG AGT AGC }],    # Ser
        [qw{ TAT TAC }],                    # Tyr
18 more matches »
WANGQ/AlignDB-Codon-1.1.1 1 more file »
Home · About