CPAN->GREP


101 to 125 of more than 1000 distributions (1.57 seconds)
POE-Component-Server-IRC-1.54/examples/test-ircd.pl
        package_states => [
           'main' => [qw(_start _default)],
        ],
HINRIK/POE-Component-Server-IRC-1.54 24 more files »
String-KeyboardDistance-1.01/test.pl
my @tests = (
  [qw(SHACKLEFORD SHACKELFORD),1],
  [qw(DUNNINGHAM CUNNINGHAM),1],
  [qw(SHACKLEFORD SHACKELFORD),1],
  [qw(DUNNINGHAM CUNNINGHAM),1],
  [qw(NICHELSON NICHULSON),1],
  [qw(DUNNINGHAM CUNNINGHAM),1],
  [qw(NICHELSON NICHULSON),1],
  [qw(JONES JOHNSON),0],
24 more matches »
KRBURTON/String-KeyboardDistance-1.01
Tk-MatchEntry-0.4/MatchEntry.pm
    $self->ConfigSpecs(
        -bottomcmd   => [qw/CALLBACK bottomCmd   BottomCmd/,  undef],
        -browsecmd   => [qw/CALLBACK browseCmd   BrowseCmd/,  undef],
        -bottomcmd   => [qw/CALLBACK bottomCmd   BottomCmd/,  undef],
        -browsecmd   => [qw/CALLBACK browseCmd   BrowseCmd/,  undef],
        -entercmd    => [qw/CALLBACK enterCmd    EnterCmd
        -browsecmd   => [qw/CALLBACK browseCmd   BrowseCmd/,  undef],
        -entercmd    => [qw/CALLBACK enterCmd    EnterCmd/,   undef],
        -listcmd     => [qw/CALLBACK listCmd     ListCmd/
24 more matches »
WHOM/Tk-MatchEntry-0.4
CPANPLUS-0.9166/inc/bundle/File/Fetch.pm
$USER_AGENT     = "File::Fetch/$VERSION";
$BLACKLIST      = [qw|ftp|];
push @$BLACKLIST, qw|lftp| if $^O eq 'dragonfly';
    $File::Fetch::BLACKLIST = [qw|lwp netftp|]
The default blacklist is [qw|ftp|], as C</bin/ftp> is rather unreliable.
BINGOS/CPANPLUS-0.9166 12 more files »
Apache2-Translation-0.34/lib/Apache2/Translation/MMapDB.pod
  <TranslationProvider MMapDB>
      BaseKey  [qw/my trans db/]
  </TranslationProvider>
  $provider=Apache2::Translation::MMapDB->new(BaseKey=>[qw/my trans db/]);
OPI/Apache2-Translation-0.34 4 more files »
POE-Component-SmokeBox-Recent-1.50/examples/http.pl
   package_states => [
	main => [qw(_start http_sockerr http_error http_timeout http_response)],
   ]
BINGOS/POE-Component-SmokeBox-Recent-1.50 23 more files »
XML-SAX-Machines-0.46/t/00eventmethodmaker.t
## Thanks to Kip and Robin.
[ [qw(                     )], 33 ],
[ [qw( 1                   )], 33 ],
[ [qw(                     )], 33 ],
[ [qw( 1                   )], 33 ],
[ [qw( 2                   )], 28 ],
[ [qw( 1                   )], 33 ],
[ [qw( 2                   )], 28 ],
[ [qw( 1 2                 )], 33 ],
23 more matches »
PERIGRIN/XML-SAX-Machines-0.46
Github-Import-0.07/lib/Github/Import.pm
has use_config_file => (
    traits  => [qw(NoGetopt)],
    isa     => "Bool",
has config_file => (
    traits        => [qw(Getopt)],
    isa           => File,
has git_handle => (
    traits => [qw(NoGetopt)],
    isa => "Git",
23 more matches »
JROCKWAY/Github-Import-0.07
Mango-1.29/lib/Mango.pm
has hosts       => sub { [['localhost']] };
has [qw(inactivity_timeout j)] => 0;
has ioloop => sub { Mojo::IOLoop->new };
has max_connections => 5;
has [qw(max_write_batch_size wtimeout)] => 1000;
has protocol => sub { Mango::Protocol->new };
ODC/Mango-1.29 11 more files »
Treex-Core-2.20160630/lib/Treex/Block/Read/BaseReader.pm
    required      => 1,
    handles       => [qw(current_filename file_number _set_file_number)],
    documentation => 'arrayref of filenames to be loaded, '
POPEL/Treex-Core-2.20160630 14 more files »
App-wordlist-0.25/bin/_wordlist
#    args_rels => {
#        choose_one => [qw/filter file_regex_filter/],
#    },
#            if ($ospec && $ospec eq 'format=s') {
#                complete_array_elem(array=>[qw/json text xml yaml/], word=>$word);
#            } else {
#sub _config_config {
#    state $a = [qw/
#        wanted_path
2 more matches »
PERLANCAR/App-wordlist-0.25 2 more files »
MPMinus-1.20/lib/MPMinus/Helper/Handlers.pm
        OPERATIONS  => [
                [qw/list controllerlist clist/],
                [qw/install commit apply/],
                [qw/list controllerlist clist/],
                [qw/install commit apply/],
                [qw/add controlleradd cadd/],
                [qw/install commit apply/],
                [qw/add controlleradd cadd/],
                [qw/del controllerdel cdel remove rm/],
5 more matches »
ABALAMA/MPMinus-1.20 4 more files »
Set-Partitions-Similarity-0.54/lib/Set/Partitions/Similarity.pm
  # partitions are nested arrays.
  dump getAccuracyAndPrecision ([[qw(a b)],[1,2]], [[qw(a b 1)],[2]]);
  # dumps:
  # partitions are nested arrays.
  dump getAccuracyAndPrecision ([[qw(a b)],[1,2]], [[qw(a b 1)],[2]]);
  # dumps:
  use Data::Dump qw(dump);
  dump getAccuracy ([[qw(a b)], [qw(c d)]], [[qw(a b c d)]]);
  dump getAccuracy ([[qw(a b c d)]], [[qw(a b)], [qw(c d)]]);
5 more matches »
KUBINA/Set-Partitions-Similarity-0.54 2 more files »
Egg-Release-Mail-0.06/lib/Egg/View/Mail/Base.pm
  # Changing line enters between each element when passing it with ARRAY.
  $mail->send( body => [qw/ Will the movie go to see ? /] );
  
LUSHE/Egg-Release-Mail-0.06 13 more files »
CGI-FormBuilder-Template-HTC-0.02/examples/form_htc.html
    title    =&gt; &#39;TEST&#39;,
    fields    =&gt; [qw/name color email/],
    submit   =&gt; [qw/Update Delete/],
    fields    =&gt; [qw/name color email/],
    submit   =&gt; [qw/Update Delete/],
    reset    =&gt; 0,
        variable =&gt; &#39;form&#39;,
        tagstyle =&gt; [qw(-classic -comment -asp +tt)],
        data =&gt; {
5 more matches »
TINITA/CGI-FormBuilder-Template-HTC-0.02 2 more files »
autobox-Core-1.33/lib/autobox/Core.pm
        my $array_ref = [qw(fish dog cat elephant bird)];
        use autobox::Core;
        my $array_ref = [qw(fish dog cat elephant bird)];
SWALTERS/autobox-Core-1.33 10 more files »
WWW-eNom-v2.6.0/lib/WWW/eNom.pm
    my $domain_availabilities = $eNom->check_domain_availability(
        slds => [qw( cpan drzigman brainstormincubator )],
        tlds => [qw( com net org )],
        slds => [qw( cpan drzigman brainstormincubator )],
        tlds => [qw( com net org )],
        suggestions => 0,
DRZIGMAN/WWW-eNom-v2.6.0 6 more files »
IO-Prompter-0.004014/lib/IO/Prompter.pm
my %synonyms = (
    bold      => [qw<boldly strong heavy emphasis emphatic highlight highlighted fort forte>],
    dark      => [qw<darkly dim deep>],
    bold      => [qw<boldly strong heavy emphasis emphatic highlight highlighted fort forte>],
    dark      => [qw<darkly dim deep>],
    faint     => [qw<faintly light soft>],
    dark      => [qw<darkly dim deep>],
    faint     => [qw<faintly light soft>],
    underline => [qw<underlined underscore underscored italic italics>],
20 more matches »
DCONWAY/IO-Prompter-0.004014
Hash-Convert-0.04/Build.PL
    script_files => [glob('script/*'), glob('bin/*')],
    c_source     => [qw()],
    PL_files => {},
HIXI/Hash-Convert-0.04 9 more files »
Log-Shiras-v0.48.0/examples/log_shiras_report_meta_message.pl
my	$message_instance = $message_class->new( 
		prepend =>[qw( lets go )],
		postpend =>[qw( store package )],
		prepend =>[qw( lets go )],
		postpend =>[qw( store package )],
	); 
	); 
$message_instance->add_line({ message =>[qw( to the )], package => 'here', });
$message_instance->set_post_sub(
1 more match »
JANDREW/Log-Shiras-v0.48.0 5 more files »
DBIx-Recordset-Playground-1.9/scripts/populate-person.pl
my @data = (
	    [qw(bill   25 ru)],
	    [qw(bob    30 de)],
	    [qw(bill   25 ru)],
	    [qw(bob    30 de)],
	    [qw(bob    30 ca)],
	    [qw(bob    30 de)],
	    [qw(bob    30 ca)],
	    [qw(bob    30 nz)],
8 more matches »
TBONE/DBIx-Recordset-Playground-1.9 1 more file »
HTML-AutoTag-1.06/lib/HTML/AutoTag.pm
  my %attr = ( style => { color => [qw(red green)] } );
  my @data = qw( one two three four five six seven eight );
  my $auto = HTML::AutoTag->new( indent => "    " );
  my %tr_attr = ( class => [qw(odd even)] );
  
                  tag => 'td',
                  attr => { style => { color => [qw(red green)] } },
                  cdata => [qw(one two three four five six)],
5 more matches »
JEFFA/HTML-AutoTag-1.06 5 more files »
PostScript-Graph-1.02/Graph/Bar.pm
	    style  => {
		auto       => [qw(green blue red)],
	    }
	    sequence => new PostScript::Graph::Sequence,
	    auto => [qw(red green blue)],
	    bar => {},
CPWILLMOT/PostScript-Graph-1.02 14 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 »
Verilog-Readmem-0.05/t/readmem.t
$file = 'split.hex';
@aoa_expect = ( [qw(0 1 2 3)] );
$ref_actual = parse_readmem({filename => "$dir/$file"});
$file = 'just_data.hex';
@aoa_expect = ( [qw(
    0
$file = 'addr_before_data.hex';
@aoa_expect = ( [qw(10 4095 64222 65537 6 7)] );
$ref_actual = parse_readmem({filename => "$dir/$file"});
19 more matches »
GSULLIVAN/Verilog-Readmem-0.05
Home · About