CPAN->GREP


1 to 25 of more than 1000 distributions (6.32 seconds)
XML-Writer-Compiler-1.112060/lib/XML/Writer/Compiler.pm
  my ($attr, $data) = $self->EXTRACT($elementdata);
  $self->writer->startTag(%s => @$attr);
TBONE/XML-Writer-Compiler-1.112060 5 more files »
HTML-DOM-0.054/lib/HTML/DOM.pm
	# HTMLHtmlElement interface
	sub version { shift->_attr('version' => @_) }
SPROUT/HTML-DOM-0.054 3 more files »
Regexp-Common-2013031301/lib/Regexp/Common/balanced.pm
                my @close = map {$closer {$_}} @open;
                $flag -> {-begin} = join "|" => @open;
                $flag -> {-end}   = join "|" => @close;
                $flag -> {-begin} = join "|" => @open;
                $flag -> {-end}   = join "|" => @close;
            }
ABIGAIL/Regexp-Common-2013031301 19 more files »
Perl6-Pugs-6.2.13/docs/Perl6/Overview/Subroutine.pod
    foo(42,        @array,        %hash);          # works
    foo(bar => 42, baz => @array, grtz => %hash);  # works as well
    foo(:bar(42),  :baz(@array),  :grtz(%hash));   # ditto
AUDREYT/Perl6-Pugs-6.2.13 36 more files »
List-Gen-0.974/lib/List/Gen.pm
        *{$pkg.'::ISA'} = \@isa;
        mapn {*{$pkg.'::'.$_} = pop} 2 => @_;
        1
        no strict 'refs';
        my @ret = map \*{$caller.'::'.$_} => @_;
        wantarray ? @ret : pop @ret
        return map $sub->($_) => @_ if $n == 1;

60 more matches »
ASG/List-Gen-0.974 4 more files »
Benchmark-Perl-Formance-Cargo-0.07/share/PerlCritic/Critic/Utils.pm
# but at the moment, we aren't smart enough to deal with Readonly variables.
Readonly::Array our @EXPORT => @EXPORT_OK;
SCHWIGON/Benchmark-Perl-Formance-Cargo-0.07 17 more files »
perl-5.20.0/cpan/Config-Perl-V/V.pm
    my %env  =
	map {      $_ => $ENV{$_} } grep m/^PERL/      => @KEYS;
    $args{env} and
    $args{env} and
	map { $env{$_} = $ENV{$_} } grep m{$args{env}} => @KEYS;
RJBS/perl-5.20.0 41 more files »
xml-tag-0.3/lib/XML/Tag.pm
    sub foo (&) { tag foo => @_, {qw< isa foo >} }
MARCC/xml-tag-0.3 5 more files »
Evented-Object-5.50/lib/Evented/Object.pm
        # okay, it's an array ref of
        # [ $eo (optional), $event_name => @args ]
        ref $set eq 'ARRAY' or next;
    my $m = $monitors{$pkg} or return;
    safe_fire($_, "monitor:$event_name" => @args) foreach @$m;
}
 $eo->prepare(event_name => @args)->fire(some_fire_option => $value);
16 more matches »
COOPER/Evented-Object-5.50 2 more files »
Test-Smoke-1.6/configsmoke.pl
my @untars = get_avail_tar();
my $untarmsg = join "", map "\n\t$_" => @untars;
    if ( is_win32 ) {
        @current_cron = grep /^\s+\d+\s+.+\d+:\d+\s/ => @current_cron;
    close BCFG;
    my $oldcfg = join "", grep !/^#/ => @bcfg;
2 more matches »
ABELTJE/Test-Smoke-1.6 15 more files »
Mojolicious-5.67/lib/Mojo.pm
sub config { Mojo::Util::_stash(config => @_) }
SRI/Mojolicious-5.67 16 more files »
Net-Nmsg-0.12/lib/Net/Nmsg/Handle.pm
sub open_input_file  { shift->_open_file(r => @_) }
sub open_output_file { shift->_open_file(w => @_) }
sub open_input_file  { shift->_open_file(r => @_) }
sub open_output_file { shift->_open_file(w => @_) }
sub set_bpf     { shift->_set_xs_opt(bpf     => @_) }
sub set_snaplen { shift->_set_io_opt(snaplen => @_) }
2 more matches »
MSISK/Net-Nmsg-0.12 2 more files »
Tk-804.032/examples/derived_test
   {
    $w->Subwidget('label')->configure(-background => @_);
   }
SREZIC/Tk-804.032 10 more files »
Tak-0.001003/lib/Tak/Client/Router.pm
sub ensure {
  shift->do(meta => ensure => @_);
}
MSTROUT/Tak-0.001003 7 more files »
App-Sqitch-0.997/lib/App/Sqitch/Command/add.pm
        conflicts => $self->conflicts,
        note      => join "\n\n" => @{ $self->note },
    );
DWHEELER/App-Sqitch-0.997 18 more files »
Google-Adwords-v1.14/lib/Google/Adwords/AdGroupService.pm
    my @params;
    push @params, SOAP::Data->name( 'adgroupIDs' => @ids )->type('');
ta->name( 'campaignId' => $campaignId )->type('');
    push @params, SOAP::Data->name( 'adGroupIds' => @{$ra_id} )->type('');
    push @params, SOAP::Data->name( 'startDay'   => $startDay )->type('');
ROHAN/Google-Adwords-v1.14 8 more files »
Sprocket-0.07/lib/Sprocket.pm
    return Sprocket::AnonCallback->new( sub {
        $poe_kernel->call( $id => $event => @etc => @_ );
    }, $id );
    return Sprocket::AnonCallback->new( sub {
        $poe_kernel->call( $id => $event => @etc => @_ );
    }, $id );
    return Sprocket::AnonCallback->new( sub {
        $poe_kernel->post( $id => $event => @etc => @_ );
        return;
1 more match »
XANTUS/Sprocket-0.07 6 more files »
IO-Handle-Util-0.01/lib/IO/Handle/Iterator.pm
sub read    { shift->_rebless_and( read    => @_ ) }
sub sysread { shift->_rebless_and( sysread => @_ ) }
sub read    { shift->_rebless_and( read    => @_ ) }
sub sysread { shift->_rebless_and( sysread => @_ ) }
sub getc    { shift->_rebless_and( getc    => @_ ) }
sub sysread { shift->_rebless_and( sysread => @_ ) }
sub getc    { shift->_rebless_and( getc    => @_ ) }
sub ungetc  { shift->_rebless_and( ungetc  => @_ ) }
1 more match »
NUFFIN/IO-Handle-Util-0.01 2 more files »
Bootylicious-1.04/lib/Bootylicious/Admin.pm
    <label for 'tags'>Tags</label><br />
    <%= input_tag 'tags', value => join ', ' => @{$article->tags} %><br />
    <%= validator_error 'tags' %>
OLEG/Bootylicious-1.04 6 more files »
POE-Component-SNMP-1.1006/eg/snmp_sample.pl
    } else {
      print "$host SNMP error ($cmd => @args):\n$results\n";
    }
RDB/POE-Component-SNMP-1.1006 5 more files »
Sort-Key-Top-0.08/lib/Sort/Key/Top.pm
  @top = nkeytop { abs $_ } 5 => 1, 2, 7, 5, 5, 1, 78, 0, -2, -8, 2;
         # ==> @top = (1, 2, 1, 0, -2)
  @top = nkeytopsort { abs $_ } 5 => 1, 2, 7, 5, 5, 1, 78, 0, -2, -8, 2;
         # ==> @top = (0, 1, 1, 2, -2)
  @a = qw(cat fish bird leon penguin horse rat elephant squirrel dog);
  @top = top 5 => @a;
         # ==> @top = qw(cat fish bird elephant dog);
4 more matches »
SALVA/Sort-Key-Top-0.08 1 more file »
POE-Component-SNMP-Session-0.1202/lib/POE/Component/SNMP/Session.pm
    ($alias, @arg) = _arg_scan(alias => @arg);
    $alias ||= 'snmp';
    # allow -hostname for compatibility, and put it in the Desthost slot automatically
    ($hostname, @arg) = _arg_scan( desthost => @arg);
    ($hostname, @arg) = _arg_scan( hostname => @arg)
    ($hostname, @arg) = _arg_scan( desthost => @arg);
    ($hostname, @arg) = _arg_scan( hostname => @arg)
      unless $hostname;
13 more matches »
RDB/POE-Component-SNMP-Session-0.1202 5 more files »
JSON-WebToken-0.08/t/spec/draft-ietf-jose-json-web-signature-08-A1.hmac_sha256.t
my $header = pack 'C*' => @{ [
    123, 34, 116, 121, 112, 34, 58, 34, 74,  87,
my $claims = pack 'C*' => @{ [
    123, 34,  105, 115, 115, 34,  58,  34,  106, 111, 101, 34,  44,  13,
my $secret = pack 'C*' => @{ [
    3,   35,  53,  75,  43,  15,  165, 188, 131, 126, 6,   101, 119, 123,
XAICRON/JSON-WebToken-0.08 3 more files »
Sort-Key-Top-PP-0.003/examples/benchmarking.pl
my @xs    = rnkeytopsort       { length($_) } 50 => @list;
my @pp    = rnkeytopsort_pp    { length($_) } 50 => @list;
my @xs    = rnkeytopsort       { length($_) } 50 => @list;
my @pp    = rnkeytopsort_pp    { length($_) } 50 => @list;
my @naive = rnkeytopsort_naive { length($_) } 50 => @list;
my @pp    = rnkeytopsort_pp    { length($_) } 50 => @list;
my @naive = rnkeytopsort_naive { length($_) } 50 => @list;
TOBYINK/Sort-Key-Top-PP-0.003 3 more files »
Mojo-Redis-1.00/Changes
0.9923   Fri Apr 11 16:34:00 2014
       - Add support for $redis->on(message => @channels => $cb) events
       - Add support for $redis->on(blpop => @list_names => $cb) events
upport for $redis->on(message => @channels => $cb) events
       - Add support for $redis->on(blpop => @list_names => $cb) events
       - Add support for $redis->on(brpop => @list_names => $cb) events
       - Add support for $redis->on(blpop => @list_names => $cb) events
       - Add support for $redis->on(brpop => @list_names => $cb) events
JHTHORSEN/Mojo-Redis-1.00 4 more files »
Home · About