view release on metacpan or search on metacpan
lib/AWS/Lambda/Quick.pm view on Meta::CPAN
=back
And then debug all the above things, a lot, and google weird error
messages it generates when you inevitably make a mistake.
This module provides a way to do all of this completely transparently
just by executing your script, without having to either interact with
the AWS Management Console nor directly use the awscli utility.
Simply include this module at the top of your script containing the
handler function:
view release on metacpan or search on metacpan
examples/cgi/WwwCounter/gifcat.pl view on Meta::CPAN
$GifImage .= $globalColorTable[0];
}
for ($i = -1; $i < $Gif; $i++) {
$j = ($i == -1) ? 0 : $i;
$GifImage .= pack("CCC", 0x21, 0xf9, 0x04);
$GifImage .= pack("C", $PackedFields23 | $TransparentColorFlag[$j]);
$GifImage .= pack("CC", 0x00, 0x00);
$GifImage .= pack("C", $TransparentColorIndex[$j]);
$GifImage .= pack("C", 0x00);
$GifImage .= pack("C", 0x2c);
$n = $leftpos;
$leftpos += ($i == -1) ? 0 : $ImageWidth[$j];
$GifImage .= pack("C", $n & 0x00ff);
examples/cgi/WwwCounter/gifcat.pl view on Meta::CPAN
$BlockSize = ord(substr($buf, $cnt, 1)); $cnt++;
$PackedFields23 = ord(substr($buf, $cnt, 1)); $cnt++;
$Reserved = ($PackedFields23 & 0xe0) >> 5;
$DisposalMethod = ($PackedFields23 & 0x1c) >> 5;
$UserInputFlag = ($PackedFields23 & 0x02) >> 1;
$TransparentColorFlag[$Gif] = $PackedFields23 & 0x01;
$DelayTime = ord(substr($buf, $cnt, 1))
+ ord(substr($buf, $cnt+1, 1)) * 256; $cnt += 2;
$TransparentColorIndex[$Gif] = ord(substr($buf, $cnt, 1)); $cnt++;
$BlockTerminator = ord(substr($buf, $cnt, 1)); $cnt++;
if ($pflag) {
printf("=====================================\n");
printf("Graphic Control Extension\n");
examples/cgi/WwwCounter/gifcat.pl view on Meta::CPAN
printf("Graphic Control Label: 0x%02x\n", $GraphicControlLabel);
printf("Block Size: %d\n", $BlockSize);
printf("Reserved: --\n");
printf("Disposal Method: %d\n", $DisposalMethod);
printf("User Input Flag: %d\n", $UserInputFlag);
printf("Transparent Color Flag: %d\n", $TransparentColorFlag[$Gif]);
printf("Delay Time: %d\n", $DelayTime);
printf("Transparent Color Index: %d\n", $TransparentColorIndex[$Gif]);
printf("Block Terminator: 0x00\n");
}
}
;# =====================================
view release on metacpan or search on metacpan
lib/AWS/XRay.pm view on Meta::CPAN
my $sampled = $SAMPLED;
if (defined $ENABLED) {
$enabled = $ENABLED ? 1 : 0; # fix true or false (not undef)
}
elsif ($TRACE_ID) {
$enabled = 0; # called from parent capture
}
else {
# root capture try sampling
$sampled = $SAMPLER->() ? 1 : 0;
$enabled = $sampled ? 1 : 0;
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $cwd = Cwd::getcwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::getcwd();
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.
view release on metacpan or search on metacpan
lib/Abilities/Features.pm view on Meta::CPAN
Customers are organizations, companies or individuals that subscribe to
your web service. They can subscribe to any number of plans, and thus be
provided with the features of these plans. The users from the Abilities
module will now be children of the customers. They still go on being members
of roles and performing actions they are granted with, but now possibly
only within the scope of their parent customer, and to the limits defined
in the customer's plan. Plans can inherit features from other plans, allowing
for defining plans faster and easier.
Customer and plan objects are meant to consume the Abilities::Features
role. L<Entities> is a reference implementation of both the L<Abilities> and
view release on metacpan or search on metacpan
Ace/Graphics/Glyph/group.pm view on Meta::CPAN
my ($left,$top) = @_;
# bail out if this isn't the right kind of feature
my @parts = $self->members;
# three pixels of black, three pixels of transparent
my $black = 1;
my ($x1,$y1,$x2,$y2) = $parts[0]->calculate_boundaries($left,$top);
my $center1 = ($y2 + $y1)/2;
$gd->setStyle($black,$black,gdTransparent,gdTransparent,);
for (my $i=0;$i<@parts-1;$i++) {
my ($x1,$y1,$x2,$y2) = $parts[$i]->calculate_boundaries($left,$top);
my ($x3,$y3,$x4,$y4) = $parts[$i+1]->calculate_boundaries($left,$top);
next unless ($x3 - $x1) >= 3;
$gd->line($x2+1,($y1+$y2)/2,$x3-1,($y3+$y4)/2,gdStyled);
view release on metacpan or search on metacpan
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer does not get taken prisoner. He puts himself in a disadvantageous position so as to make his next several killings more dramatic.
%
Jack Bauer doesn't need to sleep. He punches people unconscious and they sleep for him.
%
The show 24 is always opened with.. "Due to graphic violence, parental discretion is advised", was recently changed to.. "Due to Jack Bauer."
%
If anyone haunts Satan's dreams, its Jack Bauer.
%
Jack Bauer has the schematics of heaven on his PDA.
%
fortune/jackbauer view on Meta::CPAN
%
CTU was blown up in the second season of "24", but luckily, Jack Bauer was there to fix it simply by applying a piece of gum that he'd been chewing on.
%
Jack Bauer carries a hospital around with him at all times, it is the size of a 9mm bullet.
%
Jack Bauer was once challenged to a fight by the flagpole when he was in elementary school. When the kid showed up, Jack Bauer was nowhere to be found. Instead he found a heap of burning bodies that were later identified to be the boy's parents.
%
When Jack Bauer is connected to a series of events that involves foreigners, they have to speak english even in their own homes. They have no choice, that is the way of things.
%
American Idol is only popular because it has a commercial for 24.
%
Jack Bauer found his parents having sex, and tortured his father to learn of his primary objective.
%
Jack Bauer eats Hotpockets as soon as they're done.
%
In America, Jack Bauer kills you.
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer didn't need to go back to the future to fix his mistakes. Jack Bauer doesn't make mistakes.
%
If Jack Bauer asks to have just 5 minutes with you, run.
%
Young Jack Bauer swore like a sailor. And then washed his parents' mouths out with soap.
%
The only reason why you can't see Jack Bauer on Mount Rushmore is because he doesn't want you to see him.
%
Jack Bauer moves at the speed of light. That's why 24 hours to him is actually 18 hours to the rest of us.
%
fortune/jackbauer view on Meta::CPAN
%
After the Fall, Jack Bauer quipped "Better to reign in CTU than serve in division." His wit appreciated, Bauer received the honor of murdering Chapelle as a reward.
%
Whenever Jack Bauer yells "we're running out of time", it really means you're running out of time and it's your ass.
%
Kim Bauer once brought her father to school for a parent/teacher conference.....and got expelled for bringing a weapon onto school grounds.
%
Jack Bauer can neutralize any hostile situation by getting captured.
%
The bumper sticker on Jesus's car reads, "WWJBD?"
%
fortune/jackbauer view on Meta::CPAN
%
Of course Jack Bauer knows kung-fu. Just don't expect him to use it.
%
Jack Bauer can fold a piece of paper more than eight times.
%
Jack Bauers parents taught him hide and seek at age 4, they are still trying to find him.
%
Jack Bauer never needs to wear a raincoat. Rain knows better than to fall on Jack Bauer.
%
The combination of Jack Bauer's yelling and David Palmer's soothing words can put any animal into heat.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer doesn't need music in his iPod commercials. Either you buy it, or else.
%
Jack Bauer brings a knife to a gun fight and always wins.
%
One time when Jack Bauer was a kid, he invoked Section 112 Protocol overwriting his parents’ authority. He made them go to their rooms for 2 hours. They stayed for 3.
%
24 was moved to Monday because Jack Bauer doesn't wait on anyone to start killing people.
%
Teri Bauer had her tubes tied years ago. That still didn't stop Jack.
%
fortune/jackbauer view on Meta::CPAN
%
There is a theory that says if a werewolf bites Jack Bauer, then every full moon it will turn into a "were-Bauer" and kill terrorists uncontrollably. This is only a theory of course, because no werewolf has succeeded in biting him. Neither have Vampi...
%
They say little girls want to marry men that remind them of their fathers... poor Kim. There will never be another Jack Bauer, not even close.
%
People think that every time a bell rings an angel gets its wings. That is only the nice story your parents told you. In truth, every time a bell rings another terrorist has just gone to hell.
%
Jack Bauer may have 9 lives but he is no pussy.
%
It takes you 24 weeks just to watch what Jack Bauer does in a single day.
%
fortune/jackbauer view on Meta::CPAN
%
We all want to be like Jack Bauer, except we are all too much of a coward.
%
Mandy is a lesbian because Jack Bauer rejected her.
%
My parents told my little brother and I that Jack Bauer was "just a television character". We are now orphans.
%
Jack Bauer doesn't get shot. He moves in front of bullets when he has an itch.
%
Jack Bauer does not part seas like Moses. He parts the ocean.
%
fortune/jackbauer view on Meta::CPAN
%
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.
%
In the last episode of fear factor, the final challenge involved a one on one stare down with Jack bauer.. Joe Rogan is still missing.
%
The alphabet originally had thirty letters - until Jack Bauer decided there was "no time" for more than twenty-six.
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer could get Edgar Stiles laid.
%
Jack Bauer can barbecue in airplane lavatories.
%
We need Jack Bauer because the U.S. Constitution only defines Executive, Legislative, and Judicial branches of government. Apparently the Framers of the Constitution forgot all about the Ass-Kicking branch.
%
Jack Bauer delivered himself by Cesarean section.
%
When Jack Bauer sneezes, Arabs offer their turbans as handkerchiefs.
%
fortune/jackbauer view on Meta::CPAN
%
Nerve gas doesn't harm Jack Bauer, it simply gets on his nerves.
%
If you click on "Who the hell is Jack Bauer" Jack Bauer will hunt you down and demonstrate what he can do.
%
As a boy for his birthday Jack Bauer's parents showed him how to play the game pin the bullet to the head. He hasn't stopped playing it since.
%
Jack Bauer causes tsunamis when he does a cannonball.
%
Jack Bauer is the only reason Santa Claus is able to deliver presents to millions of children in a 24-hour period.
%
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
File::Spec 0
List::AllUtils 0
List::Util 0
Params::Validate 0.72
constant 0
parent 0
strict 0
vars 0
warnings 0
Dist-CheckConflicts-0.11
pathname: D/DO/DOY/Dist-CheckConflicts-0.11.tar.gz
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $cwd = Cwd::cwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::cwd();
if ( my $code = $sym->{$pwd} ) {
# delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
$$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
unshift @_, ( $self, $1 );
goto &{$self->can('call')} unless uc($1) eq $1;
view release on metacpan or search on metacpan
lib/Acme/Addslashes.pm view on Meta::CPAN
use v5.12;
use strict; # lolwut? strict??
use Encode qw(encode);
use feature qw(unicode_strings);
use parent "Exporter";
our @EXPORT_OK = qw(addslashes);
our $VERSION = '0.1.3';
view release on metacpan or search on metacpan
# https://www.eharmony.com/dating-advice/first-dates/15-great-first-date-questions/
my $questions = [
{ i => 1,
q => 'Who are the most important people in your life?',
a => ['parents', 'kids', 'friends'] },
{ i => 2,
q => 'What makes you laugh?',
a => ['jokes', 'comedies', 'pranks', 'accidents'] },
{ i => 3,
q => 'Where is "home"?',
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $cwd = Cwd::cwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::cwd();
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.
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $cwd = Cwd::cwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::cwd();
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
$$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
my $method = $1;
if ( uc($method) eq $method ) {
view release on metacpan or search on metacpan
Acme-AlgebraicToRPN
Converts an algebraic equation to RPN (reverse polish notation). Virtually
infinite nesting of parenthesis. Allows functions, provided the function
is called like this:
foo(...)
INSTALLATION
view release on metacpan or search on metacpan
maint/release view on Meta::CPAN
print "does that look right? ";
my $input = <STDIN>;
die 'not right apparently' unless $input =~ /^y/i;
sub run
{
print "+@_\n";
system @_;
view release on metacpan or search on metacpan
maint/release view on Meta::CPAN
print "does that look right? ";
my $input = <STDIN>;
die 'not right apparently' unless $input =~ /^y/i;
sub run
{
print "+@_\n";
system @_;
view release on metacpan or search on metacpan
lib/Acme/Alien/__cpu_model.pm view on Meta::CPAN
package Acme::Alien::__cpu_model;
# ABSTRACT: Provides the __cpu_mode symbol
our $VERSION = '0.001'; # VERSION
use parent 'Alien::Base';
=pod
=encoding utf8
view release on metacpan or search on metacpan
lib/Acme/Array/MaxSize.pm view on Meta::CPAN
use 5.006;
use strict;
use warnings;
use parent 'Tie::Array';
use Carp;
my %max_size;
my $last_index = sub { $max_size{+shift} - 1 };
view release on metacpan or search on metacpan
lib/Acme/AsciiArtinator.pm view on Meta::CPAN
In general, we can replace C<$name> with C<${name}> and the code
will run the same.
=back
There are several other interesting ways to pad code (putting parentheses
around expressions, adding and or-ing zeros to expressions, using quoted
strings in a void context) that may be put to use in future versions
of this module.
When all tokens from the code are successfully aligned with the
view release on metacpan or search on metacpan
lib/Acme/AtIncPolice.pm view on Meta::CPAN
}
my $location = @line == 1 ? " at $filename[0] line $line[0]." :
join "\n", map " at $filename[$_] line $line[$_].", (0 .. $#filename);
my($_p, $p) = ($self, $self->parent);
while($p){
my $s_type = ref $p->{storage};
my $s = $p->{storage};
if($s_type eq 'HASH'){
push @msg, "{$_p->{__key}}";
}elsif($s_type eq 'ARRAY'){
push @msg, "[$_p->{__point}]";
}
$_p = $p;
last if ! ref $p or ! ($p = $p->parent);
}
$msg = @msg > 0 ? ' => ' . join "", reverse @msg : "";
$value = '' unless defined $value;
view release on metacpan or search on metacpan
t/04-podcoverage.t view on Meta::CPAN
plan tests => $tests;
# General modules
foreach my $module (@testmodules) {
my $trustparents = { coverage_class => 'Pod::Coverage::CountParents' };
pod_coverage_ok( $module, $trustparents );
}
done_testing();
view release on metacpan or search on metacpan
t/10_live.t view on Meta::CPAN
# We know this module isn't actually installed, so it's a good test to try to load:
use Cwd::Guard qw/cwd_guard/;
ok($INC{'Cwd/Guard.pm'}, "Loaded: $INC{'Cwd/Guard.pm'}");
ok($INC{'parent.pm'}, 'nested module');
ok(UNIVERSAL::can('Cwd::Guard', 'cwd_guard'), 'require');
ok(defined \&cwd_guard, 'import');
{
my $scope = cwd_guard "..";
ok($scope, "prototype first pass");
}
unlink("lib/parent.pm"); # Does not come standard with perl 5.8.8
ok(unlink("lib/Cwd/Guard.pm"), 'unlink');
ok(rmdir("lib/Cwd"), 'rmdir');
view release on metacpan or search on metacpan
lib/Acme/Beamerang/Logger.pm view on Meta::CPAN
package Acme::Beamerang::Logger;
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
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $cwd = Cwd::cwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::cwd();
if ( my $code = $sym->{$pwd} ) {
# delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
$$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
unless ( uc($1) eq $1 ) {
unshift @_, ( $self, $1 );
view release on metacpan or search on metacpan
debian/changelog view on Meta::CPAN
libacme-brainfck-perl (1.1.1) unstable; urgency=low
* New upstream version.
* Apparently I need a build dependency on libmodule-build-perl.
* Really uploaded to Debian this time. (Closes: #160014)
* Note to ftpmaster: the package name and provides: implements the
denaughtification scheme proposed when I first tried to upload this.
-- Jaldhar H. Vyas <jaldhar@debian.org> Tue, 6 Apr 2004 11:56:29 -0400
view release on metacpan or search on metacpan
lib/Acme/CPANAuthors/Acme/CPANAuthors/Authors.pm view on Meta::CPAN
This class provides a hash of Pause IDs/names of Acme::CPANAuthors::*
authorin' CPAN authors.
I started this module because
L<Acme::CPANAuthors::UnitedStates|Acme::CPANAuthors::UnitedStates> doesn't
exist and apparently I'm not listed in
L<Acme::CPANAuthors::Japanese|Acme::CPANAuthors::Japanese>. ((sigh)) I just
want to be a part of something... great... greater... than-- um, sorry, lost
my train of thought.
Anyway, I decided both L<Acme::CPANAuthors::Earth|Acme::CPANAuthors::Earth>
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $cwd = Cwd::cwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::cwd();
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.
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $cwd = Cwd::getcwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::getcwd();
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.
view release on metacpan or search on metacpan
lib/Acme/CPANAuthors/Utils.pm view on Meta::CPAN
if ($ENV{ACME_CPANAUTHORS_HOME}) {
$file = _catfile($ENV{ACME_CPANAUTHORS_HOME}, $dir, $basename);
return $file if $file && -r $file;
}
require File::Path;
for my $parent (File::Spec->tmpdir, '.') {
my $tmpdir = File::Spec->catdir($parent, '.acmecpanauthors', $dir);
eval { File::Path::mkpath($tmpdir) };
next unless -d $tmpdir && -r _;
$file = _catfile($tmpdir, $basename);
my $how_old = -M $file;
if (!-r $file or !$how_old or $how_old > 1) {