CPAN->GREP


51 to 75 of more than 1000 distributions (1.58 seconds)
ShiftJIS-Collate-1.10/sample/daihyo.txt
my @data = (
  [qw/ ƒÉŒvŽZ   ‚ç‚Þ‚¾‚¯‚¢‚³‚ñ /],
  [qw/ JIS”ԍ†  ‚¶‚·‚΂ñ‚²‚¤   /],
  [qw/ ƒÉŒvŽZ   ‚ç‚Þ‚¾‚¯‚¢‚³‚ñ /],
  [qw/ JIS”ԍ†  ‚¶‚·‚΂ñ‚²‚¤   /],
  [qw/ ˆÀ’B     ‚ ‚¾‚¿         /],
  [qw/ JIS”ԍ†  ‚¶‚·‚΂ñ‚²‚¤   /],
  [qw/ ˆÀ’B     ‚ ‚¾‚¿         /],
  [qw/ ˆÀ“¡     ‚ ‚ñ‚Ç‚¤       /],
24 more matches »
SADAHIRO/ShiftJIS-Collate-1.10 2 more files »
DDG-1016/lib/DDG/Block.pm
  my $block = DDG::Block::MyType->new( plugins => [qw(
    DDG::Goodie::A
DDG/DDG-1016 10 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 »
MooX-Options-4.023/lib/MooX/Options.pm
  use MooX::Options flavour => [qw( pass_through )];
  use MooX::Options skip_options => [qw/multi/];
CELOGEEK/MooX-Options-4.023 9 more files »
Mojolicious-Plugin-Toto-0.25/eg/beer_menu.pl
    beer => {
        many => [qw/search browse/],
        one  => [qw/picture ingredients pubs/],
        many => [qw/search browse/],
        one  => [qw/picture ingredients pubs/],
    },
    pub => {
        many => [qw/map list search/],
        one  => [qw/info comments/],
1 more match »
BDUGGAN/Mojolicious-Plugin-Toto-0.25 9 more files »
Complete-Getopt-Long-0.46/lib/Complete/Getopt/Long.pm
 unambiguously to exactly one key/element in
# $opts, otherwise return undef. e.g. _expand1('--fo', [qw/--foo --bar --baz
# --fee --feet/]) and _expand('--fee', ...) will respectively return '--foo' and
            if ($ospec && $ospec eq 'format=s') {
                complete_array_elem(array=>[qw/json text xml yaml/], word=>$word);
            } else {
         if ($ospec && $ospec eq 'format=s') {
             complete_array_elem(array=>[qw/json text xml yaml/], word=>$word);
         } else {
PERLANCAR/Complete-Getopt-Long-0.46 1 more file »
HTML-Template-Compiled-1.003/examples/bench.pl
        global_vars => $GLOBAL_VARS,
        tagstyle => [qw(-asp -comment)],
		expire_time => 1000,
        debug => 0,
        tagstyle => [qw(-asp -comment)],
		expire_time => 1000,
	loopa => [{a=>3},{a=>4},{a=>5}],
	#a => [qw(b c d)],
	loopb => [{ inner => 23 }],
TINITA/HTML-Template-Compiled-1.003 20 more files »
Module-AnyEvent-Helper-v0.0.5/lib/Module/AnyEvent/Helper/Filter.pm
	$arg{$_} ||= [] for @keys;
	my $trans_arg = join ",\n", map { $_." => [qw(@{$arg{$_}})]" } @keys;
	if(exists $arg{-transformer}) {
  use Module::AnyEvent::Helper::Filter -as => FooAsync, -target => Foo,
       -remove_func => [qw(impl)], -translate_func => [qw(func)];
  1;
  use Module::AnyEvent::Helper::Filter -as => FooAsync, -target => Foo,
       -remove_func => [qw(impl)], -translate_func => [qw(func)];
  1;
YAKEX/Module-AnyEvent-Helper-v0.0.5 12 more files »
Acme-TextLayout-0.01/t/01-test.t
# test fetching a particular line in pattern
ok(check([qw(J h r)], $tl->order(0)));
# test possible direction methods for right answers
# test possible direction methods for right answers
ok(check([qw(h)], $tl->right('J')));
ok(check([qw(r)], $tl->right('h')));
ok(check([qw(h)], $tl->right('J')));
ok(check([qw(r)], $tl->right('h')));
ok(check([], $tl->right('A')));
36 more matches »
THECRAMPS/Acme-TextLayout-0.01
ASP4x-Linker-1.003/lib/ASP4x/Linker.pm
    name  => "widgetA",
    attrs => [qw( page_size page_number sort_col sort_dir )]
  );
    name  => "widgetB",
    attrs => [qw( keywords tag start_date stop_date )]
  );
    name  => 'albums',
    attrs => [qw( page sort )]
  );
1 more match »
JOHND/ASP4x-Linker-1.003 7 more files »
Getopt-EvaP-2.8/DisU.pl
	');
    $uht->insert('end', 's', [qw(underline color2)]);
    $uht->insert('end', 'tring ');
    $uht->insert('end', 'tring ');
    $uht->insert('end', 'i', [qw(underline color2)]);
    $uht->insert('end', 'nteger ');
    $uht->insert('end', 'nteger ');
    $uht->insert('end', 'r', [qw(underline color2)]);
    $uht->insert('end', 'eal ');
28 more matches »
LUSOL/Getopt-EvaP-2.8 3 more files »
Pg-Loader-0.21/lib/Pg/Loader/Misc.pm
        my $values = shift;
        # receives a array of strings like [qw(a:1 b c:4 d:3)] and returns
        # an arrayref of ordered columns: [q( a b d c )]
IOANNIS/Pg-Loader-0.21 10 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 »
Type-Tiny-1.000006/lib/Type/Registry.pm
		{
			$types ||= [qw/-types/];
			ArrayLike->check($types)
TOBYINK/Type-Tiny-1.000006 21 more files »
FlatFile-0.11/FlatFile.pm
  my $password = FlatFile->new(FILE => $filename, 
                   FIELDS => [qw(username password uid gid gecos home shell)],
                   MODE => "+<",  # "<" for read-only access
MJD/FlatFile-0.11 12 more files »
Test-STDmaker-0.23/lib/Docs/Site_SVD/Test_STDmaker.pm
%INVENTORY = (
    'lib/Docs/Site_SVD/Test_STDmaker.pm' => [qw(0.23 2004/05/24), 'revised 0.22'],
    'MANIFEST' => [qw(0.23 2004/05/24), 'generated, replaces 0.22'],
  'lib/Docs/Site_SVD/Test_STDmaker.pm' => [qw(0.23 2004/05/24), 'revised 0.22'],
    'MANIFEST' => [qw(0.23 2004/05/24), 'generated, replaces 0.22'],
    'Makefile.PL' => [qw(0.23 2004/05/24), 'generat
    'MANIFEST' => [qw(0.23 2004/05/24), 'generated, replaces 0.22'],
    'Makefile.PL' => [qw(0.23 2004/05/24), 'generated, replaces 0.22'],
    'README' => [qw(0.23 2004/05/24), 'generated, r
34 more matches »
SOFTDIA/Test-STDmaker-0.23
Tk-DBIx-0.01/DBIx/Form.pm
	$obj->ConfigSpecs(
        -editRecord   	=> [qw/METHOD  editRecord      EditRecord/,   undef ],
        -deleRecord	=> [qw/METHOD  deleRecord      DeleRecord/,   undef ],
      -editRecord   	=> [qw/METHOD  editRecord      EditRecord/,   undef ],
        -deleRecord	=> [qw/METHOD  deleRecord      DeleRecord/,   undef ],
        -newRecord	=> [qw/METHOD  newRecord       
        -deleRecord	=> [qw/METHOD  deleRecord      DeleRecord/,   undef ],
        -newRecord	=> [qw/METHOD  newRecord       NewRecord/,    undef ],
        -dsplRecord	=> [qw/METHOD  dsplRecord     
5 more matches »
XPIX/Tk-DBIx-0.01 3 more files »
Data-FeatureFactory-0.0405/Data-FeatureFactory/lib/Data/FeatureFactory.pm
 # specify the features to evaluate and gather the result in binary form
 my @vector = $f->evaluate([qw(no_of_letters first_letter)], 'binary', 'foo');
SIXTEASE/Data-FeatureFactory-0.0405 2 more files »
Sort-Naturally-XS-0.7.6/t/Sort-Naturally-XS-ncmp.t
# CCXX-1 test
my $ar_mostly_digit = [qw/1100x1400 2000x2200 1400x2050 2200x2400 1500x2000 2200x2600 1720x2050 2400x2400 1800x2200
    2400x2600/];
    2400x2600/];
my $ar_mostly_digit__expected = [qw/1100x1400 1400x2050 1500x2000 1720x2050 1800x2200 2000x2200 2200x2400 2200x2600
    2400x2400 2400x2600/];
my $ar_mixed_simple = [qw/test21 test20 test10 test11 test2 test1/];
my $ar_mixed_simple__expected = [qw/test1 test2 test10 test11 test20 test21/];
9 more matches »
SERVAL/Sort-Naturally-XS-0.7.6 2 more files »
Set-IntSpan-1.19/t/relation.t
my $Equal = 
    [[qw( 1 0 0 0 0 0 0 0 0 )],
     [qw( 0 1 0 0 0 0 0 0 0 )],
    [[qw( 1 0 0 0 0 0 0 0 0 )],
     [qw( 0 1 0 0 0 0 0 0 0 )],
     [qw( 0 0 1 0 0 0 0 0 0 )],
     [qw( 0 1 0 0 0 0 0 0 0 )],
     [qw( 0 0 1 0 0 0 0 0 0 )],
     [qw( 0 0 0 1 0 0 0 0 0 )],
33 more matches »
SWMCD/Set-IntSpan-1.19
Games-Mastermind-0.06/lib/Games/Mastermind.pm
        # blacK Blue Green Red Yellow White
        pegs  => [qw( K B G R Y W )],
        holes => 4,
    pegs  => [qw( B C G R Y W )]
    holes => 4
BOOK/Games-Mastermind-0.06 2 more files »
Alt-CWB-ambs-2.2.102.5/lib/CWB.pm
    if ($Paranoid < 0) {
      $action = [qw<2 2 2 2 1 1 0>]->[$errlevel];
    }
    elsif ($Paranoid == 0) {
      $action = [qw<2 2 2 1 1 0 0>]->[$errlevel];
    }
    else {
      $action = [qw<2 1 0 0 0 0 0>]->[$errlevel];
    }
AMBS/Alt-CWB-ambs-2.2.102.5 1 more file »
ObjectDB-3.19/lib/ObjectDB.pm
        table          => 'author',
        columns        => [qw/id name/],
        primary_key    => 'id',
        table          => 'book',
        columns        => [qw/id author_id title/],
        primary_key    => 'id',
VTI/ObjectDB-3.19 17 more files »
HTTPD-User-Manage-1.66/lib/HTTPD/GroupAdmin.pm
#These should work fine with the _generic classes
my %Support = (apache =>   [qw(Text SQL)],
	       ncsa   =>   [qw(DBM Text)],
my %Support = (apache =>   [qw(Text SQL)],
	       ncsa   =>   [qw(DBM Text)],
	       netscape => [qw(DBM)]
	       ncsa   =>   [qw(DBM Text)],
	       netscape => [qw(DBM)]
	       );
LDS/HTTPD-User-Manage-1.66 6 more files »
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 »
Home · About