CPAN->GREP


1 to 25 of 76 distributions (1.43 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
Statistics-R-IO-1.0001/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.0001 3 more files »
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 »
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
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
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 »
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 »
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
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 »
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 »
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 »
Net-Pcap-Reassemble-0.05/Reassemble.pm
	($pcap_t, $num, $callback, $user_data) = @_ or
		croak('Missing arguments to loop()');
	($user_data, $header, $packet) = @_ or
		croak('Missing arguments to _reassemble()');
	my ($offset, $length, $mf, $data) = @_ or croak;
JRAFTERY/Net-Pcap-Reassemble-0.05
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 »
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
TM-1.56/lib/TM/MapSphere.pm
#warn Dumper $mid;
	my ($url)            = @{$mid->[TM->INDICATORS]}                        or next; # if there is no subject indicator, we could not load it anyway
	my ($baseuri)        =   $mi
DRRHO/TM-1.56 1 more file »
IPC-Cmd-0.98/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 );
BINGOS/IPC-Cmd-0.98
MMapDB-0.15/lib/MMapDB.pm
    for (@positions) {
      ($keys, $sort, $data, $id)=@{$db->data_record($_)};

      or
OPI/MMapDB-0.15 1 more file »
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 »
PocketIO-Client-IO-0.01/lib/AnyEvent/PocketIO/Client.pm
        sub {
            my ($fh) = @_ or return $cb->( { code => 500, message => $! }, $self );
        sub {
            my ($fh) = @_
                or ($cb ? return $cb->({ code => 500, message => $! }, $self)
                        : Carp::croak( $! )
MAKAMAKA/PocketIO-Client-IO-0.01
Alien-ROOT-v5.34.36.1/inc/inc_IPC-Cmd/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 );
SMUELLER/Alien-ROOT-v5.34.36.1
Bio-PrimerDesigner-0.07/lib/Bio/PrimerDesigner/epcr.pm
    my $self            = shift;
    my ($method, $loc)  = @_ or $self->error('No verify parameters');
    my %param           = ();
SMCKAY/Bio-PrimerDesigner-0.07 1 more file »
Home · About