view release on metacpan or search on metacpan
fortune/jackbauer view on Meta::CPAN
%
If you can read this, thank a teacher. If it's in English, thank Jack Bauer... for not killing your teacher.
%
Jack Bauer pours water into acids.
%
If you shoot Jack Bauer in a dream, you'd better wake up and apologize.
%
Jack Bauer didn't quit smoking. He just quit smoking cigarettes. Non-filtered wasn't strong enough, so he moved on to exhaust pipes.
%
Grand Theft Auto doesn't have a 7 star wanted level, you don't want Jack Bauer after you, even in a video game.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer doesn't have to go fishing - the fish willingly jump out of the water and directly onto Jack's grill.
%
The little light in Jack Bauer's refrigerator stays on even after the door is closed.
%
At Jack Bauer's funeral, there will be a eulogy, twenty-gun salute, and a squadron of F-14s flying over the procession. All of which will be performed by Jack Bauer.
%
Even if you get shot in the neck or blown up in an explosion, if Jack Bauer needs you to work, you're coming back to work, dammit.
%
Jack Bauer once thought he'd saved the world with 61 seconds to spare. Then he found his watch was a minute fast.
%
fortune/jackbauer view on Meta::CPAN
%
When Jack Bauer was born, terrorists began suicide bombing.
%
When Jack Bauer eats Taco Bell, he feels fine and the entire country of Mexico has violent diarrhea.
%
After having sex with your wife, apologize for not being Jack Bauer.
%
Jack Bauer allows himself to be stabbed, shot or tortured as a means of relieving stress, similar to accupuncture.
%
Jack Bauer had phone sex with a woman and got her pregnant.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer moves at the speed of light. That's why 24 hours to him is actually 18 hours to the rest of us.
%
Jack Bauer doesn't get full from the Taco Bell Dollar Menu.
%
Jack Bauer's biological make-up is so advanced that he internally recycles his own human waste into nourishment. That's why Jack never eats or goes to the bathroom.
%
Jack Bauer once fell into quicksand. Lucky for Jack, he had his gun with him and shot his way out of it.
%
CTU agents watch highlights of Jack Bauer torturing terrorists. They call it, "You just got Jacked up."
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer's sperm is expected to surpass breast cancer as a "leading killer of women" this year.
%
Jack Bauer's death was not staged. Jack came back to life after Satan was too scared to let him into Hell.
%
Jack Bauer's penis is actually a Verizon Wireless cell phone tower, so it's perfectly logical that he gets service 30,000 feet in the air inside the hull of a jet.
%
Jack Bauer can beat you in a thumb wrestling match without ever touching you.
%
If Jack Bauer were to screw hot babes (ex. Jessica Alba, Jessica Simpson, Jennifer Garner, Jennifer Anniston, and Paris Hilton.) I can assure you that that their acting careers will no longer prosper due to the fact that they will spend the rest of t...
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer doesn't have time for White-Out to dry before writing over it.
%
Jack Bauer found a magic lamp on a deserted island. He wished he could kill a terrorist, then wished the terrorist back to life so he could kill him again.
%
Jack Bauer once shot off a man's penis during an interrogation. He later apologized, not realizing that regular men only have one penis.
%
The only reason CSI exists in Las Vegas is because Jack Bauer lives in Los Angeles.
%
Jack Bauer does not care for names. Every entry in his address book is simply labeled "Son of a Bitch."
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer controls the Matrix, he chose Neo to be the one because Jack Bauer doesn't like playing computer games.
%
When Jack Bauer says, "I don't know if I can do this anymore", the statement must be loosely translated as, "I can still rip off your head, I just don't know if I feel like I can shit down your neck at this time."
%
Jack Bauer doesn't play the game SORRY. Jack Bauer apologizes to no one.
%
Jack Bauer once took steroids to try and shrink his giant fucking balls... It didn't work.
%
Jack Bauer doesn't need your recommendation, he can find his own fucking job.
%
fortune/jackbauer view on Meta::CPAN
Ten minutes later, the cougars were dead.
%
Jack Bauer doesn't follow the "don't ask, don't tell" policy. Bauer asks, and you'd better tell. Or else.
%
There once was a terrorist cell planning an attack on United States soil. CTU got wind of this and naturally sent Jack Bauer to "recon" the base and call for additional reinforcements if needed. Upon arrival at said encampment, Jack saw that the head...
%
Jack Bauer smashed a mirror because he thought a terrorist was trying to impersonate him.
%
If Jack Bauer were 50 Cent, Ja Rule would be rapping about butterflies and ponies.
%
fortune/jackbauer view on Meta::CPAN
%
If Jack Bauer was interrogating Morpheus in "The Matrix", Zion would have been fucked.
%
Jack Bauer as the new spokesperson for Verizon: "You're gonna hear me now. It's just a matter of how much you want it to hurt."
%
Jack Bauer only uses wireless technology. Not because he's rich, but because wires remind him of Chuck Norris' penis.
%
Jack Bauer is such a bad ass that as a Boy Scout he earned all his merit badges in one day.
%
Al Roker lost all the weight because Jack Bauer scared the crap out of him.
%
fortune/jackbauer view on Meta::CPAN
%
When Jack Bauer gets within ten miles of you, you automatically start sweating.
%
So far, Jack Bauer has said some variant of "Trust Me" 485,942 times during his televised adventures.
%
"Have it your way" wasn't a slogan at Burger King until Jack Bauer came in. Jack Bauer fucking hates tomatoes.
%
Kobe Bryant will pass the ball when Jack Bauer tells him to.
%
Satellites aren't in orbit. They're trying to get away from Jack Bauer but can't.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer can come up with a word that rhymes with "purpose".
%
Jack Bauer doesn't sleep. He absorbs the sleep every person he killed had before he killed them.
%
Only two people dared to argue with Jack Bauer. David Palmer and Michelle Dessler. Tony apologized.
%
Jack Bauer's urine is an effective substitute for diesel fuel.
%
The term "jackin off" now means killing 50 terrorists in 2 minutes.
%
fortune/jackbauer view on Meta::CPAN
%
In Soviet Russia, Jack Bauer is the one that drives the car.
%
Jack Bauer does not need to upload songs to his iPod, they upload themselves.
%
When Jack Bauer got a job at the Home Depot, they changed their slogan to, "You can't do it, Jack Bauer can help."
%
There were a lot of terrorists in Atlantis, now where the fuck is it? It is all Jack Bauer's doing.
%
Water can only go three days without Jack Bauer.
%
fortune/jackbauer view on Meta::CPAN
%
If you dare read Jack's file, the first thing he's going to do is cut out your left eye...
%
Jack Bauer has killed more people than Vin Diesel and Chuck Norris. And he did it in 24 hours.
%
Jack Bauer killed Jack Black for using the slogan "Jack is Back" during the super bowl commercial.
%
Jack Bauer understands the words that are coming out of Chris Tucker's mouth, but it's just easier to shoot him.
%
Jack Bauer made Heather Brooke gag.
%
fortune/jackbauer view on Meta::CPAN
%
Whenever Jack Bauer gets taken into custody he always hands over his one shoulder strap nap sack and says "here are my weapons". If you notice, no one has ever dared to look in that bag.
%
When Jack Bauer plays Texas Hold-em he only gets one card, "to keep it fair".
%
Jack Bauer once worked at Burger King. In 24 hours, they changed their slogan to "Have it Jack Bauer's Way".
%
Paul saved Jack Bauer's life. In turn Jack let Paul die because nobody saves Jack Bauer, but Jack Bauer.
%
Ron Burgundy was wrong... San Diego, in fact, was named after Jack Bauer.
%
fortune/jackbauer view on Meta::CPAN
%
God created the universe in 6 days. That’s 5 days 23 hours and 59 minutes longer than it took Jack Bauer to create God.
%
Jack Bauer's idea of a vaction is killing 65 terrorists in another country.
%
Because of Jack Bauer, the Army switched their slogan from "Be All You Can Be" to "Army Of One".
%
Jack Bauer will hurt you before he kills you. Luckily, you have the choice of how much you want it to hurt.
%
Scissors are scared to run with Jack Bauer.
%
fortune/jackbauer view on Meta::CPAN
%
Executions by lethal injection are carried out using Jack Bauer's semen.
%
In space no one can hear you scream, no one except Jack Bauer.
%
Scientology was based off a Mad Lib that Jack Bauer filled out when he was drunk.
%
Jack Bauer has never lost The Game. Jack Bauer invented The Game
%
Jack Bauer knows why kids love the taste of cinnamon toast crunch.
%
fortune/jackbauer view on Meta::CPAN
%
Jack doesn't get morning wood. He gets morning steel. Stainless steel.
%
On the Price is Right, you can win up to $50,000 playing Plinko. Jack Bauer on the other hand, won $350,000 from Plinko.
%
When Jack Bauer graduated UCLA, UCLA got a degree in Criminology and Law.
%
Jack Bauer could easily stop terrorists from the minute he gets the call. He just decides to give them 24 hours from the goodness of his heart.
%
Jack was trained as an anaesthetist, but failed his finals because he preferred the rapid effectiveness of the "knock-out punch".
%
fortune/jackbauer view on Meta::CPAN
%
When Jack Bauer said "show me your head" he was actually telling the terrorist to show him his head. The terrorist knew that getting killed by bullet was a much better result than ignoring a command from Jack Bauer.
%
Jack Bauer never has to preheat the oven.
%
David Palmer did not get that horrbile burn on his hand from a biological agent. He got it after he high-fived Jack.
%
Jack Bauer once opened a can of whoop ass. All he found inside was a mirror.
%
To stop the Japanese in WWII Truman was going to drop Jack Bauer out of a Bomber. Instead he went with a nuke because it was more humane.
%
view all matches for this distribution
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
DateTime-Locale-0.45
pathname: D/DR/DROLSKY/DateTime-Locale-0.45.tar.gz
provides:
DateTime::Locale 0.45
DateTime::Locale::Base undef
DateTime::Locale::Catalog undef
DateTime::Locale::aa undef
DateTime::Locale::aa_DJ undef
DateTime::Locale::aa_ER undef
DateTime::Locale::aa_ER_SAAHO undef
DateTime::Locale::aa_ET undef
cpanfile.snapshot view on Meta::CPAN
DateTime::TimeZone::Australia::Melbourne 1.75
DateTime::TimeZone::Australia::Perth 1.75
DateTime::TimeZone::Australia::Sydney 1.75
DateTime::TimeZone::CET 1.75
DateTime::TimeZone::CST6CDT 1.75
DateTime::TimeZone::Catalog 1.75
DateTime::TimeZone::EET 1.75
DateTime::TimeZone::EST 1.75
DateTime::TimeZone::EST5EDT 1.75
DateTime::TimeZone::Europe::Amsterdam 1.75
DateTime::TimeZone::Europe::Andorra 1.75
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Acme/ADEAS/Utils.pm view on Meta::CPAN
If your Modified Version has been derived from a Modified Version made
by someone other than you, you are nevertheless required to ensure that
your Modified Version complies with the requirements of this license.
This license does not grant you the right to use any trademark, service
mark, tradename, or logo of the Copyright Holder.
This license includes the non-exclusive, worldwide, free-of-charge
patent license to make, have made, use, offer to sell, sell, import and
otherwise transfer the Package with respect to any patent claims
licensable by the Copyright Holder that are necessarily infringed by the
view all matches for this distribution
view release on metacpan or search on metacpan
If your Modified Version has been derived from a Modified Version made
by someone other than you, you are nevertheless required to ensure that
your Modified Version complies with the requirements of this license.
This license does not grant you the right to use any trademark, service
mark, tradename, or logo of the Copyright Holder.
This license includes the non-exclusive, worldwide, free-of-charge
patent license to make, have made, use, offer to sell, sell, import and
otherwise transfer the Package with respect to any patent claims
licensable by the Copyright Holder that are necessarily infringed by the
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Acme/ARUHI/Utils.pm view on Meta::CPAN
If your Modified Version has been derived from a Modified Version made
by someone other than you, you are nevertheless required to ensure that
your Modified Version complies with the requirements of this license.
This license does not grant you the right to use any trademark, service
mark, tradename, or logo of the Copyright Holder.
This license includes the non-exclusive, worldwide, free-of-charge
patent license to make, have made, use, offer to sell, sell, import and
otherwise transfer the Package with respect to any patent claims
licensable by the Copyright Holder that are necessarily infringed by the
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Acme/AXP/Utils.pm view on Meta::CPAN
If your Modified Version has been derived from a Modified Version made
by someone other than you, you are nevertheless required to ensure that
your Modified Version complies with the requirements of this license.
This license does not grant you the right to use any trademark, service
mark, tradename, or logo of the Copyright Holder.
This license includes the non-exclusive, worldwide, free-of-charge
patent license to make, have made, use, offer to sell, sell, import and
otherwise transfer the Package with respect to any patent claims
licensable by the Copyright Holder that are necessarily infringed by the
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
} }
inc/Module/Install/Fetch.pm view on Meta::CPAN
unless ($fh->open("|$ftp -n")) {
warn "Couldn't open ftp: $!\n";
chdir $dir; return;
}
my @dialog = split(/\n/, <<"END_FTP");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
END_FTP
foreach (@dialog) { $fh->print("$_\n") }
$fh->close;
} }
else {
warn "No working 'ftp' program available!\n";
chdir $dir; return;
view all matches for this distribution
view release on metacpan or search on metacpan
Version made by someone other than you, you are nevertheless required
to ensure that your Modified Version complies with the requirements of
this license.
(12) This license does not grant you the right to use any trademark,
service mark, tradename, or logo of the Copyright Holder.
(13) This license includes the non-exclusive, worldwide,
free-of-charge patent license to make, have made, use, offer to sell,
sell, import and otherwise transfer the Package with respect to any
patent claims licensable by the Copyright Holder that are necessarily
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Acme/Aheui.pm view on Meta::CPAN
An aheui interpreter.
See aheui language specification at L<https://aheui.github.io/specification.en>
Most logic is based on the reference implementation by Puzzlet Chung.
(L<https://github.com/aheui/jsaheui>)
=cut
use constant {
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
} }
inc/Module/Install/Fetch.pm view on Meta::CPAN
unless ($fh->open("|$ftp -n")) {
warn "Couldn't open ftp: $!\n";
chdir $dir; return;
}
my @dialog = split(/\n/, <<"END_FTP");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
END_FTP
foreach (@dialog) { $fh->print("$_\n") }
$fh->close;
} }
else {
warn "No working 'ftp' program available!\n";
chdir $dir; return;
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
} }
inc/Module/Install/Fetch.pm view on Meta::CPAN
unless ($fh->open("|$ftp -n")) {
warn "Couldn't open ftp: $!\n";
chdir $dir; return;
}
my @dialog = split(/\n/, <<"END_FTP");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
END_FTP
foreach (@dialog) { $fh->print("$_\n") }
$fh->close;
} }
else {
warn "No working 'ftp' program available!\n";
chdir $dir; return;
view all matches for this distribution
view release on metacpan or search on metacpan
t/01-test.t view on Meta::CPAN
test('1+3^x', qw(1 3 x exponentiate add));
test('-3-3*x', qw(3 negate 3 x multiply subtract));
test('sqrt(4)', qw(4 0.5 exponentiate));
$expr = '2*news(a)/2+pi';
test('-sin(box(a,20))', qw(a 20 2 box sin negate));
test('log(a)', qw(a log));
test('atan2(a,b)', qw(a b atan2));
test('a^b', qw(a b exponentiate));
test('a^b3', qw(a b3 exponentiate));
test('a^-1', qw(a 1 negate exponentiate));
test('sin(pi/3)*2/log(2,1.3)', qw(pi 3 divide sin 2 multiply 2 1.3 log divide));
test('4*foo(a,3)', qw(4 a 3 2 foo multiply));
test('4*foo(a,3,55)', qw(4 a 3 55 3 foo multiply));
print STDERR "Shouldn't parse due to 'boo' function, which we don't know\n";
ok(!defined($rpn->rpn('4*boo(a,3,55)')));
#print $rpn->rpn_as_string($expr), "\n";
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Acme/AliG.pm view on Meta::CPAN
"swiss" => "batty",
"talk" => "natter",
"talking" => "bangin",
"team" => "crew",
"techno" => "speed garage",
"technology" => "bits",
"terrorism" => "terrerorism",
"terrorist" => "terrerorist",
"terrorist" => "terrerorists",
"test" => "da test",
"thanks" => "big up",
view all matches for this distribution
view release on metacpan or search on metacpan
xt/author/pod_spelling_system.t view on Meta::CPAN
CPAN
reinstall
TODO
filename
filenames
login
callback
callbacks
standalone
VMS
hostname
view all matches for this distribution
view release on metacpan or search on metacpan
xt/author/pod_spelling_system.t view on Meta::CPAN
CPAN
reinstall
TODO
filename
filenames
login
callback
callbacks
standalone
VMS
hostname
view all matches for this distribution
view release on metacpan or search on metacpan
user = athreef
[@Git]
[Git::Init]
remote = origin git@github.com:athreef/%N.git
[Git::NextVersion]
[ChangelogFromGit]
[OurPkgVersion]
[ReadmeAnyFromPod / ReadmePodInRoot]
type = pod
filename = README.pod
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Acme/Array/MaxSize.pm view on Meta::CPAN
If your Modified Version has been derived from a Modified Version made
by someone other than you, you are nevertheless required to ensure that
your Modified Version complies with the requirements of this license.
This license does not grant you the right to use any trademark, service
mark, tradename, or logo of the Copyright Holder.
This license includes the non-exclusive, worldwide, free-of-charge
patent license to make, have made, use, offer to sell, sell, import and
otherwise transfer the Package with respect to any patent claims
licensable by the Copyright Holder that are necessarily infringed by the
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Acme/AsciiEmoji.pm view on Meta::CPAN
If your Modified Version has been derived from a Modified Version made
by someone other than you, you are nevertheless required to ensure that
your Modified Version complies with the requirements of this license.
This license does not grant you the right to use any trademark, service
mark, tradename, or logo of the Copyright Holder.
This license includes the non-exclusive, worldwide, free-of-charge
patent license to make, have made, use, offer to sell, sell, import and
otherwise transfer the Package with respect to any patent claims
licensable by the Copyright Holder that are necessarily infringed by the
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Acme/BLACKJ/Utils.pm view on Meta::CPAN
If your Modified Version has been derived from a Modified Version made
by someone other than you, you are nevertheless required to ensure that
your Modified Version complies with the requirements of this license.
This license does not grant you the right to use any trademark, service
mark, tradename, or logo of the Copyright Holder.
This license includes the non-exclusive, worldwide, free-of-charge
patent license to make, have made, use, offer to sell, sell, import and
otherwise transfer the Package with respect to any patent claims
licensable by the Copyright Holder that are necessarily infringed by the
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Acme/Backwards.pm view on Meta::CPAN
If your Modified Version has been derived from a Modified Version made
by someone other than you, you are nevertheless required to ensure that
your Modified Version complies with the requirements of this license.
This license does not grant you the right to use any trademark, service
mark, tradename, or logo of the Copyright Holder.
This license includes the non-exclusive, worldwide, free-of-charge
patent license to make, have made, use, offer to sell, sell, import and
otherwise transfer the Package with respect to any patent claims
licensable by the Copyright Holder that are necessarily infringed by the
view all matches for this distribution
view release on metacpan or search on metacpan
Version made by someone other than you, you are nevertheless required
to ensure that your Modified Version complies with the requirements of
this license.
(12) This license does not grant you the right to use any trademark,
service mark, tradename, or logo of the Copyright Holder.
(13) This license includes the non-exclusive, worldwide,
free-of-charge patent license to make, have made, use, offer to sell,
sell, import and otherwise transfer the Package with respect to any
patent claims licensable by the Copyright Holder that are necessarily
view all matches for this distribution
view release on metacpan or search on metacpan
the conditions stated below. Sublicensing is not allowed; section 10
makes it unnecessary.
3. Protecting Users' Legal Rights From Anti-Circumvention Law.
No covered work shall be deemed part of an effective technological
measure under any applicable law fulfilling obligations under article
11 of the WIPO copyright treaty adopted on 20 December 1996, or
similar laws prohibiting or restricting circumvention of such
measures.
When you convey a covered work, you waive any legal power to forbid
circumvention of technological measures to the extent such circumvention
is effected by exercising rights under this License with respect to
the covered work, and you disclaim any intention to limit operation or
modification of the work as a means of enforcing, against the work's
users, your or third parties' legal rights to forbid circumvention of
technological measures.
4. Conveying Verbatim Copies.
You may convey verbatim copies of the Program's source code as you
receive it, in any medium, provided that you conspicuously and
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Acme/Beamerang/Logger.pm view on Meta::CPAN
our $VERSION = '0.001000';
use parent 'Log::Contextual';
sub default_import { qw(:dlog :log ) }
# This ideally would be regulated by the importing class
# but I got tired of trying to guess what horrible magic
# was necessary to make Exporter::Declare and whatever
# the hell Log::Contextual's import logic does work.
sub _get_prefixes {
my $class = $_[0];
my (@parts) = split /::/sx, $class;
# Always assume there is no Acme
lib/Acme/Beamerang/Logger.pm view on Meta::CPAN
}
}
return @prefixes, 'BEAMERANG';
}
sub arg_default_logger {
return $_[1] if $_[1];
require Log::Contextual::WarnLogger::Fancy;
my $caller = caller(3);
my ( $env, @group ) = _get_prefixes($caller);
lib/Acme/Beamerang/Logger.pm view on Meta::CPAN
1;
=head1 NAME
Acme::Beamerang::Logger - A Simple per-class clan warnlogger loader
=head1 SYNOPSIS
# Interface is basically the same as Log::Contextual::Easy::Default
use Acme::Beamerang::Logger; # imports :dlog and :log by default
# also assigns a default logger to the package.
=head1 DESCRIPTION
This class is a convenience layer to tie L<Log::Contextual::WarnLogger::Fancy>
into the C<Acme::Beamerang> project space.
lib/Acme/Beamerang/Logger.pm view on Meta::CPAN
This would otherwise be part of the other C<Acme::Beamerang> things that are still yet to
materialise, but the inversion control this project entails means directly coupling
this component with either of those parts would lead to a dependency graph that would
defeat the point of the control inversion.
This tool otherwise loads up C<Log::Contextual> with a nice default logger, with all the glue
in place to be convenient for this project, while still having an open door to a real logger.
=head1 ENVIRONMENT
This module utilizes the C<env_prefix> and C<group_env_prefix> of L<Log::Contextual::WarnLogger::Fancy>
to generate a collection of C<ENV> vars for narrow or broad incision of logging statements without need
to use more complex logging technology.
Every package that uses this logger will respond to C<BEAMERANG_$LOG_LEVEL> and C<BEAMERANG_UPTO> values.
Every package beginning with either C<Acme::Beamerang::> or C<Beamerang::> will additionally respond to
a collection of namespace oriented C<ENV> variables.
For instance,
lib/Acme/Beamerang/Logger.pm view on Meta::CPAN
=head1 SEE ALSO
=over 4
=item * L<< C<Log::Contextual::Easy::Default>|Log::Contextual::Easy::Default >> - Interface is otherwise identical to this
module, only the default logger in choice and its configuration differs.
=back
=head1 AUTHOR
view all matches for this distribution
view release on metacpan or search on metacpan
Donner dips diet sure dry node deserted panel Anton Erne retard
laid sit Walt suits rubs Vera incites aster currying foal stall
iterating leader start ran Nugent Asian dogs beret dune distrust cab
Estes rebelliousness spout duet answerers Orleans Lotte mid Laotian redo enjoin
scout we Augustus color asset bedfast Sandia fraud deus flashers Brian
bin mast spilt Latin clasps limit logo no aureole snuggle dig
ad recta annal ethically ally toad Wu brag nears giddy Nugent
toils gunnery Tigris rusts annexes peels dent threatened nulled car asses
thin saga gaiter gape ancient Satan coalescing Dow soars Provence hag
irate Lesbians Adrian roles millipedes bald suds writing Maine logo appending
scars turns McLanahan erosion stile submariner bliss Connors lung opulent barns
pen eats assails rods premises trims grit alacrity acute con tar
orgies suds scram Oscar Tulsa Ainu Erastus dues art rolled rests
seeder boats reuse used gauge nouns typo entrust renal swirl stature
lead bleacher utensil dean rugs plain pun grated flit spider tries
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Acme/BeyondPerl/ToSQL.pm view on Meta::CPAN
'-' => sub { shift->sub(@_) },
'*' => sub { shift->mul(@_) },
'/' => sub { shift->div(@_) },
'%' => sub { shift->mod(@_) },
'**' => sub { shift->pow(@_) },
'log' => sub { shift->log(@_) },
'sqrt' => sub { shift->sqrt(@_)},
'abs' => sub { shift->abs(@_) },
'cos' => sub { shift->cos(@_) },
'sin' => sub { shift->sin(@_) },
'exp' => sub { shift->exp(@_) },
lib/Acme/BeyondPerl/ToSQL.pm view on Meta::CPAN
sub abs {
my ($x) = _get_args(@_);
_calc_by_rdbm("SELECT abs($x)");
}
sub log {
my ($x) = _get_args(@_);
_calc_by_rdbm("SELECT ln($x)");
}
sub exp {
view all matches for this distribution
view release on metacpan or search on metacpan
CODE_OF_CONDUCT.md view on Meta::CPAN
community include:
* Demonstrating empathy and kindness toward other people
* Being respectful of differing opinions, viewpoints, and experiences
* Giving and gracefully accepting constructive feedback
* Accepting responsibility and apologizing to those affected by our mistakes,
and learning from the experience
* Focusing on what is best not just for us as individuals, but for the
overall community
Examples of unacceptable behavior include:
CODE_OF_CONDUCT.md view on Meta::CPAN
**Community Impact**: Use of inappropriate language or other behavior deemed
unprofessional or unwelcome in the community.
**Consequence**: A private, written warning from community leaders, providing
clarity around the nature of the violation and an explanation of why the
behavior was inappropriate. A public apology may be requested.
### 2. Warning
**Community Impact**: A violation through a single incident or series
of actions.
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
} }
inc/Module/Install/Fetch.pm view on Meta::CPAN
unless ($fh->open("|$ftp -n")) {
warn "Couldn't open ftp: $!\n";
chdir $dir; return;
}
my @dialog = split(/\n/, <<"END_FTP");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
END_FTP
foreach (@dialog) { $fh->print("$_\n") }
$fh->close;
} }
else {
warn "No working 'ftp' program available!\n";
chdir $dir; return;
view all matches for this distribution
view release on metacpan or search on metacpan
[NextRelease]
format = %v %{EEE MMM d yyyy}d
[@Git]
changelog = Changes
commit_msg = Changes for version %v
tag_format = v%v
tag_message = %N v%v
push_to = origin
push_to = github
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Acme/Boolean.pm view on Meta::CPAN
=head2 Caveats
Noted here that the word C<no> is also a keyword for unimporting
pragmas/modules and thus one must write C<&no> to get the wanted
boolean. Alternatively, one may go with the all caps version C<NO>,
although that may accidently include some emotions to the logic.
In fact, if strong emotion is intentionally wished for, all the introduced
words comes with a all caps version at your disposal.
Here are some notable examples:
view all matches for this distribution
view release on metacpan or search on metacpan
Build.PL
Changes
debian/changelog
debian/control
debian/copyright
debian/libacme-brainfck-perl.examples
debian/rules
examples/countdown.pl
view all matches for this distribution