CPAN->GREP


1 to 25 of more than 1000 distributions (6.78 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.057/lib/HTML/DOM.pm
	# HTMLHtmlElement interface
	sub version { shift->_attr('version' => @_) }
SPROUT/HTML-DOM-0.057 3 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 »
xml-tag-0.5/lib/XML/Tag.pm
        ns '' => @EXPORT;
    };
    sub foo (&) { tag foo => @_, {qw< isa foo >} }
MARCC/xml-tag-0.5 5 more files »
FAST-1.06/lib/FAST/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 »
DHARD/FAST-1.06 1 more file »
perl-5.24.0/cpan/Config-Perl-V/V.pm
    my $pv = join "\n" => @_;
    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.24.0 39 more files »
Evented-Object-5.59/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.59 2 more files »
Regexp-Common-2016060801/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-2016060801 11 more files »
Test-Smoke-1.70/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.70 22 more files »
Mojolicious-7.03/lib/Mojo.pm
sub config { Mojo::Util::_stash(config => @_) }
SRI/Mojolicious-7.03 14 more files »
Tak-0.001004/lib/Tak/Client/Router.pm
sub ensure {
  shift->do(meta => ensure => @_);
}
MSTROUT/Tak-0.001004 7 more files »
Tk-804.033/examples/derived_test
   {
    $w->Subwidget('label')->configure(-background => @_);
   }
SREZIC/Tk-804.033 10 more files »
Net-Nmsg-0.15/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.15 2 more files »
Test-Stream-1.302027/lib/Test/Stream/Compare/Number.pm
    {
        local $SIG{__WARN__} = sub { push @warnings => @_ };
        $out = $negate ? ($input != $got) : ($input == $got);
EXODIST/Test-Stream-1.302027 16 more files »
App-Sqitch-0.9995/lib/App/Sqitch/Command/add.pm
    my $note = join "\n\n", => @{ $self->note };
    my ($first_change, %added, @files, %seen);
DWHEELER/App-Sqitch-0.9995 19 more files »
Perlito5-9.021/lib/Perlito5/Java/Emitter.pm
            # @a[10, 20]
            # @$a[0, 2] ==> @{$a}[0,2]
            # (4,5,6)[0,2]
            # @a[10, 20]
            # @$a[0, 2] ==> @{$a}[0,2]
            return Perlito5::Java::emit_wrap_java($level, 
            # @a[10, 20]
            # @$a[0, 2] ==> @{$a}[0,2]
            return Perlito5::Java::emit_wrap_java($level, 
3 more matches »
FGLOCK/Perlito5-9.021 5 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 »
Log-Report-1.16/lib/Dancer2/Logger/LogReport.pm
    my ($orig, $self) = (shift, shift);
    $self->log(info => @_);
};
    my ($orig, $self) = (shift, shift);
    $self->log(warning => @_);
};
    return if $_[0] =~ /^Route exception/;
    $self->log(error => @_);
};
MARKOV/Log-Report-1.16 4 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 »
Bootylicious-1.13/lib/Bootylicious/Admin.pm
    <label for 'tags'>Tags</label><br />
    <%= input_tag 'tags', value => join ', ' => @{$article->tags} %><br />
    <%= validator_error 'tags' %>
OLEG/Bootylicious-1.13 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 »
JSON-WebToken-0.10/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.10 3 more files »
Home · About