CPAN->GREP


51 to 75 of more than 1000 distributions (1.54 seconds)
Pithub-0.01033/lib/Pithub/Issues/Labels.pm
        issue_id => 1,
        data     => [qw(label3 label4)],
    );
OALDERS/Pithub-0.01033 2 more files »
App-ShellCompleter-mpv-0.05/bin/_mpv
    'ass-force-style=s' => undef,       # String list (default: )
    'ass-hinting=s' => [qw/none light normal native/], # Choices: none light normal native (default: none)
    'ass-line-spaci
acing=f' => _gcfloat(-1000,1000), # Float (-1000 to 1000) (default: 0.000000)
    'ass-shaper=s' => [qw/simple complex/], # Choices: simple complex (default: complex)
    'ass-style-override=s' => [qw/no
=> [qw/simple complex/], # Choices: simple complex (default: complex)
    'ass-style-override=s' => [qw/no yes force signfs/], # Choices: no yes force signfs (default: yes)
    'ass-styles=s' => $compfil
41 more matches »
PERLANCAR/App-ShellCompleter-mpv-0.05
Statocles-0.083/lib/Statocles/Base.pm
    warnings => [],
    feature => [qw( :5.10 )],
    'Path::Tiny' => [qw( rootdir cwd )],
    feature => [qw( :5.10 )],
    'Path::Tiny' => [qw( rootdir cwd )],
    'DateTime::Moonpig',
my @class_modules = (
    'Types::Standard' => [qw( :all )],
    'Types::Path::Tiny' => [qw( Path AbsPath Dir )],
6 more matches »
PREACTION/Statocles-0.083 17 more files »
Class-DBI-Sweet-0.11/lib/Class/DBI/Sweet.pm
    my $statement_order = $attributes->{statement_order}
      || [qw/ prefetch_cols from sql /];
            sql_method          => 'count_by_cd',
            statement_order     => [qw/ from where limit order_by / ],
            disable_sql_paging  => 1,
            sql_method          => 'count_by_cd',
            statement_order     => [qw/ from where limit order_by / ],
            disable_sql_paging  => 1,
PHRED/Class-DBI-Sweet-0.11 14 more files »
Params-Clean-v0.9.4/t/lists.t
	(get [NAME "Colour", "Color"], TYPE \&Odd, LIST "Mary", [2,1,0], REST),
	(expect [qw/black blue red/], [255, 1, 3], [qw/Mary had a little lamb/], [240,128], "DUMMY", 2);
	(get [NAME "Colour", "Color"], TYPE \&Odd, LIST "Mary", [2,1,0], REST),
	(expect [qw/black blue red/], [255, 1, 3], [qw/Mary had a little lamb/], [240,128], "DUMMY", 2);
	(get [NAME "Colour", "Color"], TYPE \&Odd, LIST "Mary"<=>"lamb", [2,1,0], REST),
	(expect [qw/black blue red/], [255, 1, 3], [qw/Mary had a little lamb/], [240,128], "DUMMY", 2);
23 more matches »
PLATO/Params-Clean-v0.9.4 4 more files »
BioPerl-DB-1.006900/lib/Bio/BioEntry.pm
  my ($objid, $ns, $auth, $v, $display_id, $desc) =
      $self->_rearrange([qw(OBJECT_ID
			    NAMESPACE
CJFIELDS/BioPerl-DB-1.006900 26 more files »
Paranoid-2.05/lib/Paranoid/Process.pm
        ],
    signal => [qw(installSIGH uninstallSIGH installSIGD uninstallSIGD)],
    );
CORLISS/Paranoid-2.05 3 more files »
DBD-TreeData-0.90/lib/DBD/TreeData.pm
   my ($dbh, $catalog, $schema, $table) = @_;
   my $names = [qw( TABLE_QUALIFIER TABLE_OWNER TABLE_NAME TABLE_TYPE REMARKS )];
   my $type = 'COLUMN_INFO';
   my $names = [qw(
      TABLE_CAT TABLE_SCHEM TABLE_NAME COLUMN_NAME DATA_TYPE TYPE_NAME COLUMN_SIZE BUFFER_LENGTH DECIMAL_DIGITS
   return sponge_sth_loader($dbh, $type,
      [qw(TABLE_CAT TABLE_SCHEM TABLE_NAME COLUMN_NAME KEY_SEQ PK_NAME)],
      [ [ undef, undef, $table, $pkey, 1, $pkey.'_pkey' ] ]
2 more matches »
BBYRD/DBD-TreeData-0.90 1 more file »
AI-Genetic-Pro-0.401/lib/AI/Genetic/Pro.pm
    $ga->init([
               [qw/red blue green/],
               [qw/big medium small/],
               [qw/red blue green/],
               [qw/big medium small/],
               [qw/very_fat fat fit thin very_thin/],
               [qw/big medium small/],
               [qw/very_fat fat fit thin very_thin/],
              ]);
STRZELEC/AI-Genetic-Pro-0.401 8 more files »
Tk-Graph-0.06/Graph.pm
#-------------------------------------------------
$specs{-debug} 		= [qw/PASSIVE debug        Debug/,             undef];

#-------------------------------------------------
$specs{-type}  		= [qw/PASSIVE type         Type/,		undef];

#-------------------------------------------------
$specs{-foreground} 	= [qw/PASSIVE foreground   Foreground/,		'black'];

37 more matches »
XPIX/Tk-Graph-0.06
Hash-SharedMem-0.004/t/function.t
is_deeply [&shash_key_lt($sh, "a110")], ["a100"];
is_deeply scalar(&shash_keys_array($sh)), [qw(a100 a110 a120)];
is_deeply [&shash_keys_array($sh)], [[qw(a100 a110 a120)]];
is_deeply scalar(&shash_keys_array($sh)), [qw(a100 a110 a120)];
is_deeply [&shash_keys_array($sh)], [[qw(a100 a110 a120)]];
eval { ${\(&shash_keys_array($sh))} = undef; };
is &shash_key_lt($sn, "a110"), "a100";
is_deeply &shash_keys_array($sn), [qw(a100 a110 a120)];
is_deeply &shash_keys_hash($sn), { a100=>undef, a110=>undef, a120=>undef };
4 more matches »
ZEFRAM/Hash-SharedMem-0.004 3 more files »
Acme-MorningMusume-0.20/lib/Acme/MorningMusume/AbeNatsumi.pm
        family_name_en => 'Abe',
        nick           => [qw(なっち)],
        birthday       => $_[0]->_datetime_from_date('1981-08-10'),
CATATSUY/Acme-MorningMusume-0.20 37 more files »
CGI-Application-Plugin-Authorization-0.07/Build.PL
    dist_author => 'Cees Hek <ceeshek@gmail.com>',
    add_to_cleanup => [qw(t/sqlite.db)],
)->create_build_script;
CEESHEK/CGI-Application-Plugin-Authorization-0.07 6 more files »
HTML-Template-Compiled-Plugin-I18N-1.04/example/Locale-Maketext/example.pl
my $htc = HTML::Template::Compiled->new(
    plugin    => [qw(HTML::Template::Compiled::Plugin::I18N)],
    tagstyle  => [qw(-classic -comment +asp)],
    plugin    => [qw(HTML::Template::Compiled::Plugin::I18N)],
    tagstyle  => [qw(-classic -comment +asp)],
    scalarref => \<<'EOT');
STEFFENW/HTML-Template-Compiled-Plugin-I18N-1.04 17 more files »
Constant-Generator-1.013/lib/Constant/Generator.pm
    # eval use constant {ERR_SUCCESS => 1, ERR_PERMS => 2} and put constant names to @EXPORT_OK
    Constant::Generator::gen('Sys::Errors', [qw/success perms/], {fl_exp_ok => 1, prfx => 'ERR_',});
    # eval use constant {EV_SYNC => 1, EV_TIMEOUT => 2} and put EV_* constant name to @EXPORT
    Constant::Generator::gen('Sys::Events', [qw/sync timeout/], {fl_exp => 1, prfx => 'EV_',});
 `on-line' source files, perltidy can help you; enjoy :)
    Constant::Generator::gen('Sys::Flags', [qw/HTTP_REDIRECT SERVICE_NOT_AVAIL/], {
	fl_exp      => 1,     # generate source with exportable const
6 more matches »
DOBRO/Constant-Generator-1.013 6 more files »
Geo-Region-0.07/lib/Geo/Region.pm
    # regions of subregions
    '001' => [qw( 002 009 019 142 150 )],
    '002' => [qw( 011 014 015 017 018 )],
    '001' => [qw( 002 009 019 142 150 )],
    '002' => [qw( 011 014 015 017 018 )],
    '003' => [qw( 013 021 029 )],
    '002' => [qw( 011 014 015 017 018 )],
    '003' => [qw( 013 021 029 )],
    '009' => [qw( 053 054 057 061 QO )],
29 more matches »
PATCH/Geo-Region-0.07 1 more file »
Validate-Tiny-1.6/lib/Validate/Tiny.pm
        # List of fields to look for
        fields => [qw/name email pass pass2 gender/],
            # All of these are required
            [qw/name email pass pass2/] => is_required(),
        [qw/password password2/] => sub {    # Remove spaces from both
            $_[0] =~ s/\s//g;                # password and password2
4 more matches »
MINIMAL/Validate-Tiny-1.6 15 more files »
DBIx-Class-DeploymentHandler-0.002219/lib/DBIx/Class/DeploymentHandler.pm
    delegate_name        => 'deploy_method',
    attributes_to_assume => [qw(schema schema_version)],
    attributes_to_copy   => [qw(
    attributes_to_assume => [qw(schema schema_version)],
    attributes_to_copy   => [qw(
      ignore_ddl databases script_directory sql_translator_args force_overwrite
    delegate_name        => 'version_handler',
    attributes_to_assume => [qw( database_version schema_version to_version )],
  },
FREW/DBIx-Class-DeploymentHandler-0.002219 12 more files »
dotReader-v0.11.2/inc/dtRdrBuilder.pm
  my @deps = $self->scan_deps(
    modules => [qw(dtRdr::0 warnings strict File::Spec Cwd Config version)],
    files => [qw(client/build_info/par_bootstrap.pl)],
    modules => [qw(dtRdr::0 warnings strict File::Spec Cwd Config version)],
    files => [qw(client/build_info/par_bootstrap.pl)],
  );
      my ($in, $out, $err);
      IPC::Run::run([qw(wx-config --prefix)], \$in, \$out, \$err) or die;
      $out or die;
1 more match »
EWILHELM/dotReader-v0.11.2 12 more files »
CTKlib-1.18/bin/ctklib
    PROJECTNAME => 'foo',
    TYPES       => [qw/module regular tiny/],
};
ABALAMA/CTKlib-1.18 10 more files »
Games-Tournament-RoundRobin-0.03/lib/Games/Tournament/RoundRobin.pm
	Games::Tournament::RoundRobin->new( v => 5, league => [qw/Ha Be He/])
	Games::Tournament::RoundRobin->new( league => {A => $a, B => $b})
DRBEAN/Games-Tournament-RoundRobin-0.03 9 more files »
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 »
RedisDB-2.53/t/basic_redis.t
$res = $redis->get_reply;
eq_or_diff $res, [qw(is a list)], 'LRANGE returned correct result';
eq_or_diff \@replies,
  [ [qw(AAA)], [qw(BBB)], [ 'LIST', [qw(CCC DDD EEE)] ], ],
  "Callback was called with correct arguments";
eq_or_diff \@replies,
  [ [qw(AAA)], [qw(BBB)], [ 'LIST', [qw(CCC DDD EEE)] ], ],
  "Callback was called with correct arguments";
1 more match »
ZWON/RedisDB-2.53 4 more files »
Nagios-Object-0.21.20/lib/Nagios/Object.pm
        retry_interval        => [ 'INTEGER',         280 ],
        initial_state => [ [qw(o d u)], 280 ],
        active_checks_enabled  => [ 'BINARY',             280 ],
        flap_detection_enabled => [ 'BINARY',             280 ],
        flap_detection_options => [ [qw(o d u)], 280 ],
        process_perf_data            => [ 'BINARY',             280 ],
        notification_interval        => [ 'INTEGER',            280 ],
        notification_options => [ [qw(u w c r)], 280 ],
        contacts       => [ ['Nagios::Contact'],      280 ],
19 more matches »
DUNCS/Nagios-Object-0.21.20 3 more files »
XML-Filter-Dispatcher-0.52/lib/XML/Filter/Dispatcher/Ops.pm
sub XFD::node_name::possible_event_type_map { {
    'start_element' => [qw( start_element )],
    'attribute'     => [qw( attribute     )],
    'start_element' => [qw( start_element )],
    'attribute'     => [qw( attribute     )],
} }
sub XFD::namespace_test::possible_event_type_map { {
    'start_element' => [qw( start_element )],
    'attribute'     => [qw( attribute     )],
25 more matches »
RBS/XML-Filter-Dispatcher-0.52 3 more files »
Home · About