CPAN->GREP


76 to 100 of more than 1000 distributions (1.53 seconds)
Reaction-0.002005/lib/ComponentUI/Controller/TestModel/Bar.pm
      ViewPort => {
        enable_order_by => [qw/name foo published_at/],
        coerce_order_by => { foo => ['foo.last_name', 'foo.first_name'] },
ARCANEZ/Reaction-0.002005 19 more files »
Class-Struct-FIELDS-1.1/FIELDS.pm
our %EXPORT_TAGS = (all => [qw(struct)]);
our @EXPORT_OK = (@{$EXPORT_TAGS{all}});
            # with inheritance:
    struct (CLASS_NAME => [qw(BASE_CLASSES ...)],
	    { ELEMENT_NAME => ELEMENT_TYPE, ... });
            # with inheritance:
    struct ([qw(BASE_CLASSES ...)], ELEMENT_NAME => ELEMENT_TYPE, ...);
7 more matches »
BINKLEY/Class-Struct-FIELDS-1.1 4 more files »
HTML-YaTmpl-1.8/lib/HTML/YaTmpl.pod
 $t->evaluate( fruits=>[qw{apples pears plums cherries}] );
 $t->evaluate( fruit_colors=>[[qw{apples red/green}],
			      [qw{pears green}],
 $t->evaluate( fruit_colors=>[[qw{apples red/green}],
			      [qw{pears green}],
			      [qw{plums blue/yellow}],
7 more matches »
OPI/HTML-YaTmpl-1.8 3 more files »
classes-0.944/lib/classes.pm
        X::Usage->throw(
            "extends=>'parent' OR inherits=>[qw( Parent1 Parent2 )]"
            )
    inherits => 'SuperClass',
    inherits => [qw( Class1 Class2 )],
EOM
    class_attrs_ro => [qw( attr1 attr2 )],
    class_attrs_ro => {
15 more matches »
RMUHLE/classes-0.944 5 more files »
Template-Perlish-1.52/script/tptree
   name='[qw(ciao a tutti)]'
POLETTIX/Template-Perlish-1.52 5 more files »
Archive-TarGzip-0.03/lib/Docs/Site_SVD/Archive_TarGzip.pm
%INVENTORY = (
    'lib/Docs/Site_SVD/Archive_TarGzip.pm' => [qw(0.03 2004/05/14), 'revised 0.02'],
    'MANIFEST' => [qw(0.03 2004/05/14), 'generated, replaces 0.02'],
'lib/Docs/Site_SVD/Archive_TarGzip.pm' => [qw(0.03 2004/05/14), 'revised 0.02'],
    'MANIFEST' => [qw(0.03 2004/05/14), 'generated, replaces 0.02'],
    'Makefile.PL' => [qw(0.03 2004/05/14), 'generat
    'MANIFEST' => [qw(0.03 2004/05/14), 'generated, replaces 0.02'],
    'Makefile.PL' => [qw(0.03 2004/05/14), 'generated, replaces 0.02'],
    'README' => [qw(0.03 2004/05/14), 'generated, r
19 more matches »
SOFTDIA/Archive-TarGzip-0.03 1 more file »
File-RsyBak-0.31/bin/rsybak
#our %EXPORT_TAGS = (
#    moose => [qw(before after around)],
#    all   => \@EXPORT_OK,
#            if ($ospec && $ospec eq 'format=s') {
#                complete_array_elem(array=>[qw/json text xml yaml/], word=>$word);
#            } else {
#    if ($self->{opts}{interactive}) {
#        my $t = {cols=>[qw/key value/], rows=>[],
#                 at_opts=>{}};
25 more matches »
PERLANCAR/File-RsyBak-0.31 2 more files »
Locale-CLDR-Locales-Cs-v0.29.0/t/15-Calendars.t
my $months = $locale->month_format_wide();
is_deeply ($months, [qw( ledna února března dubna května června července srpna září října listopadu prosince )], 
$months = $locale->month_format_abbreviated();
is_deeply ($months, [qw( led úno bře dub kvě čvn čvc srp zář říj lis pro )], 'Month format abbreviated');
$months
$months = $locale->month_format_narrow();
is_deeply ($months, [qw( 1 2 3 4 5 6 7 8 9 10 11 12 )], 'Month format narrow');
$months = $locale->month_stand_alone_wide();
15 more matches »
JGNI/Locale-CLDR-Locales-Cs-v0.29.0 1 more file »
Telephone-Mnemonic-US-0.07/lib/Telephone/Mnemonic/US/Math.pm
        given (lc $_) {
            when ('2')   { push @letters,  [qw/a b c/]   }
            when ('3')   { push @letters,  [qw/d e f/]   }
            when ('2')   { push @letters,  [qw/a b c/]   }
            when ('3')   { push @letters,  [qw/d e f/]   }
            when ('4')   { push @letters,  [qw/g h i/]   }
            when ('3')   { push @letters,  [qw/d e f/]   }
            when ('4')   { push @letters,  [qw/g h i/]   }
            when ('5')   { push @letters,  [qw/j k l/]   }
5 more matches »
IOANNIS/Telephone-Mnemonic-US-0.07 5 more files »
Egg-Release-Authorize-0.06/eg/Example.pm
    path   => MyApp->path_to(qw/ etc members /),
    fields => [qw/ uid psw active a_group age /],
    id_field       => 'uid',
LUSHE/Egg-Release-Authorize-0.06 12 more files »
Config-Merge-1.04/lib/Config/Merge.pm
    {
      cron => [qw( job1 job2 job3 job4)]
    }
DRTECH/Config-Merge-1.04 16 more files »
Win32-Netsh-0.04/dev/netsh_dev_tests.pl
    print(qq{Wireless interfaces...\n});
    print(Data::Dumper->Dump([$wlan_interfaces,], [qw(wlan_interfaces),]),
      qq{\n});
      print(qq{Interface "$interface"\n});
      print(Data::Dumper->Dump([$interface_info,], [qw(interface_info),]),
        qq{\n});
    print(qq{Wireless profiles...\n});
    print(Data::Dumper->Dump([$wlan_profiles,], [qw(wlan_profiles),]), qq{\n});
  }
4 more matches »
PDURDEN/Win32-Netsh-0.04 4 more files »
Installer-0.904/bin/installto
    },
    enable => [qw( satan )],
    disable => [qw( god )],
    enable => [qw( satan )],
    disable => [qw( god )],
    without => [qw( religion )],
    disable => [qw( god )],
    without => [qw( religion )],
    testable => 1;
GETTY/Installer-0.904 2 more files »
Fsdb-2.63/lib/Fsdb/Filter/combined_log_format_to_db.pm
    $self->finish_io_option('output', -fscode => 'S',
	    -cols => [qw(client identity userid time method resource protocol status size refer useragent)]);
}
JOHNH/Fsdb-2.63 24 more files »
Lingua-LO-NLP-v0.2.0/lib/Lingua/LO/NLP/Romanize/IPA.pm
   'ກ'  => 'k',
   'ຂ'  => [qw/ kʰ k /],
   'ຄ'  => [qw/ kʰ k /],
   'ຂ'  => [qw/ kʰ k /],
   'ຄ'  => [qw/ kʰ k /],
   'ງ'  => 'ŋ',
   'ງ'  => 'ŋ',
   'ຈ'  => [qw/ tɕ t /],
   'ສ'  => [qw/ s t /],
12 more matches »
MBETHKE/Lingua-LO-NLP-v0.2.0 2 more files »
Gtk3-0.032/lib/Gtk3.pm
               $rowstride*$height;
  my $type = Gtk3::Gdk::PixdataType->new ([qw/sample_width_8 encoding_raw/]);
  $type |= $has_alpha ? 'color_type_rgba' : 'color_type_rgb';
XAOC/Gtk3-0.032 6 more files »
App-SimpleScan-3.01/lib/App/SimpleScan.pm
use Module::Pluggable search_path => [qw(App::SimpleScan::Plugin)];
MCMAHON/App-SimpleScan-3.01 5 more files »
CPANPLUS-0.9168/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.9168 12 more files »
POE-Component-Bundle-WebDevelopment-2.001001/examples/App-PNGCrush.pl
POE::Session->create(
    package_states => [ main => [qw(_start crushed)] ],
);
ZOFFIX/POE-Component-Bundle-WebDevelopment-2.001001 26 more files »
Test-Fixture-DBI-0.09/Build.PL
    script_files => [glob('script/*'), glob('bin/*')],
    c_source     => [qw()],
    PL_files => {},
ZIGOROU/Test-Fixture-DBI-0.09 6 more files »
List-Enumerator-0.10/inc/Spiffy.pm
our @EXPORT_OK = (@EXPORT_BASE, qw(id WWW XXX YYY ZZZ));
our %EXPORT_TAGS = (XXX => [qw(WWW XXX YYY ZZZ)]);
SATOH/List-Enumerator-0.10 4 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
Catalyst-Plugin-FormValidator-Simple-0.15/lib/Catalyst/Plugin/FormValidator/Simple.pm
        $c->form(
            param1 => [qw/NOT_BLANK ASCII/, [qw/LENGTH 4 10/]],
            param2 => [qw/NOT_BLANK/, [qw/JLENGTH 4 10/]],
        $c->form(
            param1 => [qw/NOT_BLANK ASCII/, [qw/LENGTH 4 10/]],
            param2 => [qw/NOT_BLANK/, [qw/JLENGTH 4 10/]],
            param1 => [qw/NOT_BLANK ASCII/, [qw/LENGTH 4 10/]],
            param2 => [qw/NOT_BLANK/, [qw/JLENGTH 4 10/]],
            mail1  => [qw/NOT_BLANK EMAIL_LOOSE/],
23 more matches »
DHOSS/Catalyst-Plugin-FormValidator-Simple-0.15
Bash-Completion-Plugin-Test-0.01/t/01-basic.t
        $tester->check_completions('test-plugin ^',
            [qw/foo bar baz/], 'test all completions');
    },
        $tester->check_completions('test-plugin^',
            [qw//], 'test no completions immediately after command');
    },
        $tester->check_completions('test-plugin ^',
            [qw/bar baz foo/], 'test all completions');
    },
23 more matches »
RHOELZ/Bash-Completion-Plugin-Test-0.01
Regru-API-0.046/lib/Regru/API.pm
sub available_methods {[qw(
    nop
sub available_namespaces {[qw(
    user
IMAGO/Regru-API-0.046 14 more files »
Home · About