Result:
found more than 1015 distributions - search limited to the first 2001 files matching your query
( run in 0.779 )
Acme-Mitey-Cards
view release on metacpan or search on metacpan
lib/Acme/Mitey/Cards/Types.pm view on Meta::CPAN
sub LaxNum () {
$type ||= bless( { check => \&is_LaxNum, name => "LaxNum", library => "Types::Standard", library_name => "LaxNum" }, "Acme::Mitey::Cards::Types::TypeConstraint" );
}
sub is_LaxNum ($) {
(do { use Scalar::Util (); defined($_[0]) && !ref($_[0]) && Scalar::Util::looks_like_number($_[0]) })
}
sub assert_LaxNum ($) {
(do { use Scalar::Util (); defined($_[0]) && !ref($_[0]) && Scalar::Util::looks_like_number($_[0]) }) ? $_[0] : LaxNum->get_message( $_[0] );
}
$EXPORT_TAGS{"LaxNum"} = [ qw( LaxNum is_LaxNum assert_LaxNum ) ];
push @EXPORT_OK, @{ $EXPORT_TAGS{"LaxNum"} };
push @{ $EXPORT_TAGS{"types"} }, "LaxNum";
lib/Acme/Mitey/Cards/Types.pm view on Meta::CPAN
sub NegativeNum () {
$type ||= bless( { check => \&is_NegativeNum, name => "NegativeNum", library => "Types::Common::Numeric", library_name => "NegativeNum" }, "Acme::Mitey::Cards::Types::TypeConstraint" );
}
sub is_NegativeNum ($) {
(do { (do { use Scalar::Util (); defined($_[0]) && !ref($_[0]) && Scalar::Util::looks_like_number($_[0]) }) } && ($_[0] < 0))
}
sub assert_NegativeNum ($) {
(do { (do { use Scalar::Util (); defined($_[0]) && !ref($_[0]) && Scalar::Util::looks_like_number($_[0]) }) } && ($_[0] < 0)) ? $_[0] : NegativeNum->get_message( $_[0] );
}
$EXPORT_TAGS{"NegativeNum"} = [ qw( NegativeNum is_NegativeNum assert_NegativeNum ) ];
push @EXPORT_OK, @{ $EXPORT_TAGS{"NegativeNum"} };
push @{ $EXPORT_TAGS{"types"} }, "NegativeNum";
lib/Acme/Mitey/Cards/Types.pm view on Meta::CPAN
sub NegativeOrZeroNum () {
$type ||= bless( { check => \&is_NegativeOrZeroNum, name => "NegativeOrZeroNum", library => "Types::Common::Numeric", library_name => "NegativeOrZeroNum" }, "Acme::Mitey::Cards::Types::TypeConstraint" );
}
sub is_NegativeOrZeroNum ($) {
(do { (do { use Scalar::Util (); defined($_[0]) && !ref($_[0]) && Scalar::Util::looks_like_number($_[0]) }) } && ($_[0] <= 0))
}
sub assert_NegativeOrZeroNum ($) {
(do { (do { use Scalar::Util (); defined($_[0]) && !ref($_[0]) && Scalar::Util::looks_like_number($_[0]) }) } && ($_[0] <= 0)) ? $_[0] : NegativeOrZeroNum->get_message( $_[0] );
}
$EXPORT_TAGS{"NegativeOrZeroNum"} = [ qw( NegativeOrZeroNum is_NegativeOrZeroNum assert_NegativeOrZeroNum ) ];
push @EXPORT_OK, @{ $EXPORT_TAGS{"NegativeOrZeroNum"} };
push @{ $EXPORT_TAGS{"types"} }, "NegativeOrZeroNum";
lib/Acme/Mitey/Cards/Types.pm view on Meta::CPAN
sub Num () {
$type ||= bless( { check => \&is_Num, name => "Num", library => "Types::Standard", library_name => "Num" }, "Acme::Mitey::Cards::Types::TypeConstraint" );
}
sub is_Num ($) {
(do { use Scalar::Util (); defined($_[0]) && !ref($_[0]) && Scalar::Util::looks_like_number($_[0]) })
}
sub assert_Num ($) {
(do { use Scalar::Util (); defined($_[0]) && !ref($_[0]) && Scalar::Util::looks_like_number($_[0]) }) ? $_[0] : Num->get_message( $_[0] );
}
$EXPORT_TAGS{"Num"} = [ qw( Num is_Num assert_Num ) ];
push @EXPORT_OK, @{ $EXPORT_TAGS{"Num"} };
push @{ $EXPORT_TAGS{"types"} }, "Num";
lib/Acme/Mitey/Cards/Types.pm view on Meta::CPAN
sub NumRange () {
$type ||= bless( { check => \&is_NumRange, name => "NumRange", library => "Types::Common::Numeric", library_name => "NumRange" }, "Acme::Mitey::Cards::Types::TypeConstraint" );
}
sub is_NumRange ($) {
(do { use Scalar::Util (); defined($_[0]) && !ref($_[0]) && Scalar::Util::looks_like_number($_[0]) })
}
sub assert_NumRange ($) {
(do { use Scalar::Util (); defined($_[0]) && !ref($_[0]) && Scalar::Util::looks_like_number($_[0]) }) ? $_[0] : NumRange->get_message( $_[0] );
}
$EXPORT_TAGS{"NumRange"} = [ qw( NumRange is_NumRange assert_NumRange ) ];
push @EXPORT_OK, @{ $EXPORT_TAGS{"NumRange"} };
push @{ $EXPORT_TAGS{"types"} }, "NumRange";
lib/Acme/Mitey/Cards/Types.pm view on Meta::CPAN
sub PositiveNum () {
$type ||= bless( { check => \&is_PositiveNum, name => "PositiveNum", library => "Types::Common::Numeric", library_name => "PositiveNum" }, "Acme::Mitey::Cards::Types::TypeConstraint" );
}
sub is_PositiveNum ($) {
(do { (do { use Scalar::Util (); defined($_[0]) && !ref($_[0]) && Scalar::Util::looks_like_number($_[0]) }) } && ($_[0] > 0))
}
sub assert_PositiveNum ($) {
(do { (do { use Scalar::Util (); defined($_[0]) && !ref($_[0]) && Scalar::Util::looks_like_number($_[0]) }) } && ($_[0] > 0)) ? $_[0] : PositiveNum->get_message( $_[0] );
}
$EXPORT_TAGS{"PositiveNum"} = [ qw( PositiveNum is_PositiveNum assert_PositiveNum ) ];
push @EXPORT_OK, @{ $EXPORT_TAGS{"PositiveNum"} };
push @{ $EXPORT_TAGS{"types"} }, "PositiveNum";
lib/Acme/Mitey/Cards/Types.pm view on Meta::CPAN
sub PositiveOrZeroNum () {
$type ||= bless( { check => \&is_PositiveOrZeroNum, name => "PositiveOrZeroNum", library => "Types::Common::Numeric", library_name => "PositiveOrZeroNum" }, "Acme::Mitey::Cards::Types::TypeConstraint" );
}
sub is_PositiveOrZeroNum ($) {
(do { (do { use Scalar::Util (); defined($_[0]) && !ref($_[0]) && Scalar::Util::looks_like_number($_[0]) }) } && ($_[0] >= 0))
}
sub assert_PositiveOrZeroNum ($) {
(do { (do { use Scalar::Util (); defined($_[0]) && !ref($_[0]) && Scalar::Util::looks_like_number($_[0]) }) } && ($_[0] >= 0)) ? $_[0] : PositiveOrZeroNum->get_message( $_[0] );
}
$EXPORT_TAGS{"PositiveOrZeroNum"} = [ qw( PositiveOrZeroNum is_PositiveOrZeroNum assert_PositiveOrZeroNum ) ];
push @EXPORT_OK, @{ $EXPORT_TAGS{"PositiveOrZeroNum"} };
push @{ $EXPORT_TAGS{"types"} }, "PositiveOrZeroNum";
Acme-MomoiroClover
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
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";
Acme-MyFirstModule-APIERRE
view release on metacpan or search on metacpan
lib/Acme/MyFirstModule/APIERRE.pm view on Meta::CPAN
use Acme::MyFirstModule::APIERRE;
blah blah blah
=head1 DESCRIPTION
Stub documentation for Acme::MyFirstModule::APIERRE, created by h2xs. It looks like the
author of the extension was negligent enough to leave the stub
unedited.
Blah blah blah.
Acme-MyFirstModule-RAYMONDJM
view release on metacpan or search on metacpan
lib/Acme/MyFirstModule/RAYMONDJM.pm view on Meta::CPAN
use Acme::MyFirstModule::RAYMONDJM;
blah blah blah
=head1 DESCRIPTION
Stub documentation for Acme::MyFirstModule::RAYMONDJM, created by h2xs. It looks like the
author of the extension was negligent enough to leave the stub
unedited.
Blah blah blah.
Acme-MyFirstModule-Tracers
view release on metacpan or search on metacpan
lib/Acme/MyFirstModule/Tracers.pm view on Meta::CPAN
use Acme::MyFirstModule::Tracers;
blah blah blah
=head1 DESCRIPTION
Stub documentation for Acme::MyFirstModule::Tracers, created by h2xs. It looks like the
author of the extension was negligent enough to leave the stub
unedited.
Blah blah blah.
Acme-No
view release on metacpan or search on metacpan
makes sure that mod_perl is at least version 1.27,
no mod_perl 1.27;
should mean that 1.27 is too high - the manpage says use() and
no() are opposites, and that looks like opposite behavior to
me. however...
$ perl -e 'use mod_perl 2.0'
mod_perl version 2 required--this is only version 1.2701 at -e line 1.
BEGIN failed--compilation aborted at -e line 1.
$ perl -e 'no mod_perl 2.0'
mod_perl version 2 required--this is only version 1.2701 at -e line 1.
BEGIN failed--compilation aborted at -e line 1.
so, no() and use() do the exact same thing here - hmmm... looks like a
bug in perl core...
enter Acme::No
Acme::No makes no() work the way I want it to.
Acme-OneBit
view release on metacpan or search on metacpan
lib/Acme/OneBit.pm view on Meta::CPAN
The first time you run a program under C<use Acme::OneBit>, the module
transforms the horrid perl syntax into an easy to understand one bit
instruction set.
The code continues to work exactly as it did before, but now it
looks like this:
use Acme::OneBit;
..........,.................................................
.....................................................,..,...
............................................................
Acme-OneHundredNotOut
view release on metacpan or search on metacpan
OneHundredNotOut.pm view on Meta::CPAN
and set to work helping Dan design the core of the interpreter too. In
fact, I somehow managed to do so much work on it that, after a hacking
session together at O'Reilly in Boston in 2001, Dan let me be the
release pumpking of L<parrot>, a job I did until life got busy in 2002.
I'm extremely happy to have been involved in that, and hope I didn't
start the project off on too much of a bad footing. It looks to be doing
fine now, at least.
I was still interested in how they're going to make the Perl 6 parser
work, (I still am, but don't have enough time to throw at the problem)
and with my linguistic background I've always been interested in writing
Acme-PGPSign
view release on metacpan or search on metacpan
PGPSign/PGPSign.pm view on Meta::CPAN
=head1 ABSTRACT
The first time you run a program under C<use Acme::PGPSign>, the module converts
your program to a PGP signed code segment. The code continues to work exactly as
it did before, but now it looks like this:
use Acme::PGPSign;
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Acme-PM-Berlin-Meetings
view release on metacpan or search on metacpan
t/berlin_pm.t view on Meta::CPAN
my $next_date = `$full_script`;
my $next_two_dates = `$full_script 2`;
for my $date ($next_date, (split /\n/, $next_two_dates)) {
chomp $date;
like $date, qr{^\d{4}-\d{2}-\d{2}T\d{2}:\d{2}:\d{2}$}, "$date looks like an ISO date";
}
__END__
Acme-Palindrome
view release on metacpan or search on metacpan
lib/Acme/Palindrome.pm view on Meta::CPAN
print "Hello world";
=head1 DESCRIPTION
The first time you run a program under C<use Acme::Palindrome>, the module reverses the code in your source file from top to bottom, left to right. The code continues to work exactly as it did before, but now it looks like this:
use Acme::Palindrome;
;"dlrow olleH" tnirp
Acme-People-Happy
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
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";
Acme-Perl-Consensual
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
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";
Acme-Perl-VM
view release on metacpan or search on metacpan
lib/Acme/Perl/VM.pm view on Meta::CPAN
hv_store hv_store_ent hv_scalar
defoutgv
gv_fullname
looks_like_number
sv_defined is_null is_not_null
mark_list
not_implemented
dump_object dump_value dump_stack dump_si
lib/Acme/Perl/VM.pm view on Meta::CPAN
else{
*deb = \&_deb;
}
}
use Scalar::Util qw(looks_like_number refaddr);
use Carp ();
use Acme::Perl::VM::Context;
use Acme::Perl::VM::Scope;
use Acme::Perl::VM::PP;
Acme-PerlML
view release on metacpan or search on metacpan
lib/Acme/PerlML.pm view on Meta::CPAN
The first time you run your program, it takes your ugly Perl code and
replaces it with powerful and sophisticated XML, the choice of...
well... 1998 to... erm... 2002... ish. :/
The code continues to work exactly as it did before, but now it looks
like this:
=head1 SEE ALSO
L<Acme::Bleach>, L<Acme::Pony>, L<PPI>, L<Perl::SAX>, L<http://ali.as/>
Acme-Phlegethoth
view release on metacpan or search on metacpan
lib/Acme/Phlegethoth.pm view on Meta::CPAN
development to Cthulhu, you'd better damn well be sure He can read
your code.
Acme::Phlegethoth translates your code to Aklo the first time your
program uses it. From that point on, your program continues to work
as before, but it now looks something like this:
use Acme'Phlegethoth;
ia ia! mnahN' NAflHriI R'LuHnyTh BUgoR SLl'HAog gOf'NN Hai ron
gOf'nn Nnn'aIog FHTagN LlLL YHlIRgHOG GoF'Nn naCh'! nNNvuLgtlAGlN
thROD! PhLeGetH StelL'BsNaoth sll'Ha! aH NAfL'AIyAR H'EbUMna
Acme-Pi-Abrahamic
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
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";
Acme-Pinoko
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
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";
Acme-Playwright
view release on metacpan or search on metacpan
Playwright.pm view on Meta::CPAN
'That is a lovely shade of blue.' => 'E', 'That weighs a bit more than I expected.' => 'F',
'Where did you say you want me to put that?' => 'G', "I won't put that there." => 'H',
"Are you sure I'm supposed to put that there?" => 'I', 'I need to sharpen my sword.' => 'J',
'I like to paint.' => 'K', 'Wow, you have a lot of books.' => 'L',
'I finally got my network setup.' => 'M', 'I need more RAM.' => 'N',
'Where did I put my pen?' => 'O', 'That looks like a nasty cut.' => 'P',
'Have you got some aspirin?' => 'Q', 'Got any gum?' => 'R',
'My subscription to Sys Admin is about to expire.' => 'S', "She's pretty" => 'T',
'I wish it would stop raining.' => 'U', 'It is waaaaay too hot in here.' => 'V',
'Could you turn that fan off?' => 'W', 'Do you know much about TCP/IP?' => 'X',
'I finally got my certificate.' => 'Y', 'That picture frame is a little crooked.' => 'Z',
Playwright.pm view on Meta::CPAN
'Why would I do that?' => ' ', 'I need more paint.' => ' ',
'The water is warm.' => ' ', 'Have you ever seen so many worms?' => ' ',
'Three, maybe four times. And you?' => ' ', 'My shoe is untied again.' => ' ',
'I finally got around to doing that.' => ' ', 'Could you please pass the coleslaw?' => ' ',
'Have you ever seen one of these?' => ' ', "I've never seen one so close up before." => ' ',
'It looks sort of squashed.' => ' ', 'Whatever you say.' => ' ',
'Not if you paid me.' => 'a', "Please don't poke me with that." => 'a',
'Have you looked under the table?' => 'a', 'It has water in it.' => 'a',
'Hey, nice foot.' => 'a', "I'm not sure I should put that there." => 'a',
'I beg your pardon?' => 'a', 'Not at the moment.' => 'a',
"I don't think so." => 'a', 'Who?' => 'a',
'I never did learn how to do that very well.' => 'e', 'It is much heavier than it looks.' => 'e',
'No, you have too many already.' => 'e', 'Done!', => 'e',
'I win, you lose.' => 'e', 'Get bent.' => 'e',
'When would be a good time for you?' => 'e', 'Pfah!' => 'e',
'In your shoe, I think.' => 'e', 'I did that yesterday.' => 'e',
'Ok, but it will cost you.' => 'n', 'I like it when you touch me there.' => 'n',
Playwright.pm view on Meta::CPAN
'Will you never stop crying?' => 'n', 'Because I said so.' => 'n',
'As soon as the train stops.' => 'n', 'That is a very large apple.' => 'n',
"I'm not sure what that is." => 'n', 'No thanks.' => 'n',
'Could you repeat that?' => 'o', 'I have never been so bored.' => 'o',
'So what are your thoughts on Tolstoy?' => 'o', "I'm still trying to find the plot." => 'o',
"He's rather fond of himself, isn't he?" => 'o', "Well it looks like...I don't know what it looks like." => 'o',
'Your point being?' => 'o', 'And...?' => 'o',
'I have a picture of that on my mousepad.' => 'o', 'That stain will never come out.' => 'o',
'I tried that once, but it felt really weird.' => 'r', 'That door sure is hard to open.' => 'r',
'That really hurt.' => 'r', 'I have to delete that.' => 'r',
'It is just too big.' => 'r', 'Only when I cross my eyes.' => 'r',
Playwright.pm view on Meta::CPAN
@pSpace = (
'Why would I do that?', 'I need more paint.', 'The water is warm.',
'Have you ever seen so many worms?', 'Three, maybe four times. And you?', 'My shoe is untied again.',
'I finally got around to doing that.', 'Could you please pass the coleslaw?', 'Have you ever seen one of these?',
"I've never seen one so close up before.", 'It looks sort of squashed.', 'Whatever you say.'
);
@pA = (
'Not if you paid me.', "Please don't poke me with that.",
'Have you looked under the table?', 'It has water in it.',
Playwright.pm view on Meta::CPAN
'I beg your pardon?', 'Not at the moment.',
"I don't think so.", 'Who?'
);
@pE = (
"I never did learn how to do that very well.", "It is much heavier than it looks.",
"No, you have too many already.", "Done!",
"I win, you lose.", "Get bent.",
"When would be a good time for you?", "Pfah!",
"In your shoe, I think.", "I did that yesterday."
);
Playwright.pm view on Meta::CPAN
);
@pO = (
'Could you repeat that?', 'I have never been so bored.',
'So what are your thoughts on Tolstoy?', "I'm still trying to find the plot.",
"He's rather fond of himself, isn't he?", "Well it looks like...I don't know what it looks like.",
"Your point being?", 'And...?',
'I have a picture of that on my mousepad.', 'That stain will never come out.'
);
@pR = (
Playwright.pm view on Meta::CPAN
@Actions = (
'writes a poem', 'enters from stage left',
"peers over Michael's shoulder", 'laughs',
'screams in pain', 'opens a book',
'sits at the table', 'crosses stage right',
'looks under the chair', 'straightens the table cloth',
'opens the window', 'looks around in confusion',
'starts singing quietly', 'closes the window',
'cries', 'enters from stage right',
'crosses stage left', 'picks up the book',
'breaks the mirror', 'kicks the table',
'gazes longingly at Pietro', 'dances a merry jig',
Playwright.pm view on Meta::CPAN
'turns on the radio', 'turns off the radio',
'turns on the television', 'turns off the television',
'selects a book from the bookshelf', 'concentrates',
'burps', 'clucks like a chicken',
'motions toward the door', 'plops down on the sofa',
'looks around suspiciously', 'beings folding laundry',
'takes a pan of brownies from the oven', 'thinks of the color blue',
"pours vinegar in Karen's shoes", 'eats a pickle',
'disrobes', 'dances about like a loon',
'flits about like a fawn in springtime', 'does an impression of Charlie Chaplin',
'takes a ham from the oven', 'begins plucking a chicken',
Acme-Pointer
view release on metacpan or search on metacpan
lib/Acme/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
Acme-PrettyCure
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
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";
Acme-Python
view release on metacpan or search on metacpan
=head1 DESCRIPTION
The first time you run a program under C<use Acme::Python>, the module
transforms the horrid perl syntax into beautiful python-speak.
The code continues to work exactly as it did before, but now it
looks like this:
use Acme::Python;
Hisssssssssssssssss
hiss Hiss hiss Hiss hisssssssss Hissss hisss
Hiss hisss Hissss hiss Hiss hisss Hiss hiss
Acme-RFC4824
view release on metacpan or search on metacpan
01:23:45:67:89:0a and your MAC is 00:11:22:33:44:55:66, you can run it
as
# ipsfss_send.pl en0 00:11:22:33:44:55:66 01:23:45:67:89:0a
Please note that both example programs assume an interface which
either is or looks like Ethernet.
UPPORT AND DOCUMENTATION
After installing, you can find documentation for this module with the perldoc command.
Acme-Remote-Strangulation-Protocol
view release on metacpan or search on metacpan
use Test::Pod tests => 1;
pod_file_ok("Protocol.pm","POD looks good");
Acme-Replica
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
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";
Acme-Roman
view release on metacpan or search on metacpan
lib/Acme/Roman.pm view on Meta::CPAN
}
sub new {
my $proto = shift;
my $arg = shift;
if ( $arg =~ /^\d+$/ ) { # looks like an arabic number
croak __PACKAGE__, " does not like numbers above 3999" if $arg > 3999;
return $proto->SUPER::new( { roman => Roman::Roman($arg), num => $arg } );
} elsif ( Roman::isroman($arg) ) {
return $proto->SUPER::new( { roman => $arg, num => Roman::arabic($arg) } );
} else {
Acme-Sort-Sleep
view release on metacpan or search on metacpan
lib/Acme/Sort/Sleep.pm view on Meta::CPAN
use strict;
use warnings;
use IO::Async::Loop;
use IO::Async::Timer::Countdown;
use Scalar::Util qw( looks_like_number );
use base 'Exporter';
our @EXPORT_OK = qw( sleepsort );
use constant ERROR_STR => "Only positive numbers accepted.";
lib/Acme/Sort/Sleep.pm view on Meta::CPAN
for my $num ( @unsorted ) {
# only allow positive numbers
die ERROR_STR unless defined $num;
die ERROR_STR unless looks_like_number $num;
die ERROR_STR unless $num >= 0;
my $timer = IO::Async::Timer::Countdown->new(
delay => $num,
remove_on_expire => 1,
Acme-Spinodal-Utils
view release on metacpan or search on metacpan
lib/Acme/Spinodal/Utils.pm view on Meta::CPAN
use 5.006;
use strict;
use warnings;
use Scalar::Util qw( looks_like_number );
use Carp qw( croak );
=head1 NAME
Acme::Spinodal::Utils - Some utility functions for me, Spinodal
lib/Acme/Spinodal/Utils.pm view on Meta::CPAN
}
if( ref $_[0]){
croak( "Expected a scalar, but found ". ref $_[0] );
}
if( !looks_like_number( $_[0] ) ){
croak( "[$_[0]] does not appear to be a valid number!" );
}
return $_[0];
}
Acme-Steganography-Image-Png
view release on metacpan or search on metacpan
=item Acme::Steganography::Image::Png::RGB::323
Also stuffs your data into a sample image, using the low order bits of each
colour. Only 1 byte of your data is stored in each pixel, 3 bits in Red and
Blue, 2 in Green. To the untrained eye the image looks good. But the fact
that it's PNG will make anyone suspicious about the contents.
=item Acme::Steganography::Image::Png::RGB::556FS
Stuffs your data into a sample image, using the low order bits of each colour.
Acme-TestDist-Cpp-EUMM-EUCppGuess
view release on metacpan or search on metacpan
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
( run in 0.779 second using v1.01-cache-2.11-cpan-64827b87656 )