CPAN->GREP


101 to 125 of more than 1000 distributions (1.56 seconds)
CPANPLUS-0.9164/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.9164 12 more files »
Sub-Exporter-Progressive-0.001013/lib/Sub/Exporter/Progressive.pm
 use Sub::Exporter::Progressive -setup => {
   exports => [qw( break gather gathered take )],
   groups => {
   groups => {
     default => [qw( break gather gathered take )],
   },
FREW/Sub-Exporter-Progressive-0.001013 4 more files »
Package-Stash-0.37/lib/Package/Stash.pm
        implementations => [ 'XS', 'PP' ],
        symbols         => [qw(
            new
DOY/Package-Stash-0.37 6 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
Tk-LCD-1.3/LCD.pm
%SHAPE = (
    'a' => [qw/ 3.0  5  5.2  3  7.0  5  6.0 15  3.8 17  2.0 15/],
    'b' => [qw/ 6.3  2  8.5  0 18.5  0 20.3  2 18.1  4  8.1  4/],
    'a' => [qw/ 3.0  5  5.2  3  7.0  5  6.0 15  3.8 17  2.0 15/],
    'b' => [qw/ 6.3  2  8.5  0 18.5  0 20.3  2 18.1  4  8.1  4/],
    'c' => [qw/19.0  5 21.2  3 23.0  5 22.0 15 19.8 17 18.0 15/],
    'b' => [qw/ 6.3  2  8.5  0 18.5  0 20.3  2 18.1  4  8.1  4/],
    'c' => [qw/19.0  5 21.2  3 23.0  5 22.0 15 19.8 17 18.0 15/],
    'd' => [qw/17.4 21 19.6 19 21.4 21 20.4 31 18.2 33 16.4 31/],
23 more matches »
LUSOL/Tk-LCD-1.3
ShiftJIS-String-1.11/String.pm
%EXPORT_TAGS = (
    issjis => [qw/issjis/],
    string => [qw/length index rindex strspn strcspn strrev substr strsplit/],
    issjis => [qw/issjis/],
    string => [qw/length index rindex strspn strcspn strrev substr strsplit/],
    'span' => [qw/strspn strcspn rspan rcspan/],
    string => [qw/length index rindex strspn strcspn strrev substr strsplit/],
    'span' => [qw/strspn strcspn rspan rcspan/],
    'trim' => [qw/trim ltrim rtrim/],
7 more matches »
SADAHIRO/ShiftJIS-String-1.11 4 more files »
Operator-Util-0.05/t/cross.t
    my @result = cross ['a','b'], [1,2];
    is_deeply \@result, [qw< a 1 a 2 b 1 b 2 >],
    'cross() produces expected result';
    my @result = cross [1,2,3], ['a','b'];
    is_deeply \@result, [qw< 1 a 1 b 2 a 2 b 3 a 3 b >], 'flat cross() works';
}
    my @result = map { join ':', @$_ } cross([1,2,3], ['A','B'], flat => 0);
    is \@result, [qw< 1:A 1:B 2:A 2:B 3:A 3:B >], 'non-flat cross() works';
}
1 more match »
PATCH/Operator-Util-0.05 3 more files »
Test-Legal-0.10/examples/script/tel2mnemonic.pl
my $o = (new Getopt::Compact modes  => [qw( debug )],
	                         args   => 'number | word',
	                         args   => 'number | word',
	                         struct => [ [ [qw(t timeout)], 'timeout',],
			])-> opts;
IOANNIS/Test-Legal-0.10 9 more files »
MongoDB-v1.6.1/lib/MongoDB/_Types.pm
enum AuthMechanism,
  [qw/NONE DEFAULT MONGODB-CR MONGODB-X509 GSSAPI PLAIN SCRAM-SHA-1/];
enum ConnectType, [qw/replicaSet direct none/];
enum CursorType, [qw/non_tailable tailable tailable_await/];
2 more matches »
MONGODB/MongoDB-v1.6.1 13 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 »
File-TypeCategories-0.06/lib/File/TypeCategories.pm
    isa     => ArrayRef[Str],
    default => sub{[qw{ ignore }]},
);
IVANWILLS/File-TypeCategories-0.06 2 more files »
Test-Mock-Redis-0.20/t/01-basic.t
    is_deeply([$o->zrange($zset, 0, 1)], [qw/bar foo/]);
    is_deeply([$o->zrevrange($zset, 0, 1)], [qw/baz foo/]);
    is_deeply([$o->zrange($zset, 0, 1)], [qw/bar foo/]);
    is_deeply([$o->zrevrange($zset, 0, 1)], [qw/baz foo/]);
    is_deeply([$o->zrange($zset, 0, -2)], [qw/bar foo/]);
    is_deeply([$o->zrevrange($zset, -3, 1)], [qw/baz foo/]);
2 more matches »
JLAVALLEE/Test-Mock-Redis-0.20 5 more files »
Devel-Caller-IgnoreNamespaces-1.0/t/00_alltests.t
is_deeply([a::a_caller()], [qw(main t/00_alltests.t 11)], "un-magic caller() works") &&
    is_deeply([(a::a_caller(0))[0..3]], [q
qw(main t/00_alltests.t 11)], "un-magic caller() works") &&
    is_deeply([(a::a_caller(0))[0..3]], [qw(main t/00_alltests.t 11 a::a_caller)], "un-magic caller(0) works") &&
    is_deeply([a::a_caller_ca
0_alltests.t 11 a::a_caller)], "un-magic caller(0) works") &&
    is_deeply([a::a_caller_caller()], [qw(a t/lib/a.pm 8)], "un-magic foo(caller()) works") &&
    is_deeply([(a::a_caller_caller(0))[0..3]],
21 more matches »
DCANTRELL/Devel-Caller-IgnoreNamespaces-1.0
Config-Format-Ini-0.07/t/02_basic.t
my $c0 = { 
	cars   => { fiat=> [qw/ green blue /],
		    bmw => [qw/ green blue /],
	cars   => { fiat=> [qw/ green blue /],
		    bmw => [qw/ green blue /],
		    reno=> [qw/ white      /],
		    bmw => [qw/ green blue /],
		    reno=> [qw/ white      /],
                  },
7 more matches »
IOANNIS/Config-Format-Ini-0.07 3 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 »
Mojo-Redis2-0.26/Makefile.PL
  VERSION_FROM => 'lib/Mojo/Redis2.pm',
  EXE_FILES => [qw(  )],
  META_MERGE => {
JHTHORSEN/Mojo-Redis2-0.26 3 more files »
Class-MVC-0.01.06/MVC.pm
		{	
			ref => [qw( model view controller )],
		}, 
	{
		isa => [qw( Class::Observable )],

	{
		isa => [qw( Class::Listener )],

12 more matches »
MUENALAN/Class-MVC-0.01.06 1 more file »
Test-AutoBuild-1.2.4/doc/coding-standards.txt
    use Class::MethodMaker
      get_set => [qw( name label start_time end_time )];
DANBERR/Test-AutoBuild-1.2.4 17 more files »
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 »
Ado-0.933/Build.PL
        },
        keywords => [qw/Ado Mojolicious realtime web ERP REST CMS enterprise/],
        no_index => {namespace => ['Ado::Model'],}
BEROV/Ado-0.933 10 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 »
MetaCPAN-Client-2.007000/lib/MetaCPAN/Client.pm
    is      => 'ro',
    handles => [qw<ua fetch post ssearch>],
);
    my $module = $mcpan->module('Moose', { fields => "version,author" });
    my $module = $mcpan->module('Moose', { fields => [qw/version author/] });
MICKEY/MetaCPAN-Client-2.007000 11 more files »
SOAP-WSDL-3.003/example/lib/MyInterfaces/BarCode/BarCodeSoap.pm
            encodingStyle => '',
            parts => [qw( MyElements::GenerateBarCode )],
        },
SWALTERS/SOAP-WSDL-3.003 8 more files »
Tapper-Schema-5.0.9/lib/Tapper/RawSQL/TestrunDB/reports.pm
    my @a_main  = ( 'suite_id', 'machine_name', 'successgrade', 'success_ratio', 'owner', [qw/ r report_date /], [qw/ r report_id /] );
    my @a_inner = ( 'suite_id', 'machine_name', 'successg
n  = ( 'suite_id', 'machine_name', 'successgrade', 'success_ratio', 'owner', [qw/ r report_date /], [qw/ r report_id /] );
    my @a_inner = ( 'suite_id', 'machine_name', 'successgrade', 'success_ratio',
_id /] );
    my @a_inner = ( 'suite_id', 'machine_name', 'successgrade', 'success_ratio', 'owner', [qw/ ri report_date /], [qw/ ri report_id /] );
    my @a_sub   = ( 'suite_id', 'machine_name', 'succes
3 more matches »
TAPPER/Tapper-Schema-5.0.9 10 more files »
Class-InsideOut-1.13/t/00-report-prereqs.t
my @reports = [qw/Version Module/];
DAGOLDEN/Class-InsideOut-1.13 5 more files »
Home · About