CPAN->GREP


26 to 50 of more than 1000 distributions (1.59 seconds)
Net-OpenSRS-Email_APP-0.61/Net-OpenSRS-Email_APP/lib/Net/OpenSRS/Email_APP.pm
    $args{Password} = $self->{password};
    my ($rows,$error) = $self->_call_opensrs(Required=>[qw/User Domain Password/], Args=>\%args);
    if (defined $error) {
    my ($rows, $error) = $self->_call_opensrs(Required=>[qw/Domain Mailbox/], Args=>\%args);
    if (defined $error) {
    my ($rows, $error) = $self->_call_opensrs(Required=>[qw/Mailbox_List/], Args=>\%args);
    if (defined $error) {
77 more matches »
MARKG/Net-OpenSRS-Email_APP-0.61
Statistics-RankOrder-0.13/lib/Statistics/RankOrder.pm
  
  $r->add_judge( [qw( A B C )] );
  $r->add_judge( [qw( A C B )] );
  $r->add_judge( [qw( A B C )] );
  $r->add_judge( [qw( A C B )] );
  $r->add_judge( [qw( B A C )] );
  $r->add_judge( [qw( A C B )] );
  $r->add_judge( [qw( B A C )] );
1 more match »
DAGOLDEN/Statistics-RankOrder-0.13 7 more files »
MooseX-CoverableModifiers-0.30/inc/Data/OptList.pm
  *import = Sub::Install::exporter {
    exports => [qw(mkopt mkopt_hash)],
  };
CLKAO/MooseX-CoverableModifiers-0.30 2 more files »
Mojolicious-Plugin-AssetPack-1.41/lib/Mojolicious/Plugin/AssetPack.pm
my %TAG_TEMPLATE;
$TAG_TEMPLATE{css} = [qw(link rel stylesheet href)];
$TAG_TEMPLATE{ico} = [qw(link rel icon href)];
$TAG_TEMPLATE{css} = [qw(link rel stylesheet href)];
$TAG_TEMPLATE{ico} = [qw(link rel icon href)];
$TAG_TEMPLATE{js}  = [qw(script src)];
$TAG_TEMPLATE{ico} = [qw(link rel icon href)];
$TAG_TEMPLATE{js}  = [qw(script src)];
$TAG_TEMPLATE{$_} = [qw(img src)]    for qw(gif jpg jpeg png svg);
4 more matches »
JHTHORSEN/Mojolicious-Plugin-AssetPack-1.41 40 more files »
POE-1.367/lib/POE/NFA.pm
    state_1 => [
      $object_1 => [qw(event_1 event_2)],
    ],
RCAPUTO/POE-1.367 11 more files »
Test-Story-0.07/lib/Test/Story.pm
        verbose            => 0,
        allowed_extensions => [qw( tc st )],
        tags               => {
    my $a8 = Test::Story->new({
        filenames => [qw( cases/test1.tc )],
        file_root => 'cases',
NACHBAUR/Test-Story-0.07 3 more files »
Getopt-Mixed-Help-0.26/t/Getopt-Mixed-Help.t
test_simple_import('boolean option is set (short)',
		   \@boolean, [qw(-b)],
		   'opt_boolean', 1);
test_simple_import('boolean option is set (long)',
		   \@boolean, [qw(--boolean)],
		   'opt_boolean', 1);
test_simple_import('mandatory string option (short, separate)',
		   \@mand_str, [qw(-s text1)],
		   'opt_mandatory_string', 'text1');
68 more matches »
DORNER/Getopt-Mixed-Help-0.26
Lingua-Stem-0.84/lib/Lingua/Stem.pm
elete_exceptions get_exceptions set_locale get_locale);
    %Lingua::Stem::EXPORT_TAGS = ( 'all' => [qw (stem stem_in_place stem_caching clear_stem_cache add_exceptions delete_exceptions get_exceptions s
_exceptions delete_exceptions get_exceptions set_locale get_locale)],
                    'stem' => [qw (stem)],
           'stem_in_place' => [qw (stem_in_place)],
                    'stem' => [qw (stem)],
           'stem_in_place' => [qw (stem_in_place)],
                 'caching' => [qw (stem_caching clear_stem_cache)],
3 more matches »
SNOWHARE/Lingua-Stem-0.84 3 more files »
Array-AsHash-0.32/lib/Array/AsHash.pm
 my $array = Array::AsHash->new({array => [qw/foo bar one 1 two 2/]});
 my @pairs = $array->get_pairs(qw/foo two/); # @pairs = (foo => 'bar', two => 2);
 my $array  = Array::AsHash->new({array => [qw/foo bar two 2 one 1/]});
 my @pairs  = $array->get_pairs(sort $array->keys);
OVID/Array-AsHash-0.32 3 more files »
App-RecordStream-4.0.22/doc/recs-fromapache.pod
    A more detailed how to use (See perldoc Apache::Log::Parser)
       recs-fromapache --strict '[qw(combined common vhost_common)]' < /var/log/httpd-access.log
    Get records except access of crawle
TSIBLEY/App-RecordStream-4.0.22 20 more files »
DBIx-Class-Schema-Loader-0.07046/lib/DBIx/Class/Schema/Loader/Base.pm
    db_schema => [qw(some_schema other_schema)],
    moniker_parts => [qw(schema name)],
    db_schema => [qw(some_schema other_schema)],
    moniker_parts => [qw(schema name)],
    constraint => [
    moniker_parts => [qw(schema name)],
    moniker_map => {
ILMARI/DBIx-Class-Schema-Loader-0.07046 14 more files »
Tcl-Tk-1.04/lib/Tcl/Tk.pm
     Checkbutton => ['checkbutton', 'cb',],
     Canvas      => ['canvas', 'can', undef, undef, [qw[raise lower]]],
     Entry       => ['entry', 'ent',],
VKON/Tcl-Tk-1.04 7 more files »
autodie-2.29/lib/Fatal.pm
my %TAGS = (
    ':io'      => [qw(:dbm :file :filesys :ipc :socket
                       read seek sysread syswrite sysseek )],
                       read seek sysread syswrite sysseek )],
    ':dbm'     => [qw(dbmopen dbmclose)],
    ':file'    => [qw(open close flock sysopen fcntl binmode
    ':dbm'     => [qw(dbmopen dbmclose)],
    ':file'    => [qw(open close flock sysopen fcntl binmode
                     ioctl truncate)],
51 more matches »
PJF/autodie-2.29 1 more file »
Tripletail-0.50/doc/Tripletail/HtmlFilter.html
     # a, form, b要素のみ検出する。bは閉じタグも見る。それ以外は見ない。
     interest =&gt; [qw(^a$ form /?b)], # 正規表現の配列
     
     # Tripletail::HtmlFilter::Elementのオブジェクトを得る事が出来る。
     track =&gt; [qw(select option)], # 正規表現の配列
     
HIO/Tripletail-0.50 20 more files »
Fry-Shell-0.15/lib/Fry/Error.pm
			ie: die('really strange',{tags=>[qw/bizarre/]})
BOZO/Fry-Shell-0.15 13 more files »
Tk-ROSyntaxText-1.001/lib/Tk/ROSyntaxText.pm
my $DEFAULT_FG = q{#000000};
my $DEFAULT_FONT = [qw{
    -family Courier -size 10 -weight normal -slant roman
    $self->ConfigSpecs(
        q{-char_subs}         => [qw{PASSIVE charSubs CharSubs}, {}],
        q{-custom_config}     => [qw{PASSIVE customConfig CustomConfig}, {}],
     q{-char_subs}         => [qw{PASSIVE charSubs CharSubs}, {}],
        q{-custom_config}     => [qw{PASSIVE customConfig CustomConfig}, {}],
        q{-dark_style}        => [qw{PASSIVE darkStyle Dar
26 more matches »
KCOTT/Tk-ROSyntaxText-1.001 1 more file »
JE-0.066/lib/JE.pm
			argnames => ['x'],
			function_args => [qw< args >],
			function => sub {
			name   => 'parseInt', # E 15.1.2.2
			argnames => [qw/string radix/],
			no_proto => 1,
			no_proto => 1,
			function_args => [qw< scope args >],
			function => sub {
10 more matches »
SPROUT/JE-0.066 12 more files »
Lorem-0.22/examples/sudoku.pl
my $puzzle = [
    [qw( x 8 x x 4 9 6 1 x) ],
    [qw( x x x x 2 x 9 4 3) ],
    [qw( x 8 x x 4 9 6 1 x) ],
    [qw( x x x x 2 x 9 4 3) ],
    [qw( x x 2 3 6 x x x x) ],
    [qw( x x x x 2 x 9 4 3) ],
    [qw( x x 2 3 6 x x x x) ],
    [qw( x x x x x 8 x 3 x) ],
6 more matches »
JHALLOCK/Lorem-0.22 17 more files »
Data-Tubes-0.736/eg/example01.pl
summon(
   [qw< +Plumbing sequence >],
   [qw< +Source iterate_files >],
   [qw< +Plumbing sequence >],
   [qw< +Source iterate_files >],
   [qw< +Reader read_by_line >],
   [qw< +Source iterate_files >],
   [qw< +Reader read_by_line >],
   [qw< +Parser parse_hashy >],
3 more matches »
POLETTIX/Data-Tubes-0.736 12 more files »
ShiftJIS-Regexp-1.03/Regexp.pm
%EXPORT_TAGS = (
    're'    => [qw(re mkclass rechar)],
    'op'    => [qw(match replace)],
    're'    => [qw(re mkclass rechar)],
    'op'    => [qw(match replace)],
    'split' => [qw(jsplit splitchar splitspace)],
    'op'    => [qw(match replace)],
    'split' => [qw(jsplit splitchar splitspace)],
);
SADAHIRO/ShiftJIS-Regexp-1.03 1 more file »
Input-Validator-0.001005/lib/Input/Validator.pm
    $validator->field('phone')->required(1)->regexp(qr/^\d+$/);
    $validator->field([qw/firstname lastname/])
      ->each(sub { shift->required(1)->length(3, 20) });
    # Groups
    $validator->field([qw/password confirm_password/])
      ->each(sub { shift->required(1) });
      ->each(sub { shift->required(1) });
    $validator->group('passwords' => [qw/password confirm_password/])->equal;
2 more matches »
VTI/Input-Validator-0.001005 14 more files »
Bio-Das-Lite-2.11/eg/comparison
use vars qw($SOURCES);
$SOURCES  = [qw(http://servlet.sanger.ac.uk/das/ensembl1834
	        http://das.sanger.ac.uk/das/spectral35)];
RPETTETT/Bio-Das-Lite-2.11 3 more files »
Bio-BioStudio-2.11/bin/BS_ChromosomeSegmenter.pl
our %NTIDES = (
  A => [qw(A)],     T => [qw(T)],     C => [qw(C)],     G => [qw(G)],
  R => [qw(A G)],   Y => [qw(C T)],   W => [qw(A T)],   S => [qw(C G)],
our %NTIDES = (
  A => [qw(A)],     T => [qw(T)],     C => [qw(C)],     G => [qw(G)],
  R => [qw(A G)],   Y => [qw(C T)],   W => [qw(A T)],   S => [qw(C G)],
our %NTIDES = (
  A => [qw(A)],     T => [qw(T)],     C => [qw(C)],     G => [qw(G)],
  R => [qw(A G)],   Y => [qw(C T)],   W => [qw(A T)],   S => [qw(C G)],
12 more matches »
NOTDOCTOR/Bio-BioStudio-2.11 19 more files »
CPAN-Search-Lite-0.78/Apache2/Apache2/DocServer.pm
                                            max_results => $max_results);
  my $fields = [qw(doc dist_name)];
  $query->query(mode => 'module', name => $mod, fields => $fields);
                                            max_results => $max_results);
  my $fields = [qw(readme)];
  $query->query(mode => 'dist', name => $dist, fields => $fields);
ISHIGAKI/CPAN-Search-Lite-0.78 13 more files »
Import-Base-1.003/lib/Import/Base.pm
        # Disable uninitialized warnings
        '-warnings' => [qw( uninitialized )],
        # Test for minimum version
            my ( $bundles, $args ) = @_;
            return "My::MoreModule" => [qw( fuzz )];
        },
        with_signatures => [
            'feature' => [qw( signatures )],
            # Put this last to make sure nobody else can re-enable this warning
21 more matches »
PREACTION/Import-Base-1.003 12 more files »
Home · About