CPAN->GREP


101 to 125 of more than 1000 distributions (1.52 seconds)
AI-CBR-0.02/lib/AI/CBR/Case.pm
    	job      => { value => 'programmer',   sim => \&sim_eq   },
    	symptoms => { value => [qw(headache)], sim => \&sim_set  },
    );
OBRADOVIC/AI-CBR-0.02 4 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 »
Catalyst-TraitFor-Controller-DBIC-DoesPaging-1.001003/lib/Catalyst/TraitFor/Controller/DBIC/DoesPaging.pm
   isa => 'ArrayRef',
   default => sub { [qw{limit start sort dir _dc rm xaction}] },
);
          return {}, {
             order_by => { "-$direction" => [qw{last_name first_name}] },
          };
 [qw{limit start sort dir _dc rm xaction}]
FREW/Catalyst-TraitFor-Controller-DBIC-DoesPaging-1.001003 2 more files »
DBD-SQLite-1.54/lib/DBD/SQLite/Constants.pm
our %EXPORT_TAGS = (
    all => [qw/
      SQLITE_ABORT
    authorizer_action_codes => [qw/
      SQLITE_ALTER_TABLE
    authorizer_return_codes => [qw/
      SQLITE_DENY
6 more matches »
ISHIGAKI/DBD-SQLite-1.54 10 more files »
WWW-Sitemap-XML-2.02/lib/WWW/Sitemap/XML.pm
    is => 'ro',
    traits => [qw( Array )],
    isa => 'ArrayRef',
AJGB/WWW-Sitemap-XML-2.02 12 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 »
CGI-Ex-2.44/lib/CGI/Ex/App.pod
                required => 1,
                enum     => [qw(animal vegetable mineral)],
            },
            color   => 'red',
            choices => [qw(one two three)],
            "warn"  => sub { warn @_ },
            color   => 'red',
            choices => [qw(one two three)],
        };
3 more matches »
LJEPSON/CGI-Ex-2.44 9 more files »
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 »
Switch-Perlish-1.0.5/lib/Switch/Perlish.pm
            fallthrough };
    case [qw/ foo bar baz /],
      sub { print "$var found in list\n" };
BROQ/Switch-Perlish-1.0.5 9 more files »
Tk-CodeText-0.3.4/CodeText.pm
	$cw->ConfigSpecs(
		-autoindent => [qw/PASSIVE autoindent Autoindent/, 0],
		-match => [qw/PASSIVE match Match/, '[]{}()'],
		-autoindent => [qw/PASSIVE autoindent Autoindent/, 0],
		-match => [qw/PASSIVE match Match/, '[]{}()'],
		-matchoptions	=> [qw/METHOD matchoptions Matchoptions/, 
		-match => [qw/PASSIVE match Match/, '[]{}()'],
		-matchoptions	=> [qw/METHOD matchoptions Matchoptions/, 
			[-background => 'red', -foreground => 'yellow']],
9 more matches »
HANJE/Tk-CodeText-0.3.4 1 more file »
Set-Associate-0.004001/lib/Set/Associate.pm
        on_items_empty => Set::Associate::RefillItems->linear(
            items => [qw( red blue yellow )],
        ),
        on_items_empty => Set::Associate::RefillItems->linear(
            items => [qw( red blue yellow )],
        ),
        on_items_empty => Set::Associate::RefillItems->linear(
            items => [qw( red blue yellow )],
        ),
1 more match »
KENTNL/Set-Associate-0.004001 17 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
RTx-Foundry-0.01/html/Foundry/Project/Wiki/lib/CGI/Kwiki/Display.pm
    $self->template->process(
        [qw(display_header display_body display_footer)],
        display => $formatted,
AUTRIJUS/RTx-Foundry-0.01 11 more files »
Eixo-Docker-1.211/lib/Eixo/Docker/Container.pm
		needed=>[qw(id)],
        get_params => [qw(all limit)],
	    get_params => [qw(name)],
8 more matches »
ALAMBIKE/Eixo-Docker-1.211 3 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 »
Dotiac-0.8/lib/Dotiac/DTL/Tag/debug.pm
	print $self->{p};
	print "<pre>\n",Data::Dumper->Dump([\@_,Carp::longmess()],[qw/Parameter Stack/]),"</pre>\n";
	$self->{n}->print(@_);
	my $self=shift;
	return $self->{p}."<pre>\n".Data::Dumper->Dump([\@_,Carp::longmess()],[qw/Parameter Stack/])."</pre>\n".$self->{n}->string(@_);
	
	print $fh "\t" x $level,'print "<pre>\n",Data::Dumper->Dump([[$vars,$escape,@_],Carp::longmess()],[qw/Parameter Stack/]),"</pre>\n";',"\n";
	return $self->{n}->perlprint($fh,$id+1,$level,@_);
1 more match »
MALUKU/Dotiac-0.8 3 more files »
Jifty-Plugin-ModelMap-0.02/t/TestApp/lib/TestApp/Bootstrap.pm
        my @items = (
            [qw/1 Smith 20 London/],
            [qw/2 Jones 10 Paris/],
            [qw/1 Smith 20 London/],
            [qw/2 Jones 10 Paris/],
            [qw/3 Black 30 Paris/],
            [qw/2 Jones 10 Paris/],
            [qw/3 Black 30 Paris/],
            [qw/4 Clark 20 London/],
20 more matches »
BOKUTIN/Jifty-Plugin-ModelMap-0.02
DBI-1.636/DBI.pm
    local $Data::Dumper::Indent=1;
    print Data::Dumper->Dump([$dbd_prefix_registry], [qw($dbd_prefix_registry)]);
}
TIMB/DBI-1.636 7 more files »
DataFlow-1.121830/lib/DataFlow/Proc.pm
	my @res = $uc->process( [qw/aaa bbb ccc/] );
	# @res == [qw/AAA BBB CCC/];
	my @res = $uc->process( [qw/aaa bbb ccc/] );
	# @res == [qw/AAA BBB CCC/];
	my @res = $uc_deref->process( [qw/aaa bbb ccc/] );
	# @res == qw/AAA BBB CCC/;
RUSSOZ/DataFlow-1.121830 10 more files »
Perinci-Sub-Complete-0.91/lib/Perinci/Sub/Complete.pm
mploy some heuristics to complete a value from Sah schema. For example, if
schema is `[str => in => [qw/new open resolved rejected/]]`, then we can
complete from the `in` clause. Or for something like `[
heuristics to complete a value from Sah schema. For example, if
schema is C<< [str =E<gt> in =E<gt> [qw/new open resolved rejected/]] >>, then we can
complete from the C<in> clause. Or for something like
PERLANCAR/Perinci-Sub-Complete-0.91 2 more files »
HTTP-Engine-0.03005/inc/Spiffy.pm
our @EXPORT_OK = (@EXPORT_BASE, qw(id WWW XXX YYY ZZZ));
our %EXPORT_TAGS = (XXX => [qw(WWW XXX YYY ZZZ)]);
YAPPO/HTTP-Engine-0.03005 13 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
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 »
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 »
Home · About