CPAN->GREP


101 to 125 of more than 1000 distributions (1.90 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 »
MongoDB-v1.8.0/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.8.0 13 more files »
DBIx-Simplish-1.002001/lib/DBIx/Simplish.pm
my $connection_mode = Type::Tiny::Enum->new(values => [qw/ping fixup no_ping/]);
has [qw/user password/] => (
    is  => 'ro',
    isa     => InstanceOf['SQL::Abstract'],
    handles => [qw/select insert update delete/],
);
1 more match »
STAUGAARD/DBIx-Simplish-1.002001 1 more file »
Wx-WidgetMaker-0.11/ex/demo.pl
        -name => 'color_popup',
        -values => [qw(red green blue)],
        -default => 'green',
        -name => 'color_list',
        -values => [qw(red green blue)],
        -default => 'green',
        -name => 'color_radio_group',
        -values => [qw(red green blue)],
        -default => 'green',
SLANNING/Wx-WidgetMaker-0.11 2 more files »
Test-Pcuke-Gherkin-0.000003/lib/Test/Pcuke/Gherkin/Lexer.pm
		{
			regexps	=> [qw{given when then and but}],
			mktoken	=> sub {
CRUSOE/Test-Pcuke-Gherkin-0.000003 11 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 »
webrobot-0.81/lib/WWW/Webrobot.pm
    my $config = WWW::Webrobot::Properties->new(
        listmode    => [qw(names auth_basic output http_header proxy no_proxy mail.Attach)],
        key_value   => [qw(names http_header proxy)],
        listmode    => [qw(names auth_basic output http_header proxy no_proxy mail.Attach)],
        key_value   => [qw(names http_header proxy)],
        multi_value => [qw(auth_basic mail.Attach)],
        key_value   => [qw(names http_header proxy)],
        multi_value => [qw(auth_basic mail.Attach)],
        structurize => [qw(load mail)],
1 more match »
STRCEK/webrobot-0.81 5 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
QWizard-3.15/examples/dynamic_redisplay.pl
      name => 'setit',
      values => [qw(0 1 2 3 4 5)],
      default => sub { $old = 1; },
HARDAKER/QWizard-3.15 5 more files »
XML-TreePP-0.43/lib/XML/TreePP.pm
    use XML::TreePP;
    my $tpp = XML::TreePP->new( force_array => [qw( item )] );
    my $cgiurl = "http://search.hatena.ne.jp/keyword";
KAWASAKI/XML-TreePP-0.43 18 more files »
Git-ReleaseRepo-0.006/lib/Git/ReleaseRepo/Test.pm
use Sub::Exporter -setup => {
    exports => [qw(
        get_cmd_result run_cmd is_repo_clean last_commit repo_branches repo_tags repo_refs
PREACTION/Git-ReleaseRepo-0.006 3 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 »
DBI-1.637/DBI.pm
    local $Data::Dumper::Indent=1;
    print Data::Dumper->Dump([$dbd_prefix_registry], [qw($dbd_prefix_registry)]);
}
TIMB/DBI-1.637 7 more files »
DBIx-Cookbook-0.09/lib/DBIx/Cookbook/DBIC/Command/distinct_count.pm
has 'count' => (
	       traits => [qw(Getopt)],
	       isa => "Bool",
TBONE/DBIx-Cookbook-0.09 14 more files »
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 »
App-RoboBot-4.004/lib/App/RoboBot.pm
    isa       => 'App::RoboBot::Config',
    traits    => [qw( SetOnce )],
    predicate => 'has_config',
    isa    => 'App::RoboBot::Doc',
    traits => [qw( SetOnce )],
);
JSIME/App-RoboBot-4.004 15 more files »
Etk-Perl-0.09/lib/Etk/Constants.pm
our %EXPORT_TAGS = (
   box		=> [qw/BoxStart BoxEnd BoxNone BoxExpand BoxFill BoxExpandFill/],
   combobox	=> [qw/ColumnTypeLabel ColumnTypeImage ColumnTypeOther EntryImage EntryLabel EntryOther
   box		=> [qw/BoxStart BoxEnd BoxNone BoxExpand BoxFill BoxExpandFill/],
   combobox	=> [qw/ColumnTypeLabel ColumnTypeImage ColumnTypeOther EntryImage EntryLabel EntryOther
    EntryNone Entr
    EntryNone EntryExpand EntryFill EntryExpandFill/],
   fillpolicy	=> [qw/FillNone HFill VFill HExpand VExpand/],
   messagedialog=> [qw/None Warning Question Error
18 more matches »
LEVIATHAN/Etk-Perl-0.09 1 more file »
MooseX-Types-Parameterizable-0.08/lib/MooseX/Types/Parameterizable.pm
use MooseX::Meta::TypeConstraint::Parameterizable;
use MooseX::Types -declare => [qw(Parameterizable)];
    use MooseX::Types::Moose qw(Str Int ArrayRef);
    use MooseX::Types -declare=>[qw(Varchar)];
    my $object3 = __PACKAGE__->new(
        varchar_five => [qw/aa bb/],  ## coerces to "aabb"
        varchar_ten => '123456789',
JJNAPIORK/MooseX-Types-Parameterizable-0.08 9 more files »
Method-Cumulative-0.05/t/01_basic.t
	B->foo('!');
	is_deeply \@tags, [qw(!B !A)], 'B->foo (derived first)';
	@tags = ();
	B->new->foo('?');
	is_deeply \@tags, [qw(?B ?A)];
	B->bar('!');
	is_deeply \@tags, [qw(!A !B)], 'B->bar (base first)';
	@tags = ();
5 more matches »
GFUJI/Method-Cumulative-0.05 4 more files »
Perl-Repository-APC-2.002001/t/bap.t
my $tests = [
             [qw(maint-5.10  5.10.0@33133 5.10.0   5.10.1   32695 33133 perl-5.10.x-diffs   )],
             [qw(perl        5.9.4@30000  5.9.4    5.9.5    28728 30000 5.9.0   )],
    [qw(maint-5.10  5.10.0@33133 5.10.0   5.10.1   32695 33133 perl-5.10.x-diffs   )],
             [qw(perl        5.9.4@30000  5.9.4    5.9.5    28728 30000 5.9.0   )],
             [qw(perl        0@ 
             [qw(perl        5.9.4@30000  5.9.4    5.9.5    28728 30000 5.9.0   )],
             [qw(perl        0@           0        5.004_50 1        60 5.004_50)],
             [qw(perl        5.0
18 more matches »
ANDK/Perl-Repository-APC-2.002001
Math-PartialOrder-0.01/lib/Math/PartialOrder/Base.pm
  (
   trivialities => [qw(&_subsumes_trivial &_psubsumes_trivial),
		    qw(&_lub_trivial &_glb_trivial)],
		    qw(&_lub_trivial &_glb_trivial)],
   userhooks => [qw(&_subsumes_user &_psubsumes_user),
		 qw(&_binop_user &_lub_user &_glb_user)],
		 qw(&_binop_user &_lub_user &_glb_user)],
   typevars => [qw($TYPE_TOP)]
  );
MOOCOW/Math-PartialOrder-0.01 5 more files »
Array-Sample-Partition-0.001/t/01-basics.t
    is_deeply([sample_partition([qw/a/], 0)], []);
    is_deeply([sample_partition([qw/a/], 1)], [qw/a/]);
    is_deeply([sample_partition([qw/a/], 0)], []);
    is_deeply([sample_partition([qw/a/], 1)], [qw/a/]);
    is_deeply([sample_partition([qw/a/], 0)], []);
    is_deeply([sample_partition([qw/a/], 1)], [qw/a/]);
18 more matches »
PERLANCAR/Array-Sample-Partition-0.001
Data-Transactional-1.04/lib/Data/Transactional.pm
    $data->checkpoint();
    $data->{food_and_drink}->[0] = [qw(pie curry chips)];
    $data->checkpoint();
    $data->checkpoint();
    $data->{food_and_drink}->[1] = [qw(beer gin whisky)];
    $data->rollback();   # back to last checkpoint
DCANTRELL/Data-Transactional-1.04 2 more files »
T-0.001/t/as.t
use T2 -as => 'ttt', Basic => [qw/ok done_testing note/];
use T2 -as => 'ttt', Compare => [qw/like is/];
use T2 -as => 'ttt', Basic => [qw/ok done_testing note/];
use T2 -as => 'ttt', Compare => [qw/like is/];
use T2(
    -as => 'ttt',
    Exception => [qw/dies/],
    Warnings => [qw/warns/],
1 more match »
EXODIST/T-0.001 7 more files »
Home · About