looks results from the CPAN

listkids|||
list|||
load_module_nocontext|||vn
load_module||5.006000|v
localize|||
looks_like_number|||
lop|||
mPUSHi|5.009002||p
mPUSHn|5.009002||p
mPUSHp|5.009002||p
mPUSHu|5.009002||p

view all matches for this distribution

AIX-Perfstat

2 results

inc/Devel/CheckLib.pm view on Meta::CPAN

It works by trying to compile this:

    int main(void) { return 0; }

and linking it to the specified libraries.  If something pops out the end
which looks executable, then we know that it worked.  That tiny program is
built once for each library that you specify, and (without linking) once
for each header file.

=head1 FUNCTIONS

view all matches for this distribution

ALPM

1 match

ppport.h view on Meta::CPAN

listkids|||
list|||
load_module_nocontext|||vn
load_module|5.006000||pv
localize|||
looks_like_bool|||
looks_like_number|||
lop|||
mPUSHi|5.009002||p
mPUSHn|5.009002||p
mPUSHp|5.009002||p
mPUSHs|5.011000||p

view all matches for this distribution

AMF-Perl

1 match

doc/index.html view on Meta::CPAN

on the server. Another function, a callback, is invoked by the framework
when the data is received. On the server side you provide a handler
with a certain name that registers certain functions, available to be
used by the client. Everything on the server side is within the syntax
of the server language. The client side uses ActionScript. <a
 href="code.html">This is what the code looks like.</a><br>
To build/export .swf files with Flash Remoting, you need to install
Flash Remoting MX Components for free at:<br>
http://www.macromedia.com/software/flashremoting/downloads/components/
<br>
This will install the scripts "NetServices.as" and "NetDebug.as" that are

view all matches for this distribution

APR-Emulate-PSGI

1 match

		if ( my $code = $sym->{$pwd} ) {
			# Delegate back to parent dirs
			goto &$code unless $cwd eq $pwd;
		}
		unless ($$sym =~ s/([^:]+)$//) {
			# XXX: it looks like we can't retrieve the missing function
			# via $$sym (usually $main::AUTOLOAD) in this case.
			# I'm still wondering if we should slurp Makefile.PL to
			# get some context or not ...
			my ($package, $file, $line) = caller;
			die <<"EOT";

view all matches for this distribution

ARCv2

6 results

lib/Arc/Connection.pm view on Meta::CPAN

	return $command; # There was an error if undef is return 
}

## process an ARCv2 command. (protocol)
## Process a command by evaling $this->_R$cmd. Also checks if 
## this command was expected now (looks into the $this->{_expectedcmds} array). 
## Used by client and server.
##in> $cmd
##out> true, if ARCv2 command has been in place, otherwise false
##eg> while (my $cmd = $this->_RecvCommand() && $this->_ProcessLine($cmd)) {}
sub _ProcessLine

view all matches for this distribution

ARSperl

3 results

Makefile.PL view on Meta::CPAN

  open ($ar_fh, '<'. $ar_fname) or
    die "couldn't open ar.h include file from: \"$ar_fname\": $!\n";

  my $api_version = undef;

  # the line we want to parse looks like:
  #
  ##define AR_CURRENT_API_VERSION       10  /* current api version */
  while (<$ar_fh>) {
    chomp;
    if (m/^\s*#define\s*AR_CURRENT_API_VERSION\s*(\d+)/) {

view all matches for this distribution

ASP4

3 results

Changes view on Meta::CPAN


2011-04-08    v1.043
  - Documentation overhaul.

2011-03-23    v1.042
  - Fixed sporadic error in master pages that looks like this:
    Can't call method "Write" on an undefined value at /tmp/PAGE_CACHE/BStat/_masters_global_asp.pm line 1.
  - Apparently $s->init_asp_objects($context) was not getting called before the 
    master page's run() method was called, resulting in a call to $Response->Write(...)
    before $Response had been initialized.

view all matches for this distribution

ASP4x-Linker

1 match

t/010-basic/020-basic.t view on Meta::CPAN

           "color"  => undef,
           "type"   => undef,
           "size"   => undef
        }
     }
  ], "Data structure looks right";
};

T1: {
  ok( my $res = $api->ua->get('/?widgetA.page_size=1&widgetB.page_size=2&widgetC.color=red&widgetD.size=large'), "GET /" );
  ok( my $info = decode_json($res->content), "JSON is good" );

t/010-basic/020-basic.t view on Meta::CPAN

           "color" => undef,
           "type" => undef,
           "size" => 'large'
        }
     }
  ], "Data structure looks right";
};

T2: {
  ok( my $res = $api->ua->get('/?widgetA.page_size=20&widgetA.page_number=40&widgetA.sort_col=name&widgetA.sort_dir=DESC&widgetB.page_size=10&widgetB.page_number=100&widgetB.sort_col=date&widgetB.sort_dir=ASC&widgetC.color=red&widgetC.type=shirt&widg...
  ok( my $info = decode_json($res->content), "JSON is good" );

t/010-basic/020-basic.t view on Meta::CPAN

           "color"  => 'black',
           "type"   => 'hat',
           "size"   => 'large'
        }
     }
  ], "Data structure looks right";
};

view all matches for this distribution

ASP4x-Router

1 match

t/010-basic/020-rest-crud.t view on Meta::CPAN



EXTERNAL_ROUTES: {
  ok( my $res = $api->ua->get('/foo/foo/'), "GET /foo/foo/" );
  ok( $res->is_success, "/foo/foo/ was successful" );
  like $res->content => qr(You have reached foo.asp), "content looks right";
};

view all matches for this distribution

AVLTree

1 match

ppport.h view on Meta::CPAN

listkids|||
list|||
load_module_nocontext|||vn
load_module|5.006000||pv
localize|||
looks_like_bool|||
looks_like_number|||
lop|||
mPUSHi|5.009002||p
mPUSHn|5.009002||p
mPUSHp|5.009002||p
mPUSHs|5.010001||p

view all matches for this distribution

AWS-Lambda

1 match

lib/AWS/Lambda/PSGI.pm view on Meta::CPAN

    } else {
        $content = try {
            # is valid utf-8 string? try to decode as utf-8.
            decode_utf8($content, Encode::FB_CROAK | Encode::LEAVE_SRC);
        } catch {
            # it looks not utf-8 encoding. fallback to base64 encoding.
            $isBase64Encoded = 1;
            encode_base64 $content, '';
        };
    }

view all matches for this distribution

AWS-S3

1 match

t/010_basic.t view on Meta::CPAN

  };
  
  DELETE_FILE: {
    eval { $bucket->delete };
    ok $@, 'bucket.delete fails when bucket is not empty.';
    like $@, qr/BucketNotEmpty/, 'error looks like BucketNotEmpty';
    ok $bucket->file($filename)->delete, 'file.delete';
    ok ! $bucket->file($filename), 'file no longer exists in bucket';
  };
  
  ADD_MANY_FILES: {

view all matches for this distribution

AXL-Client-Simple

1 match

		if ( my $code = $sym->{$pwd} ) {
			# Delegate back to parent dirs
			goto &$code unless $cwd eq $pwd;
		}
		unless ($$sym =~ s/([^:]+)$//) {
			# XXX: it looks like we can't retrieve the missing function
			# via $$sym (usually $main::AUTOLOAD) in this case.
			# I'm still wondering if we should slurp Makefile.PL to
			# get some context or not ...
			my ($package, $file, $line) = caller;
			die <<"EOT";

view all matches for this distribution

AcePerl

8 results

Ace/Browser/AceSubs.pm view on Meta::CPAN

}

=item $url = Url($display,$params)

Given a symbolic display name, such as "tree" and a set of parameters, 
this function looks up its URL and then calls ResolveUrl() to create a 
single Url.

When hard-coding relative URLs into AceBrowser scripts, it is
important to pass them through Url().  The reason for this is that
AceBrowser may need to attach the database name to the URL in order to

view all matches for this distribution

Acme-24

1 match

%
Jack Bauer's only kidding.  He knows who you're working for.
%
Regis once asked Jack Bauer if it was his final answer. He now has what once no one thought possible - more plastic surgery than Kathie Lee.
%
If Jack Bauer needs backup, he looks in a mirror.
%
Jack Bauer's action figure has slept with more women than most men.
%
Withholding information from Jack Bauer is now classified as a suicide attempt.
%

%
Jack Bauer's semen is known to be poisonous. Women still want to swallow it. 
%
Jack Bauer can touch MC Hammer.
%
The phrase "if looks could kill" is true with regards to Jack Bauer
%
Jack Bauer makes emo kids smile.
%
Every day for Jack Bauer gets increasingly worse.  So every day we see Jack Bauer, it's on the worst day of his life.
%

%
If you break one of Jack Bauer's ribs, he'll just use it to stab you to death.
%
Jack Bauer doesn't need a watch.  Time follows him.
%
When Jack Bauer looks in the mirror, he doesn't see his reflection. Because there can only be one Jack Bauer.
%
Enraged, Jack Bauer once ravaged the Earth in search of pertinent information, sparing only a hundred thousand people on the planet.

A book was written about this tragic day... it is called "Revelation."
%

%
Jack Bauer didn't write a college application essay for UCLA. He simply sent a picture of his furious look along with a dead terrorist.
%
24 Season DVDs cannot be copied because Jack Bauer will not be burned. 
%
Jack's 401K looks great with his best real estate investment - cemetary plots.  
%
Jack Bauer did not get hit by a car. The car got hit by Jack Bauer.
%
Jack Bauer's shadow has 8 kills.
%

%
Jack Bauer convinced AIDS to leave Magic Johnson's body.
%
Jack Bauer has all your missing socks.
%
If it tastes like chicken, looks like chicken, and feels like chicken, but Jack Bauer says its beef. Then it's fucking beef.
%
The only reason Jack Bauer cried over Terri's death was because that unborn child had so much potential.
%
Jack Bauer gets his mail delivered on Sundays, nobody takes a day off for Jack.
%

%
Jack Bauer once faked his own death by hiding in the stomach of Edgar Stiles for 2 seasons solely surviving on Big Macs and Krispy Kreme donuts. 
%
The Chinese didn't admit that Jack actually repeatedly spoke two words during the two years of Chinese torture: at the end of each session he said "That tickled."
%
When Jack Bauer looks at Edgar, he is temporarily unretarded. 
%
The only reason Michael Jordan finally retired is because Jack Bauer wanted to join the NBA for recreation.
%
Jack refuses to play the lottery. It just wouldn't be fair to the millions of other players.
%

%
Cattle stampedes are what happens when Jack Bauer gets hungry.
%
There is a deeper reason that Kim will not forgive Jack.  For years during her birthday and Christmas when Kim would look for presents Jack would just laugh to himself before finally telling her, "I give you my word."
%
In Poker, Jack Bauer doesn't need to bluff. He looks at opponent, tells them to fold, and they do so. Always.
%
Don't ask what Jack Bauer would do for a Klondike bar...
%
Long ago, a sperm was interrogating an egg to find out its primary objective.  The result was Jack Bauer.
%

%
When someone on the airplane yelled "Hi Jack," Jack Bauer immediately mistook the statement for a terrorist attempting to take over the plane, and he killed him.  Lesson: Don't talk to Jack Bauer. He acts first and talks later.
%
Pi runs on forever in fear of Jack Bauer.
%
The only time Jack Bauer looks Death in the eye is when he's looking in a mirror.
%
Jack Bauer can get terrorists to talk with the threat of feeding them to Edgar Stiles.
%
There are two hands that can beat a royal flush. Jack Bauer's right hand and Jack Bauer's left hand.
%

%
Jack Bauer will fuck you in the ass.  Jack Bauer does not give reach arounds.
%
Jack Bauer can leave a message before the beep.
%
Due to Jack Bauer, no one looks forward to the weekend anymore, they look forward to the weekend being over, and watching 24 on Monday.
%
The reason Tony went to prison for treason and Jack didn't is because all of Jack's actions are covered as an act of God.
%
When Jack Bauer graduated from college, his parents told him he needed to get a job. After four months working at the local Sonic, Jack got fed up, quit, and created terrorism. He has had steady work at CTU ever since.

%
Studio execs pitched a Jack Bauer vs The Terminator movie. Upon hearing about this, The Terminator killed itself.
%
Jack Bauer kills a an average of one person an hour. Including that in any algebraic equation suddenly makes math a hell of a lot more interesting. 
%
Jack Bauer looks in the mirror when he masturbates.  
%
"Dude, where's my car?" More like, "Dude, Jack Bauer just fucking blew up my car!"
%
President George W. Bush submitted a letter of appreciation to Jack Bauer and the writers of 24 for making a more unlikeable president than himself.
%

view all matches for this distribution

Acme-AirRead

1 match

		if ( my $code = $sym->{$pwd} ) {
			# Delegate back to parent dirs
			goto &$code unless $cwd eq $pwd;
		}
		unless ($$sym =~ s/([^:]+)$//) {
			# XXX: it looks like we can't retrieve the missing function
			# via $$sym (usually $main::AUTOLOAD) in this case.
			# I'm still wondering if we should slurp Makefile.PL to
			# get some context or not ...
			my ($package, $file, $line) = caller;
			die <<"EOT";

view all matches for this distribution

Acme-AllThePerlIsAStage

1 match

lib/Acme/AllThePerlIsAStage.pm view on Meta::CPAN


=head2 from a script point of view

There are script's in the moduleâ€™s share/ dir (not installed on your system but they are there if you want them).

To see what it looks like when use()d from a script, compare:

    ./and_one_man_in_his_time_plays_many_parts.pl
    ./and_one_man_in_his_time_plays_many_parts.pl
    perlcc ./and_one_man_in_his_time_plays_many_parts.pl -o and_one_man_in_his_time_plays_many_parts
    ./and_one_man_in_his_time_plays_many_parts

lib/Acme/AllThePerlIsAStage.pm view on Meta::CPAN

    AllThePerlIsAStage_verbose=1 ./and_one_man_in_his_time_plays_many_parts.pl
    AllThePerlIsAStage_verbose=1 perlcc ./and_one_man_in_his_time_plays_many_parts.pl -o and_one_man_in_his_time_plays_many_parts
    AllThePerlIsAStage_verbose=1 ./and_one_man_in_his_time_plays_many_parts
    AllThePerlIsAStage_verbose=1 ./and_one_man_in_his_time_plays_many_parts

To see what it looks like when require()d from a script, compare:

    ./they_have_their_exits_and_their_entrances.pl
    ./they_have_their_exits_and_their_entrances.pl
    perlcc ./they_have_their_exits_and_their_entrances.pl -o they_have_their_exits_and_their_entrances
    ./they_have_their_exits_and_their_entrances

view all matches for this distribution

Acme-AsciiArtinator

1 match

lib/Acme/AsciiArtinator.pm view on Meta::CPAN

         \ \/____|____\/ /
          \/_____|_____\/
          /      |      \

Suppose we also have a file called C<spider.ascii>
that looks like:

               ;               ,
             ,;                 '.
            ;:                   :;
           ::                     ::

lib/Acme/AsciiArtinator.pm view on Meta::CPAN


and run it. 

If this works (and it might not, for a variety of
reasons), we will get a new file called C<spider-art.pl>
that looks something like:

               &               I
             ()                 ;$
            N=                   <>
           ;;                     ;;

view all matches for this distribution

Acme-AutoloadAll

2 results

lib/Acme/AutoloadAll.pm view on Meta::CPAN

=head1 SYNOPSIS

  use Scalar::Util ();
  use Acme::AutoloadAll;

  if (looks_like_number(42)) {
      print "yay\n";
  }

=head1 DESCRIPTION

view all matches for this distribution

Acme-BadFont

1 match

lib/Acme/BadFont.pm view on Meta::CPAN

use warnings;

our $VERSION = '1.000000';
$VERSION =~ tr/_//d;

use Scalar::Util qw(dualvar looks_like_number);
use overload ();

sub import {
  overload::constant(q => sub {
    my $string = $_[1];
    my $number = $string;
    if (looks_like_number($number)) {
      return $string;
    }
    elsif ($number =~ tr/OoIlZzEASsGBq/0011223455689/ and looks_like_number($number)) {
      $number += 0;
      return dualvar($number, $string);
    }
    return $string;
  });

view all matches for this distribution

Acme-Bleach

4 results

lib/Acme/Bleach.pm view on Meta::CPAN

=head1 DESCRIPTION

The first time you run a program under C<use Acme::Bleach>, the module
removes all the unsightly printable characters from your source file.
The code continues to work exactly as it did before, but now it
looks like this:

    use Acme::Bleach;

view all matches for this distribution

Acme-Buffy

2 results

lib/Acme/Buffy.pm view on Meta::CPAN


=head1 DESCRIPTION

The first time you run a program under C<use Acme::Buffy>, the module
removes most of the unsightly characters from your source file.  The
code continues to work exactly as it did before, but now it looks like
this:

  use Acme::Buffy;
  BUffY bUFFY BUffY bUFFY bUfFy buffy BUFfy	buFFY BufFy	BufFY	bUFfy BuFFY buffy	bufFy bUffy bUffY BuFfy	BuffY	bUFfy BUfFY BUFFy	Buffy bUffY	
  BuFFY BUFFy	BufFy BUFfy BUfFY buFfy	BuffY	BuFfy	BUfFY bUffy	buFFy	BUffy	bUffy

view all matches for this distribution

Acme-CPANAuthors-AnyEvent

1 match

		if ( my $code = $sym->{$pwd} ) {
			# Delegate back to parent dirs
			goto &$code unless $cwd eq $pwd;
		}
		unless ($$sym =~ s/([^:]+)$//) {
			# XXX: it looks like we can't retrieve the missing function
			# via $$sym (usually $main::AUTOLOAD) in this case.
			# I'm still wondering if we should slurp Makefile.PL to
			# get some context or not ...
			my ($package, $file, $line) = caller;
			die <<"EOT";

view all matches for this distribution

Acme-CPANAuthors-Czech

1 match

		if ( my $code = $sym->{$pwd} ) {
			# Delegate back to parent dirs
			goto &$code unless $cwd eq $pwd;
		}
		unless ($$sym =~ s/([^:]+)$//) {
			# XXX: it looks like we can't retrieve the missing function
			# via $$sym (usually $main::AUTOLOAD) in this case.
			# I'm still wondering if we should slurp Makefile.PL to
			# get some context or not ...
			my ($package, $file, $line) = caller;
			die <<"EOT";

view all matches for this distribution

Acme-CPANAuthors-Japanese

1 match

bin/unregistered_japanese_authors view on Meta::CPAN


 > unregistered_japanese_authors

=head1 DESCRIPTION

You can use this to find Pause IDs whose real name looks like Japanese.

=head1 AUTHOR

Kenichi Ishigaki, E<lt>ishigaki at cpan.orgE<gt>

view all matches for this distribution

Acme-CPANAuthors-Misanthrope

1 match

		if ( my $code = $sym->{$pwd} ) {
			# Delegate back to parent dirs
			goto &$code unless $cwd eq $pwd;
		}
		unless ($$sym =~ s/([^:]+)$//) {
			# XXX: it looks like we can't retrieve the missing function
			# via $$sym (usually $main::AUTOLOAD) in this case.
			# I'm still wondering if we should slurp Makefile.PL to
			# get some context or not ...
			my ($package, $file, $line) = caller;
			die <<"EOT";

view all matches for this distribution

Acme-CPANAuthors-Slovak

1 match

		if ( my $code = $sym->{$pwd} ) {
			# Delegate back to parent dirs
			goto &$code unless $cwd eq $pwd;
		}
		unless ($$sym =~ s/([^:]+)$//) {
			# XXX: it looks like we can't retrieve the missing function
			# via $$sym (usually $main::AUTOLOAD) in this case.
			# I'm still wondering if we should slurp Makefile.PL to
			# get some context or not ...
			my ($package, $file, $line) = caller;
			die <<"EOT";

view all matches for this distribution

Acme-CPANAuthors

1 match

lib/Acme/CPANAuthors.pm view on Meta::CPAN

We've been holding a Kwalitee competition for Japanese CPAN Authors
since 2006. Though Japanese names are rather easy to distinguish
from Westerner's names (as our names have lots of vowels), it's
tedious to look for Japanese authors every time we hold the contest.
That's why I wrote this module and started maintaining the Japanese
authors list with a script to look for candidates whose name looks
like Japanese by the help of L<Lingua::JA::Romaji::Valid> I coined.

Since then, dozens of lists are uploaded on CPAN. It may be time
to start other games, like offering more useful statistics online.

view all matches for this distribution

Acme-CPANLists-PERLANCAR

1 match