CPAN->GREP


126 to 150 of more than 1000 distributions (1.90 seconds)
Test-Wiretap-1.01/lib/Test/Wiretap.pm
use Class::Delegator
  send => [qw(
    args
AIRWAVE/Test-Wiretap-1.01 4 more files »
App-locket-0.0022/lib/App/locket.pm
has locket => qw/ reader locket writer _locket isa App::locket::Locket lazy_build 1 /, handles =>
    [qw/
        cfg plaincfg write_cfg reload_cfg can_read read passphrase require_passphrase
has [qw/ query found /] => qw/ is rw isa ArrayRef /, default => sub { [] };
ROKR/App-locket-0.0022 2 more files »
Parse-Path-0.92/lib/Parse/Path.pm
    $path .= 'q.r.s[1]';
    $path .= [qw( q r s[1] )];
BBYRD/Parse-Path-0.92 9 more files »
Types-Numbers-0.94/t/00-report-prereqs.t
        my $title = ucfirst($phase).' '.ucfirst($type);
        my @reports = [qw/Module Want Have/];
BBYRD/Types-Numbers-0.94 1 more file »
PMLTQ-1.4.0/lib/PMLTQ/_Parser.pm
           Parse::RecDescent::_Runtime::Production::_update_itempos($_itempos, $itempos[ 1], undef, [qw(from)]);
            Parse::RecDescent::_Runtime::Production::_update_itempos($_itempos, $itempos[-
           Parse::RecDescent::_Runtime::Production::_update_itempos($_itempos, $itempos[-1], undef, [qw(to)]);
        }
              Parse::RecDescent::_Runtime::Production::_update_itempos(
                  $_itempos, $itemposfirst, undef, [qw(from)]);
          }
1 more match »
MATY/PMLTQ-1.4.0 7 more files »
Net-ICal-0.15/ChangeLog.detailed
	
	"You need to add options => [qw(altrep language)] to the summary
	map in ETJ.pm for RFC2445 compliance."
SRL/Net-ICal-0.15 9 more files »
Lingua-JA-WordNet-0.21/t/02_word.t
my @words = $wn->Word('00448232-n');
is_deeply(\@words, [qw/大相撲 角力 角技 相撲/]);
@words = $wn->Word('00448232-n', 'jpn');
is_deeply(\@words, [qw/大相撲 角力 角技 相撲/]);
@words = $wn->Word('00448232-n', 'eng');
is_deeply(\@words, [qw/sumo/]);
PAWAPAWA/Lingua-JA-WordNet-0.21 4 more files »
Getopt-LL-1.0.0/t/aliases.t
my $argv = [qw( -j over -X --the lazy --oops -d 10 the -f myfile.txt --quicker brown fox)];
my $rules = {
    '-jumps|-j'    => {type => 'string', alias => [qw(--you --down --with --opp)]},
    '--the'     => 'string', #{ type => 'string', default => 'monster' },
ASKSH/Getopt-LL-1.0.0 13 more files »
Class-DBI-v3.0.17/lib/Class/DBI.pm
  Film->constrain_column(year => qr/^\d{4}$/);
  Film->constrain_column(rating => [qw/U Uc PG 12 15 18/]);
  Film->constrain_column(title => sub { length() <= 20 });
TMTM/Class-DBI-v3.0.17 6 more files »
Module-Husbandry-0.002/Makefile.PL
    VERSION_FROM  => 'lib/Module/Husbandry.pm',
    EXE_FILES     => [qw(
        bin/cppm bin/newpm bin/newpmbin bin/newpmdist bin/mvpm bin/rmpm
RBS/Module-Husbandry-0.002 1 more file »
Parse-VarName-0.03/t/01-basics.t
my @tests = (
    ['foo', [qw/foo/]],
    ['Foo', [qw/Foo/]],
    ['foo', [qw/foo/]],
    ['Foo', [qw/Foo/]],
    ['FOO', [qw/FOO/]],
    ['Foo', [qw/Foo/]],
    ['FOO', [qw/FOO/]],
    ['mTime', [qw/m Time/]],
17 more matches »
PERLANCAR/Parse-VarName-0.03
MooX-VariantAttribute-0.07/lib/MooX/VariantAttribute.pm
    my $target = caller;
    my %modifiers = return_modifiers( $target, [qw/has around with/] );
LNATION/MooX-VariantAttribute-0.07 6 more files »
Text-Clevery-0.0004/example/form.psgi
        ids   => [100, 101, 102],
        names => [qw(Apple Banana Strowberry)],
    );
GFUJI/Text-Clevery-0.0004 5 more files »
Unix-Passwd-File-0.24/lib/Unix/Passwd/File.pm
    args_rels => {
        'choose_one' => [qw/user uid/],
    },
    args_rels => {
        choose_one => [qw/user uid/],
    },
    args_rels => {
        choose_one => [qw/group gid/],
    },
1 more match »
PERLANCAR/Unix-Passwd-File-0.24 5 more files »
Bio-ToolBox-1.51/lib/Bio/ToolBox/Data.pm
=item columns =E<gt> [qw(Column1 Column2 ...)]
=item datasets =E<gt> [qw(Column1 Column2 ...)]
TJPARNELL/Bio-ToolBox-1.51 3 more files »
Math-BLAS-1.01/lib/Math/BLAS.pm
  $EXPORT_TAGS{sub}
    = [qw(blas_dot
	  blas_norm
RALPH/Math-BLAS-1.01 2 more files »
App-installdeps-v0.0.3/t/01-basic.t
	['-nX',  ['target/1.pl'], ['$_'], 'simple -nX'],
	['-nu',  ['target/1.pl'], [qw(Test::More App::installdeps)], 'simple -nu'],
	['-nru', ['target/1.pl'], [qw(Test::More App::instal
	['-nu',  ['target/1.pl'], [qw(Test::More App::installdeps)], 'simple -nu'],
	['-nru', ['target/1.pl'], [qw(Test::More App::installdeps)], 'simple -nru'],
	['-n',   ['target/2.pl'], [], 'eval -n'],
	['-n',   ['target/2.pl'], [], 'eval -n'],
	['-nu',  ['target/2.pl'], [qw(Test::More Test::Exception)], 'eval -nu'],
	['-nru', ['target/2.pl'], [qw(Test::More)], 'eval -nru'],
10 more matches »
YAKEX/App-installdeps-v0.0.3 1 more file »
Net-Async-Webservice-UPS-1.1.4/lib/Net/Async/Webservice/UPS/Payment.pm
    is => 'ro',
    isa => Enum[qw(prepaid third_party freight_collect)],
    default => 'prepaid',
DAKKAR/Net-Async-Webservice-UPS-1.1.4 3 more files »
Algorithm-SocialNetwork-0.07/lib/Algorithm/SocialNetwork.pod
    my $G = Graph::Undirected->new();
    $G->add_edges([qw(a b)], [qw(b c)]);
    my $algo = Algorithm::SocialNetwork->new(graph => $G3);
    my $G = Graph::Undirected->new();
    $G->add_edges([qw(a b)], [qw(b c)]);
    my $algo = Algorithm::SocialNetwork->new(graph => $G3);
GUGOD/Algorithm-SocialNetwork-0.07 6 more files »
Class-Multimethods-1.701/Class-Multimethods-1.700/demo/demo.inittable.pl
	my $windows  = [qw(Window ModalWindow MovableWindow ResizableWindow)];
	my $commands = [qw(Command Reshape Accept Move Resize MoveAndResize)];
	my $windows  = [qw(Window ModalWindow MovableWindow ResizableWindow)];
	my $commands = [qw(Command Reshape Accept Move Resize MoveAndResize)];
	my $modes    = [qw(Mode OnMode OffMode ModalMode)];
	my $commands = [qw(Command Reshape Accept Move Resize MoveAndResize)];
	my $modes    = [qw(Mode OnMode OffMode ModalMode)];
16 more matches »
DCONWAY/Class-Multimethods-1.701
sanity-1.03/lib/sanity.pm
my %ALIAS = (
   strict => [qw(strict/refs strict/subs strict/vars)],
   'feature/unicode'         => [qw(MULTI:feature/unicode feature/HINT/unicode)],
   'feature/unicode_strings' => 'feature/unicode',
   'autodie/ipc'     => [qw(MULTI:autodie/ipc autodie/msg autodie/semaphore autodie/shm)],
   'autodie/io'      => [qw(MULTI:au
15 more matches »
BBYRD/sanity-1.03 1 more file »
Finance-Quote-1.38/htdocs/tpj/finance-quote-example
my @STOCKS = ([qw/australia CML ITE BHP/],
	      [qw/usa MSFT RHAT LNUX/]
my @STOCKS = ([qw/australia CML ITE BHP/],
	      [qw/usa MSFT RHAT LNUX/]
	     );
ECOCODE/Finance-Quote-1.38 15 more files »
MooseX-Storage-IO-AmazonDynamoDB-0.08/lib/MooseX/Storage/IO/AmazonDynamoDB.pm
        is      => 'ro',
        isa     => HasMethods[qw(get put)],
        lazy    => 1,
      body     => 'blah blah',
      tags     => [qw(horse yellow angry)],
      authors  => {
              email => 'jdoe@gmail.com',
              roles => [qw(author reader)],
          },
1 more match »
SCALDWELL/MooseX-Storage-IO-AmazonDynamoDB-0.08 3 more files »
Class-Accessor-Inherited-XS-0.34/t/01_basic_obj.t
use Class::Accessor::Inherited::XS inherited => [qw/a b c/];
RANDIR/Class-Accessor-Inherited-XS-0.34 15 more files »
Quant-Framework-0.36/lib/Quant/Framework/Exchange.pm
has [qw(
        pretty_name
BINARY/Quant-Framework-0.36 10 more files »
Home · About