CPAN->GREP


76 to 100 of more than 1000 distributions (1.96 seconds)
CSV-HistoryPlayer-0.03/t/00-report-prereqs.t
        my $title   = ucfirst($phase) . ' ' . ucfirst($type);
        my @reports = [qw/Module Want Have/];
BINARY/CSV-HistoryPlayer-0.03 1 more file »
CGI-Widget-DBI-Browse-0.17/lib/CGI/Widget/DBI/TEST/Browse.pm
on state_or_province/ ];
    $self->{wb}->{-category_sql_retrieve_columns} = { state_or_province => [qw/nation/] };
    $self->{wb}->{-category_column_closures} = {
    $self->assert_table_contents_equal(
        'cities', [qw/city_no continent country state_or_province name description population/],
        [
    $self->assert_table_contents_equal(
        'browse_widget_category_cache', [qw/category_column category_value child_value/],
        [
25 more matches »
ADIRAJ/CGI-Widget-DBI-Browse-0.17
Scalar-Does-0.203/lib/IO/Detect.pm
	our %EXPORT_TAGS = (
		smartmatch => [qw( FileHandle FileName FileUri )],
	);
			-as     => 'is_slurpable',
			methods => [qw(getlines close)],
		};
TOBYINK/Scalar-Does-0.203 2 more files »
Number-Object-0.03/lib/Number/Object.pm
  use Number::Object components => [qw/ Simple /], plugins => [qw/ Tax::JP /];
  my $num = Number::Object->new(10000);
  use Number::Object components => [qw/ Simple /], plugins => [qw/ Tax::JP /];
  my $num = Number::Object->new(10000);
  my $price = Number::Object->new(100, {
    load_plugins => [qw/ Tax /],
    config => {
YAPPO/Number-Object-0.03 12 more files »
App-SD-0.75/lib/App/SD/Replica/gcode.pm
        : (
            active_statuses => [qw/new accepted started/],
            statuses        => [
SPANG/App-SD-0.75 8 more files »
XML-Rabbit-0.4.1/bin/xpath_extract
        isa         => 'ArrayRef[Str]',
        traits      => [qw(XPathValueList)],
        xpath_query => sub { shift->xpath },
        isa         => 'ArrayRef[XPathObject]',
        traits      => [qw(XPathObjectList)],
        xpath_query => sub { shift->xpath },
ROBINS/XML-Rabbit-0.4.1 15 more files »
Text-CSV-1.95/lib/Text/CSV.pm
 my $csv = [ [qw( Foo Bar )], [ 1, 2 ], [ 2, 3 ]];
 my $err = csv (in => $csv, out => "file.csv");
 my $aoh = csv (in => $fh, headers => [qw( Foo Bar )]);
 csv (in => $aoa, out => $fh, headers => [qw( code description price )]);
 my $aoh = csv (in => $fh, headers => [qw( Foo Bar )]);
 csv (in => $aoa, out => $fh, headers => [qw( code description price )]);
ISHIGAKI/Text-CSV-1.95 7 more files »
Perl-PrereqScanner-NotQuiteLite-0.50/lib/Perl/PrereqScanner/NotQuiteLite.pm
  my %should_ignore;
  for my $parser (@{$list || [qw/:default/]}) {
    if ($parser eq ':installed') {
  my $scanner = Perl::PrereqScanner::NotQuiteLite->new(
    parsers => [qw/:installed -UniversalVersion/],
    suggests => 1,
  my $scanner = Perl::PrereqScanner::NotQuiteLite->new(
    parsers => [qw/+PrereqParser::For::MyProject/],
  );
ISHIGAKI/Perl-PrereqScanner-NotQuiteLite-0.50 5 more files »
Data-Table-Text-20170819/lib/Data/Table/Text.pm
      push @method, indentString(formatTable([[qw(Parameter Description)],
        map{[$parameters[$_], $parmDescriptions[$_]]} keys @parameters]), '  ')
ay STDERR "\n","\nsay STDERR formatTable(",dump($_), ");\n# ", formatTable($_) =~ s/\n/\n# /gr for
[[qw(. aa bb cc)], [qw(1 A B C)], [qw(2 AA BB CC)], [qw(3 AAA BBB CCC)],  [qw(4 1 22 333)]],
[{aa=>'A', 
say STDERR formatTable(",dump($_), ");\n# ", formatTable($_) =~ s/\n/\n# /gr for
[[qw(. aa bb cc)], [qw(1 A B C)], [qw(2 AA BB CC)], [qw(3 AAA BBB CCC)],  [qw(4 1 22 333)]],
[{aa=>'A', bb=>'B', cc=>'C'},
25 more matches »
PRBRENAN/Data-Table-Text-20170819
POOF-1.4/lib/POOF.pm
            'type' => 'enum',
            'options' => [qw(red blue green)]
        }
            'max' => 120,
            'groups' => [qw(PersonalInfo Profile)]
        }
            'type' => 'enum',
            'options' => [qw(Parent Self Spouse Children)]
        }
2 more matches »
BMILLARES/POOF-1.4 9 more files »
Lucy-0.6.1/Build.PL
    no_index => {
        directory => [qw( buildlib devel sample )],
        package   => [qw( Lucy::Test )],
        directory => [qw( buildlib devel sample )],
        package   => [qw( Lucy::Test )],
    },
    },
    meta_merge => { keywords => [qw( search lucy lucene )], },
    meta_add   => {
NWELLNHOF/Lucy-0.6.1 14 more files »
Importer-0.024/lib/Importer.pm
    return (
        export_ok   => [qw/optimal_import/],
        export_anon => {
    our %EXPORT_TAGS = (
        oos => [qw/foo boo zoo/],
        ees => [qw/fee bee zee/],
        oos => [qw/foo boo zoo/],
        ees => [qw/fee bee zee/],
    );
EXODIST/Importer-0.024 6 more files »
Closure-Explicit-0.002/examples/benchmark.pl
			my $x = [];
			my $code = callback { $x } [qw($x)];
			$code->();
TEAM/Closure-Explicit-0.002 9 more files »
Sub-Exporter-Progressive-0.001013/lib/Sub/Exporter/Progressive.pm
 use Sub::Exporter::Progressive -setup => {
   exports => [qw( break gather gathered take )],
   groups => {
   groups => {
     default => [qw( break gather gathered take )],
   },
FREW/Sub-Exporter-Progressive-0.001013 4 more files »
Test-Fixture-DBI-0.09/Build.PL
    script_files => [glob('script/*'), glob('bin/*')],
    c_source     => [qw()],
    PL_files => {},
ZIGOROU/Test-Fixture-DBI-0.09 6 more files »
Catalyst-Controller-DBIC-API-2.006002/lib/Catalyst/Controller/DBIC/API.pm
      $c->stash->{class} = 'MyAppDB::Artist';
      $c->stash->{create_requires} = [qw/name/];
      $c->stash->{update_allows} = [qw/name/];
      $c->stash->{create_requires} = [qw/name/];
      $c->stash->{update_allows} = [qw/name/];
    } else {
 search_exposes => [qw/position/, { cd => ['*'] }]
1 more match »
ABRAXXA/Catalyst-Controller-DBIC-API-2.006002 11 more files »
PDF-Builder-3.005/lib/PDF/Builder.pm
    }
    $self->{'infoMeta'}=[qw(Author CreationDate ModDate Creator Producer Title Subject Keywords)];

    $self->{'fonts'} = {};
    $self->{'infoMeta'} = [qw(Author CreationDate ModDate Creator Producer Title Subject Keywords)];

PMPERRY/PDF-Builder-3.005 2 more files »
App-Framework-1.07/examples/eg-sql.pl
					'where'	=> {
						'vars'	=> [qw/pid channel/],
						'vals'	=> \%sql_vars,
						'sql' => '`pid`>=? AND `channel`=?',
						'vars'	=> [qw/pid channel/],
						'vals'	=> \%sql_vars,
						'sql' => '`pid`>=? AND `channel`=?',
						'vars'	=> [qw/pid channel/],
						'vals'	=> \%sql_vars,
2 more matches »
SDPRICE/App-Framework-1.07 10 more files »
B-C-1.55/bytecode.pl
my %alias_to = (
                U32 => [qw(line_t)],
                PADOFFSET => [qw(STRLEN SSize_t)],
                U32 => [qw(line_t)],
                PADOFFSET => [qw(STRLEN SSize_t)],
                U16 => [qw(OPCODE short)],
                PADOFFSET => [qw(STRLEN SSize_t)],
                U16 => [qw(OPCODE short)],
                U8  => [qw(char)],
5 more matches »
RURBAN/B-C-1.55 3 more files »
Term-ReadLine-Perl5-1.43/lib/Term/ReadLine/Perl5/OO.pm
use Class::Accessor::Lite 0.05 (
    rw => [qw(completion_callback rl_MaxHistorySize)],
);
ROCKY/Term-ReadLine-Perl5-1.43 2 more files »
Github-Import-0.07/lib/Github/Import.pm
has use_config_file => (
    traits  => [qw(NoGetopt)],
    isa     => "Bool",
has config_file => (
    traits        => [qw(Getopt)],
    isa           => File,
has git_handle => (
    traits => [qw(NoGetopt)],
    isa => "Git",
23 more matches »
JROCKWAY/Github-Import-0.07
Unix-Statgrab-0.111/t/01-methods.t
    ],
    get_disk_io_stats => [qw/disk_name read_bytes write_bytes systime/],
    get_fs_stats      => [
    ],
    get_load_stats          => [qw/min1 min5 min15 systime/],
    get_mem_stats           => [qw/total free used cache systime/],
    get_load_stats          => [qw/min1 min5 min15 systime/],
    get_mem_stats           => [qw/total free used cache systime/],
    get_swap_stats          => [qw/total free used systime/],
7 more matches »
REHSACK/Unix-Statgrab-0.111 2 more files »
App-CatalystStarter-Bloated-v0.9.3/Makefile.PL
    clean               => { FILES => 'App-CatalystStarter-Bloated-*' },
    EXE_FILES           => [qw{bin/catalyst-fatstart.pl}],
);
TORBJORN/App-CatalystStarter-Bloated-v0.9.3 6 more files »
Modern-PBP-Perl-1.240/lib/Modern/PBP/Perl.pm
our %FEATURES = (
   array_base      => [qw( 5.10 5.12 5.14 ++++ ++++ ++++ ++++ ++++ )],
   bitwise         => [qw( ---- ---- ---- ---- ---- ---- ++++ ++++ )],
   array_base      => [qw( 5.10 5.12 5.14 ++++ ++++ ++++ ++++ ++++ )],
   bitwise         => [qw( ---- ---- ---- ---- ---- ---- ++++ ++++ )],
   current_sub     => [qw( ---- ---- ---- 5.16 5.18 5.
   bitwise         => [qw( ---- ---- ---- ---- ---- ---- ++++ ++++ )],
   current_sub     => [qw( ---- ---- ---- 5.16 5.18 5.20 5.22 5.24 )],
   evalbytes       => [qw( ---- ---- ---- 5.16 5.18 5.
23 more matches »
JVBSOFT/Modern-PBP-Perl-1.240
Regru-API-0.046/lib/Regru/API.pm
sub available_methods {[qw(
    nop
sub available_namespaces {[qw(
    user
IMAGO/Regru-API-0.046 14 more files »
Home · About