CPAN->GREP


126 to 150 of more than 1000 distributions (9.33 seconds)
Algorithm-Closest-NetworkAddress-0.1/t/compare.t
my @tests = (
	[qw(ops1.der.altinity mon.der.altinity)],
	[qw(ops2.der.altinity mon.der.altinity)],
	[qw(ops1.der.altinity mon.der.altinity)],
	[qw(ops2.der.altinity mon.der.altinity)],
	[qw(ops1.lon.altinity mon.lon.altinity)],
	[qw(ops2.der.altinity mon.der.altinity)],
	[qw(ops1.lon.altinity mon.lon.altinity)],
	[qw(excaliber.hub.altinity mon.hub.altinity)],
7 more matches »
TONVOON/Algorithm-Closest-NetworkAddress-0.1 1 more file »
SQL-Maker-1.21/author/benchmarks/simple.pl
    -1 => {
        'SQL::Abstract' => sub { $a->select(foo => [qw/a b/], {john => 4, man => 3}); },
        'SQL::Maker' => sub { $b->select(foo => [qw/a b/], {john => 4, man => 3}); },
        'SQL::Abstract' => sub { $a->select(foo => [qw/a b/], {john => 4, man => 3}); },
        'SQL::Maker' => sub { $b->select(foo => [qw/a b/], {john => 4, man => 3}); },
    },
TOKUHIROM/SQL-Maker-1.21 6 more files »
Graphics-Primitive-0.67/lib/Graphics/Primitive/Aligned.pm
enum 'Graphics::Primitive::Alignment::Horizontals' => [qw(center left right)];
enum 'Graphics::Primitive::Alignment::Verticals' => [qw(bottom center top)];
enum 'Graphics::Primitive::Alignment::Horizontals' => [qw(center left right)];
enum 'Graphics::Primitive::Alignment::Verticals' => [qw(bottom center top)];
GPHAT/Graphics-Primitive-0.67 10 more files »
Text-Amuse-Compile-0.90/lib/Text/Amuse/Compile.pm
               path  => File::Spec->catdir(qw/t merged-dir/),
               files => [qw/first second/],
MELMOTHX/Text-Amuse-Compile-0.90 9 more files »
Async-Defer-v1.0.0/t/4-last.t
($d->{op}, @result) = (q{}); $d->run();
is_deeply \@result, [qw(i=1 x i=2 do ca fi x i=3 x -)], 'without break';
($d->{op}, @result) = ('do'); $d->run();
($d->{op}, @result) = ('do'); $d->run();
is_deeply \@result, [qw(i=1 x i=2 do    fi         -)], 'break inside if/try';
($d->{op}, @result) = ('catch'); $d->run();
($d->{op}, @result) = ('catch'); $d->run();
is_deeply \@result, [qw(i=1 x i=2 do ca fi         -)], 'break inside catch';
($d->{op}, @result) = ('finally'); $d->run();
6 more matches »
POWERMAN/Async-Defer-v1.0.0 2 more files »
PMLTQ-1.3.1/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.3.1 7 more files »
DateTime-Format-Baby-1.0200/lib/DateTime/Format/Baby.pm
my %languages = (
    'en'      => {numbers => [qw /one two three four five six seven
                                      eight nine ten eleven twelve/],
                             "and the little hand is on the %s",
                  big     => [qw/big long large minute/],
                  little     => [qw/little small short hour/]},
                  big     => [qw/big long large minute/],
                  little     => [qw/little small short hour/]},
17 more matches »
JFORGET/DateTime-Format-Baby-1.0200
Array-CompareAndFilter-v1.100/lib/Array/CompareAndFilter.pm
    ],
    compare   => [qw(compareValue compareItem compareOrder)],
    substract => [qw(substractItem substractValue)],
    compare   => [qw(compareValue compareItem compareOrder)],
    substract => [qw(substractItem substractValue)],
);
 singularize([qw(d b d b c a)]);            # returns ('a','b','c','d')
 singularize([3,2,3,4,1]);                  # returns (1,2,3,4)
1 more match »
DADERUS/Array-CompareAndFilter-v1.100 3 more files »
File-Package-0.06/lib/Docs/Site_SVD/File_Package.pm
%INVENTORY = (
    'lib/Docs/Site_SVD/File_Package.pm' => [qw(0.06 2004/04/26), 'revised 0.05'],
    'MANIFEST' => [qw(0.06 2004/04/26), 'generated, replaces 0.05'],
   'lib/Docs/Site_SVD/File_Package.pm' => [qw(0.06 2004/04/26), 'revised 0.05'],
    'MANIFEST' => [qw(0.06 2004/04/26), 'generated, replaces 0.05'],
    'Makefile.PL' => [qw(0.06 2004/04/26), 'generat
    'MANIFEST' => [qw(0.06 2004/04/26), 'generated, replaces 0.05'],
    'Makefile.PL' => [qw(0.06 2004/04/26), 'generated, replaces 0.05'],
    'README' => [qw(0.06 2004/04/26), 'generated, r
13 more matches »
SOFTDIA/File-Package-0.06 2 more files »
Math-Cartesian-Product-1.009/lib/Math/Cartesian/Product.pm
 cartesian {print "@_\n"} [qw(a b c)], [1..2];
  my $a = [qw(a b)];
  my $b = [cartesian {1} $a, $a];
PRBRENAN/Math-Cartesian-Product-1.009 2 more files »
Class-DBI-FromCGI-1.00/lib/Class/DBI/FromCGI.pm
  __PACKAGE__->untaint_columns(
    printable => [qw/Title Director/],
    integer   => [qw/DomesticGross NumExplodingSheep/],
    printable => [qw/Title Director/],
    integer   => [qw/DomesticGross NumExplodingSheep/],
    date      => [qw/OpeningDate/],
    integer   => [qw/DomesticGross NumExplodingSheep/],
    date      => [qw/OpeningDate/],
  );
3 more matches »
TMTM/Class-DBI-FromCGI-1.00 2 more files »
Iterator-Simple-0.06/lib/Iterator/Simple.pm
$EXPORT_TAGS{basic} = [qw(iterator iter list is_iterator)];
$EXPORT_TAGS{utils} = [qw(
$EXPORT_TAGS{basic} = [qw(iterator iter list is_iterator)];
$EXPORT_TAGS{utils} = [qw(
	ifilter iflatten ichain izip ienumerate
  # iterable object
  $iterator = iter([qw(foo bar baz)]); # iterator from array ref
  $iterator = iter(IO::File->new($filename)); # iterator from GLOB
MICHAEL/Iterator-Simple-0.06 2 more files »
String-IRC-0.04/inc/Spiffy.pm
our @EXPORT_OK = (@EXPORT_BASE, qw(id WWW XXX YYY ZZZ));
our %EXPORT_TAGS = (XXX => [qw(WWW XXX YYY ZZZ)]);
HIROSE/String-IRC-0.04 2 more files »
ClearPress-v475.2.1/bin/clearpress
our $VERSION = q[475.2.1];
our $ASPECTS = [qw(read list add create edit update)];
__PACKAGE__->mk_accessors(__PACKAGE__->fields());
__PACKAGE__->has_a([qw(<% FOREACH supentity = has_a %><% supentity %> <% END %>)]);
__PACKAGE__->has_many([qw(<% FOREACH s
__PACKAGE__->has_a([qw(<% FOREACH supentity = has_a %><% supentity %> <% END %>)]);
__PACKAGE__->has_many([qw(<% FOREACH subentity = has_many %><% subentity %> <% END %>)]);
__PACKAGE__->has_all();
RPETTETT/ClearPress-v475.2.1 9 more files »
Net-FreeIPA-3.0.2/lib/Net/FreeIPA/API/Convert.pm
Readonly::Hash my %CONVERT_ALIAS => {
    str => [qw(unicode DNSName)],
};
STDWEIRD/Net-FreeIPA-3.0.2 3 more files »
Audio-XMMSClient-0.03/pm/XMMSClient.pod
  my $result = $conn->coll_query_ids($collection, {
          order       => [qw/artist album/],
          limit_start => 0,
  my $result = $conn->coll_query_infos($collection, {
          order       => [qw/artist/],
          limit_start => 0,
          limit_len   => 10,
          fetch       => [qw/artist/],
          group       => [qw/artist/],
1 more match »
FLORA/Audio-XMMSClient-0.03 4 more files »
Makefile-Parser-0.216/inc/Spiffy.pm
our @EXPORT_OK = (@EXPORT_BASE, qw(id WWW XXX YYY ZZZ));
our %EXPORT_TAGS = (XXX => [qw(WWW XXX YYY ZZZ)]);
AGENT/Makefile-Parser-0.216 3 more files »
Hypatia-Chart-Clicker-0.026/examples/hypatia_test_point.pl
    graph_type=>"Point",
    columns=>{x=>"col1",y=>[qw(col2 col3)]},
    dbi=>{
JACKMANEY/Hypatia-Chart-Clicker-0.026 8 more files »
DBIx-Path-0.03/t/2-list.t
my @tests=(
    { name => 'root', node => $root, ret => [qw(usr var tmp home)] },
	{ name => 'usr', node => $root->get('usr'), ret => [qw(bin local)] },
    { name => 'root', node => $root, ret => [qw(usr var tmp home)] },
	{ name => 'usr', node => $root->get('usr'), ret => [qw(bin local)] },
	{ name => 'tmp', node => $root->get('tmp'), ret => [] }
BRENTDAX/DBIx-Path-0.03 2 more files »
App-ElasticSearch-Utilities-5.3/lib/App/ElasticSearch/Utilities.pm
    groups => {
        config  => [qw(es_globals)],
        default => [qw(es_connect es_indices es_request)],
        config  => [qw(es_globals)],
        default => [qw(es_connect es_indices es_request)],
        indices => [qw(:default es_indices_meta)],
        default => [qw(es_connect es_indices es_request)],
        indices => [qw(:default es_indices_meta)],
        index   => [qw(:default es_index_valid es_index_fields es_index
1 more match »
BLHOTSKY/App-ElasticSearch-Utilities-5.3 5 more files »
Dumbbench-0.10/lib/Dumbbench.pm
use Class::XSAccessor {
  getters => [qw(
    target_rel_precision
  )],
  accessors => [qw(verbosity)],
};
  $bench->add_instances(
    Dumbbench::Instance::Cmd->new(command => [qw(perl -e 'something')]), 
    Dumbbench::Instance::PerlEval->new(code => 'for(1..1e7){something}'),
SMUELLER/Dumbbench-0.10 7 more files »
App-Sky-0.2.1/lib/App/Sky/Module.pm
        {
            base_upload_cmd => [qw(rsync -a -v --progress --inplace)],
            dest_upload_prefix => 'hostgator:public_html/',
SHLOMIF/App-Sky-0.2.1 2 more files »
Amon2-Plugin-Web-FormValidator-Simple-0.04/lib/Amon2/Plugin/Web/FormValidator/Simple.pm
        $c->form(
            team => [qw!NOT_BLANK!, [qw!LENGTH 1 10!]],
            name => [qw!NOT_BLANK!, [qw!LENGTH 1 10!]],
        $c->form(
            team => [qw!NOT_BLANK!, [qw!LENGTH 1 10!]],
            name => [qw!NOT_BLANK!, [qw!LENGTH 1 10!]],
            team => [qw!NOT_BLANK!, [qw!LENGTH 1 10!]],
            name => [qw!NOT_BLANK!, [qw!LENGTH 1 10!]],
        );
1 more match »
DELPHINUS/Amon2-Plugin-Web-FormValidator-Simple-0.04 3 more files »
Games-RolePlay-MapGen-1.5008/MapGen/Editor.pm
    $eb->add_events([qw(leave-notify-mask pointer-motion-mask pointer-motion-hint-mask)]);
    $eb->signal_connect( motion_notify_event => sub { $this->marea_motion_notify_event($s_up, @_); 0; });
    my $minor_dirs = {
        n => [qw(e w)],
        s => [qw(e w)],
        n => [qw(e w)],
        s => [qw(e w)],
6 more matches »
JETTERO/Games-RolePlay-MapGen-1.5008 3 more files »
File-SubPM-0.05/lib/Docs/Site_SVD/File_SubPM.pm
%INVENTORY = (
    'lib/Docs/Site_SVD/File_SubPM.pm' => [qw(0.05 2004/05/04), 'revised 0.04'],
    'MANIFEST' => [qw(0.05 2004/05/04), 'generated, replaces 0.04'],
    'lib/Docs/Site_SVD/File_SubPM.pm' => [qw(0.05 2004/05/04), 'revised 0.04'],
    'MANIFEST' => [qw(0.05 2004/05/04), 'generated, replaces 0.04'],
    'Makefile.PL' => [qw(0.05 2004/05/04), 'generat
    'MANIFEST' => [qw(0.05 2004/05/04), 'generated, replaces 0.04'],
    'Makefile.PL' => [qw(0.05 2004/05/04), 'generated, replaces 0.04'],
    'README' => [qw(0.05 2004/05/04), 'generated, r
13 more matches »
SOFTDIA/File-SubPM-0.05
Home · About