CPAN->GREP


76 to 100 of more than 1000 distributions (1.65 seconds)
NetApp-500.002/lib/NetApp/Aggregate.pm
            source_filer => { type	=> SCALAR,
                              depends	=> [qw( source_volume )],
                              optional	=> SCALAR },
            source_folume => { type	=> SCALAR,
                               depends	=> [qw( source_filer )],
                               optional => 1 },
        $self->get_filer->_run_command(
            command	=> [qw(vol destroy), $args{name}, '-f'],
        );
1 more match »
WPMOORE/NetApp-500.002 7 more files »
HiPi-0.62/Build.PL
        no_index => {
            directory => [qw<inc modlib userbin>],
        },
MDOOTSON/HiPi-0.62 1 more file »
Locale-CLDR-Locales-Da-v0.29.0/t/15-Calendars.t
my $months = $locale->month_format_wide();
is_deeply ($months, [qw( januar februar marts april maj juni juli august september oktober november december )], 'Month for
$months = $locale->month_format_abbreviated();
is_deeply ($months, [qw( jan. feb. mar. apr. maj jun. jul. aug. sep. okt. nov. dec. )], 'Month format abbreviated');
$mont
$months = $locale->month_format_narrow();
is_deeply ($months, [qw( J F M A M J J A S O N D )], 'Month format narrow');
$months = $locale->month_stand_alone_wide();
16 more matches »
JGNI/Locale-CLDR-Locales-Da-v0.29.0 1 more file »
PPIx-EditorTools-0.19/t/06-camelcasing.t
	# test expected ucfirst
	[qw(abc abc 0)],
	[qw(abc Abc 1)],
	[qw(abc abc 0)],
	[qw(abc Abc 1)],
	[qw(Abc Abc 0)],
	[qw(abc Abc 1)],
	[qw(Abc Abc 0)],
	[qw(Abc Abc 1)],
27 more matches »
SZABGAB/PPIx-EditorTools-0.19 2 more files »
App-cpanminus-1.7042/bin/cpanm
stalldeps}or $self->{showdeps})and $depth==0);$dist->{want_phases}=$self->{notest}&&!$root_target ? [qw(build runtime)]: [qw(build test runtime)];push @{$dist->{want_phases}},'develop' if$self->{with_dev
showdeps})and $depth==0);$dist->{want_phases}=$self->{notest}&&!$root_target ? [qw(build runtime)]: [qw(build test runtime)];push @{$dist->{want_phases}},'develop' if$self->{with_develop}&& $depth==0;pus
es,'resources'=>\&_upgrade_resources_2,'description'=>\&_keep,'prereqs'=>\&_prereqs_from_1,':drop'=>[qw(build_requires configure_requires conflicts distribution_type license_url private recommends requir
17 more matches »
MIYAGAWA/App-cpanminus-1.7042 1 more file »
Acme-Tools-0.20/t/02_general.t
#--webparams, urlenc, urldec
my $s=join"",map random([qw/hip hop and you dont stop/]), 1..1000;
my %in=("\n&pi=3.14+0\n\n"=>gz($s x 5),123=>123321);
 over isen",7)],['Reven r','asker o','ver ise','n'] ,            'chunks string' );
ok_ref( [chunks([qw/Og gubben satt i kveldinga og koste seg med skillinga/], 3)],
           [['Og','gubben','satt'],['
ok( tablestring([[qw/AA BB CCCC/],[123,23,"d"],[12,23,34],[77,88,99],["lin\nes",12,"asdff\nfdsa\naa"],[0,22,"adf"]]) eq <<'END', 'tablestring' );
AA  BB CCCC
KJETIL/Acme-Tools-0.20 5 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 »
Mail-Bulkmail-3.12/Bulkmail.pm
 my $list = [qw(jim@jimandkoka.com thomasoniii@yahoo.com)];
 $bulk->LIST($list);
 $bulk->banned([qw(jim@jimandkoka.com jimandkoka.com)]);
 my $bulk = Mail::Bulkmail->new(
 	"LIST" 		=> [qw(test@mydomain.com me@mydomain.com test2@mydomain.com)],
 	"Subject"	=> "A test message",
JIMT/Mail-Bulkmail-3.12 3 more files »
ClearCase-SyncTree-0.60/synctree
    my ($inclb) = grep s/-> (lbtype:.*)$/$1/,
                               $ct->desc([qw(-s -ahl EqInc)], $lbtype)->qx;
    if ($inclb) {
DSB/ClearCase-SyncTree-0.60 1 more file »
Graphics-VTK-4.0.001/examples/old_examples/graphics/quadricCut.pl
}
$positions{0} = [qw/-4 4 0/];
$positions{1} = [qw/-2 4 0/];
$positions{0} = [qw/-4 4 0/];
$positions{1} = [qw/-2 4 0/];
$positions{2} = [qw/0 4 0/];
$positions{1} = [qw/-2 4 0/];
$positions{2} = [qw/0 4 0/];
$positions{3} = [qw/2 4 0/];
13 more matches »
CERNEY/Graphics-VTK-4.0.001 2 more files »
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 »
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 »
Spreadsheet-WriteExcel-2.40/t/26_autofilter.t
        'expression'    => 'x =  Blanks',
        'data'          => [qw(
                                9E 00 18 00 00 00 84 32 0C 02 00 00 00 00 00 00
        'expression'    => 'x =  Nonblanks',
        'data'          => [qw(
                                9E 00 18 00 01 00 84 32 0E 05 00 00 00 00 00 00
        'expression'    => 'x >  1.001',
        'data'          => [qw(
                                9E 00 18 00 02 00 80 32 04 04 6A BC 74 93 18 04
26 more matches »
JMCNAMARA/Spreadsheet-WriteExcel-2.40
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 »
Music-VoiceGen-0.02/eg/auditcontext
for my $trialn ( 1 .. $TRIALS ) {
    $voice->context( [qw/a b c/] );
    print $voice->rand(), "\n";
JMATES/Music-VoiceGen-0.02 3 more files »
Parse-Perl-0.007/t/curcop.t
		ref(bless({})),
	], [qw(Bar CODE Bar)];
}
ZEFRAM/Parse-Perl-0.007 3 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 »
EekBoek-2.02.05.5/inc/Module/Build.pm
name extensions, pass the C<test_file_exts> argument with an array
of extensions, such as C<[qw( .t .s .z )]>.
JV/EekBoek-2.02.05.5 12 more files »
ClearCase-Argv-1.54/Argv.pm
    # Note how the command, flags, and arguments are separated ...
    my $describe = ClearCase::Argv->new('desc', [qw(-fmt %c)], ".");
    # Run the basic "ct describe" command.
    $ct->des(['-fmt', '%[owner]p\n'], 'vob:.')->system
    $ct->des([qw(-fmt %[owner]p\n)], 'vob:.')->system
DSB/ClearCase-Argv-1.54 13 more files »
HTML-Untemplate-0.019/lib/HTML/Linear/Path.pm
our %groupby = (
    class       => [qw(*)],
    id          => [qw(*)],
    class       => [qw(*)],
    id          => [qw(*)],
    name        => [qw(input meta)],
    id          => [qw(*)],
    name        => [qw(input meta)],
    'http-equiv'=> [qw(meta)],
3 more matches »
SYP/HTML-Untemplate-0.019 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 »
Gearman-Driver-0.02008/lib/Gearman/Driver.pm
    my $driver = Gearman::Driver->new(
        namespaces => [qw(My::Workers)],
        server     => 'localhost:4730,otherhost:4731',
    use Gearman::Driver;
    my $driver = Gearman::Driver->new( namespaces => [qw(My::Workers)] );
    my $driver = Gearman::Driver->new(
        namespaces           => [qw(My::Workers)],
        unknown_job_callback => sub {
11 more matches »
PLU/Gearman-Driver-0.02008 6 more files »
Locale-CLDR-Locales-Ca-v0.29.0/t/15-Calendars.t
$months = $locale->month_format_abbreviated();
is_deeply ($months, [qw( gen. febr. març abr. maig juny jul. ag. set. oct. nov. des. )], 'Month format abbreviated');
$mo
$months = $locale->month_format_narrow();
is_deeply ($months, [qw( GN FB MÇ AB MG JN JL AG ST OC NV DS )], 'Month format narrow');
$months = $locale->month_stand_alone_wide();
$months = $locale->month_stand_alone_wide();
is_deeply ($months, [qw( gener febrer març abril maig juny juliol agost setembre octubre novembre desembre )], 'Month stan
14 more matches »
JGNI/Locale-CLDR-Locales-Ca-v0.29.0 1 more file »
Parse-Range-0.96/t/basic.t
my @tests = (
	[q()] => [qw()],
	[q(1,3,5,7-9)] => [qw(1 3 5 7 8 9)],
	[q()] => [qw()],
	[q(1,3,5,7-9)] => [qw(1 3 5 7 8 9)],
	[q(1,3,5,9-7)] => [qw(1 3 5 7 8 9)],
	[q(1,3,5,7-9)] => [qw(1 3 5 7 8 9)],
	[q(1,3,5,9-7)] => [qw(1 3 5 7 8 9)],
	[q(1,3,5,7-7)] => [qw(1 3 5 7)],
25 more matches »
PERLER/Parse-Range-0.96
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
Home · About