CPAN->GREP


1 to 25 of 76 distributions (1.51 seconds)
Test-DBIx-Class-0.52/tags
;"	v	file:	class:Date
order	../HTML-FormFu/lib/HTML/FormFu/Element/Date.pm	/^    my ( $self, @order ) = @_;$/;"	v	file:	class:Date
order	../HTML-FormFu/lib/HTML/FormFu/Element/Date.pm	/^    my @order = @{ $self->field_order };$/;"	v	
	../dbix-class/lib/DBIx/Class/Storage/DBIHacks.pm	/^    my ($sql_maker, $order_by, $orig_quote_chars) = @_;$/;"	v	file:
order_by	../dbix-class/lib/DBIx/Class/Storage/DBIHacks.pm	/^  my ($self, $ident, $order_by, $where) = 
:
order_by	../dbix-class/lib/DBIx/Class/Storage/DBIHacks.pm	/^  my ($self, $ident, $order_by, $where) = @_;$/;"	v	file:
order_by	../dbix-class/lib/DBIx/Class/Storage/DBIHacks.pm	/^  my ($self, $order_by, $sql_maker) = @_;$
35 more matches »
NEWELLC/Test-DBIx-Class-0.52
AnyEvent-7.14/eg/ae0.pl
      tcp_connect "127.0.0.1", $port, sub {
         my ($fh) = @_
            or die "tcp_connect: $!";
         syswrite $fh, "can write $connections\n";
MLEHMANN/AnyEvent-7.14 5 more files »
AnyEvent-Eris-0.000001/lib/AnyEvent/eris/Client.pm
    $self->{'_client'} ||= tcp_connect $addr, $port, sub {
        my ($fh) = @_
            or AE::log fatal => "Connect failed: $!";
XSAWYERX/AnyEvent-Eris-0.000001 11 more files »
App-mimi-0.03/mimi.fatpack
 \@row : undef;return wantarray ? @row : \@row}sub insert_new_row ($$$) {my ($self,$data,$row_aryref)=@_;my$meta=$self->{meta};my$ncols=scalar(@{$meta->{col_names}});my$nitems=scalar(@{$row_aryref});$ncols==$nitems or croak "You tried to insert $nitems, but table is created with $ncols columns";my$key=shift @$row_ar
r=" .&{$dsn_quote}($d).($dsnextra ? ";$dsnextra" : "")}}return@dsns}sub avail_tables {my ($self,$dbh)=@_;my$dir=$dbh->{f_dir};defined$dir or return;my%seen;my@tables;my@dir=($dir);$dbh->{f_dir_search}&& ref$dbh->{f_dir_search}eq "ARRAY" and
ef;$meta->{f_fqln}=undef;$meta->{table_name}=$tbl;return$tbl}sub apply_encoding {my ($self,$meta,$fn)=@_;defined$fn or $fn="file handle " .fileno ($meta->{fh});if (my$enc=$meta->{f_encoding}){binmode$meta->{fh},":encod
7 more matches »
VTI/App-mimi-0.03
PocketIO-0.17/lib/PocketIO/Test.pm
    tcp_connect $server, $port, sub {
        my ($fh) = @_ or return $cv->send;
VTI/PocketIO-0.17 4 more files »
Statistics-R-IO-1.0002/lib/Statistics/R/IO/Parser.pm
    sub {
        my ($char_values, $state) = @{$chars->(@_) or return};
        return unless join('', @{$char_values}) eq $arg;
        my $v1 = $p1->(shift or return);
        my ($value, $state) = @{$v1 or return};
        $fp2->($value)->($state)
DAVOR/Statistics-R-IO-1.0002 3 more files »
MYDan-0.0.4/MYDan/dan/agent/code/load
    my ( $file, $position ) = @{$param{argv}} or die "file undef";
LIJINFENG/MYDan-0.0.4 5 more files »
FTN-JAM-0.30/lib/FTN/JAM.pm
    my ($jampath) = @_ or croak 'OpenMB requires a base file name and path as a parameter.';
    my ($handleref) = @_ or croak 'CloseMB requires a hash reference parameter.';
    my ($jampath) = @_ or croak 'RemoveMB requires a base file name and path as a parameter.';
2 more matches »
JAME/FTN-JAM-0.30
Astro-satpass-0.082/script/satpass
sub _format_local_az_rng {
    my ( $body ) = @_
	or return ' azim     range    ';
    my ( $az, undef, $rng ) = $body->azel();
sub _format_local_azel {	## no critic (ProhibitUnusedPrivateSubroutines)
    my ( $body ) = @_
	or return ' elev  azim   ';
    my ( $az, $el ) = $body->azel();
sub _format_local_azel_rng {	## no critic (ProhibitUnusedPrivateSubroutines)
    my ( $body ) = @_
	or return ' elev  azim     range    ';
    my ( $az, $el, $rng ) = $body->azel();
2 more matches »
WYANT/Astro-satpass-0.082
Protocol-HTTP2-1.08/examples/client-anyevent.pl
tcp_connect $host, $port, sub {
    my ($fh) = @_ or die "connection failed: $!";
    my $handle;
CRUX/Protocol-HTTP2-1.08 3 more files »
AnyEvent-APNS-0.10/lib/AnyEvent/APNS.pm
    my $g = tcp_connect $host, $port, sub {
        my ($fh) = @_
            or return $self->on_error->(undef, 1, $!);
TYPESTER/AnyEvent-APNS-0.10 3 more files »
Perl6-Pugs-6.2.13/misc/sixpan/JIB/lib/JIB/Dependency.pm
    sub dependency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
AUDREYT/Perl6-Pugs-6.2.13 3 more files »
App-GitGot-1.333/lib/App/GitGot/Command.pm
sub _git_clone_or_callback {
  my( $self , $entry , $callback ) = @_
    or die "Need entry and callback";
sub _git_fetch {
  my ( $self, $entry ) = @_
    or die "Need entry";
sub _git_status {
  my ( $self, $entry ) = @_
    or die "Need entry";
1 more match »
GENEHACK/App-GitGot-1.333
AnyEvent-HTTPD-0.93/lib/AnyEvent/HTTPD/Util.pm
      tcp_connect $host, $port, sub {
         my ($fh) = @_
            or die "couldn't connect: $!";
ELMEX/AnyEvent-HTTPD-0.93 3 more files »
AnyEvent-SKKServ-0.01/lib/AnyEvent/SKKServ.pm
    AnyEvent::Socket::tcp_server $self->{host}, $self->{port}, sub {
        my ($fh, $host, $port) = @_ or die "connection failed: $!";
        my $hdl; $hdl = AnyEvent::Handle->new(
AKIYM/AnyEvent-SKKServ-0.01 2 more files »
Lingua-EN-AffectiveNorms-0.01/examples/insert_data.pl
 my ($infile, $table) = @ARGV or die "infile and table name required";
 die "table should be AllSubjects, Male or Female" unless table ~ /^(AllSubjects|Male|Female)$/)
ZARQUON/Lingua-EN-AffectiveNorms-0.01 2 more files »
Protocol-TLS-0.04/examples/anyevent-tls-server.pl
tcp_server undef, 4443, sub {
    my ( $fh, $host, $port ) = @_ or do {
        warn "Client error \n";
CRUX/Protocol-TLS-0.04 2 more files »
perl-5.26.0/cpan/IPC-Cmd/lib/IPC/Cmd.pm
        for my $name ( @fds ) {
            my($redir, $fh, $glob) = @{$Map{$name}} or (
                Carp::carp(loc("No such FD: '%1'", $name)), next );
        for my $name ( @fds ) {
            my($redir, $fh, $glob) = @{$Map{$name}} or (
                Carp::carp(loc("No such FD: '%1'", $name)), next );
XSAWYERX/perl-5.26.0
Class-Classless-1.35/lib/Class/Classless.pm
  my($obj, $first, @rest) = @_;

or
  my($obj, $callstate, $first, @rest) = @_;

or the like.
SBURKE/Class-Classless-1.35
Plack-Middleware-SocketIO-0.00904/t/lib/Utils.pm
    tcp_connect $ENV{TEST_HOST}, $ENV{TEST_PORT}, sub {
        my ($fh) = @_ or return $cv->send;
VTI/Plack-Middleware-SocketIO-0.00904 1 more file »
CPANPLUS-0.9168/inc/bundle/IPC/Cmd.pm
        for my $name ( @fds ) {
            my($redir, $fh, $glob) = @{$Map{$name}} or (
                Carp::carp(loc("No such FD: '%1'", $name)), next );
        for my $name ( @fds ) {
            my($redir, $fh, $glob) = @{$Map{$name}} or (
                Carp::carp(loc("No such FD: '%1'", $name)), next );
BINGOS/CPANPLUS-0.9168
AnyEvent-JSONRPC-Lite-0.15/lib/AnyEvent/JSONRPC/Lite/Client.pm
    my $guard = tcp_connect $self->host, $self->port, sub {
        my ($fh) = @_
            or return
                $self->on_error->(
TYPESTER/AnyEvent-JSONRPC-Lite-0.15 1 more file »
POE-Component-PreforkDispatch-0.101/lib/POE/Component/PreforkDispatch.pm
  my ($from, @args) = @_;

or
EWATERS/POE-Component-PreforkDispatch-0.101 1 more file »
FusionInventory-Agent-2.3.19/lib/FusionInventory/Agent/Tools/Win32.pm
            foreach my $name (@{$params{params}}) {
                my ($type, $default) = @{$params{$name}}
                    or next;
                my $variant;
sub _call_win32_ole_dependent_api {
    my ($call) = @_
        or return;
GBOUGARD/FusionInventory-Agent-2.3.19
POE-Framework-MIDI-0.1/./POE-Framework-MIDI-0.1/lib/POE/Framework/MIDI/Conductor.pm
{
	my ($self,$filename) = @_ or die "render needs a filename to render to";
	my $musicians = $self->{cfg}->{musicians};
SMCNABB/POE-Framework-MIDI-0.1 1 more file »
Home · About