Result:
found more than 674 distributions - search limited to the first 2001 files matching your query
( run in 3.146 )
ASP4x-Linker
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
my $name = shift;
my $features = ( $self->{values}{features} ||= [] );
my $mods;
if ( @_ == 1 and ref( $_[0] ) ) {
# The user used ->feature like ->features by passing in the second
# argument as a reference. Accomodate for that.
$mods = $_[0];
} else {
$mods = \@_;
}
ASP4x-Router
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
my $name = shift;
my $features = ( $self->{values}{features} ||= [] );
my $mods;
if ( @_ == 1 and ref( $_[0] ) ) {
# The user used ->feature like ->features by passing in the second
# argument as a reference. Accomodate for that.
$mods = $_[0];
} else {
$mods = \@_;
}
AUBBC
view release on metacpan or search on metacpan
highlight_class6 => '',
highlight_class7 => '',
highlight_class8 => '',
highlight_class9 => '',
);
my @security_levels = ('Guest', 'User', 'Moderator','Administrator');
my ($user_level, $high_level, $user_key) = ('Guest', 3, 0);
my %Tag_SecLVL = (
code => { level => 0, text => $BAD_MESSAGE, },
img => { level => 0, text => $BAD_MESSAGE, },
url => { level => 0, text => $BAD_MESSAGE, },
);
sub security_levels {
my ($self,@s_levels) = @_;
$do_f[10] = 0;
@s_levels
? @security_levels = @s_levels
: return @security_levels;
}
sub user_level {
my ($self,$u_level) = @_;
$do_f[10] = 0;
defined $u_level
? $user_level = $u_level
: return $user_level;
}
sub tag_security {
my ($self,%s_tags) = @_;
%s_tags
? %Tag_SecLVL = %s_tags
: return %Tag_SecLVL;
}
sub check_access {
my $tag = shift;
unless ($do_f[10]) {
$do_f[10] = 1;
($high_level, $user_key) = (scalar(@security_levels), 0);
for(my $i = 0; $i < $high_level;) {
if ($security_levels[$i] eq $user_level) {
$user_key = $i;
last;
}
$i++;
}
3) Full XSS Security for supported tags.
4) High Speed Parser
5) Assign security levels for links, images, build and code tags.
6) Protection for emails to hide them from harvesters.
7) Code download for code tags
8) Perl code highlighter in the code tags
9) Fully customizable settings.
The advantage of using this BBcode is to have the piece of mind of using a secure program,
to restrict the usage of HTML/XHTML elements and to make formatting of posts easy to people that have no HTML/XHTML skill.
Most sites that use these tags show a list of them and/or easy way to insert the tags to the form field by the user.
The [c] or code tags can highlight Perl code, highlighting the Perl code with CSS in HTML/XHTML,
and in the examples folder the tag_list.cgi file has a CSS code you could work from and now a setting to change to a costume highlighter function.
This module addresses many security issues the BBcode tags may have mainly cross site script also known as XSS.
Each message is escaped before it gets returned if script_escape is Enabled and checked for many types of security problems before that tag converts to HTML/XHTML.
The script_escape setting and method also converts the ' sign so the text can be stored in a SQL back-end.
Most of the free web portals use the | sign as the delimiter for the flat file database, the script_escape setting and method also converts that sign so the structure of the database is retained.
Allows easy conversion to HTML and XHTML, existing tags will convert to the HTML type set.
AVLTree
view release on metacpan or search on metacpan
scripts/benchmarks.pl view on Meta::CPAN
# print "[Tree::AVL]\t\t";
# my $treeavl = Tree::AVL->new();
# map { $treeavl->insert($_) } @items;
# my $end = new Benchmark;
# my $diff = timediff($end, $start);
# printf "time taken was %s seconds\n", timestr($diff, 'all');
my $start = new Benchmark;
print "[AVLTree]\t\t";
my $avltree = AVLTree->new(\&cmp_f);
map { $avltree->insert($_) } @items;
my $end = new Benchmark;
my $diff = timediff($end, $start);
printf "time taken was %s seconds\n\n\n", timestr($diff, 'all');
print '-' x 23, "\n 10K random deletions\n", '-' x 23, "\n\n";
@items = shuffle 1 .. 10000;
# $start = new Benchmark;
# print "[Tree::AVL]\t\t";
# map { $treeavl->remove($_) } @items;
# $end = new Benchmark;
# $diff = timediff($end, $start);
# printf "time taken was %s seconds\n", timestr($diff, 'all');
$start = new Benchmark;
print "[AVLTree]\t\t";
map { $avltree->remove($_) } @items;
$end = new Benchmark;
$diff = timediff($end, $start);
printf "time taken was %s seconds\n", timestr($diff, 'all');
sub cmp_f {
my ($i1, $i2) = @_;
return $i1<$i2?-1:($i1>$i2)?1:0;
AWS-CLI-Config
view release on metacpan or search on metacpan
lib/AWS/CLI/Config.pm view on Meta::CPAN
my %attributes = (
access_key_id => {
env => 'AWS_ACCESS_KEY_ID',
key => 'aws_access_key_id'
},
secret_access_key => {
env => 'AWS_SECRET_ACCESS_KEY',
key => 'aws_secret_access_key',
},
session_token => {
env => 'AWS_SESSION_TOKEN',
key => 'aws_session_token',
},
lib/AWS/CLI/Config.pm view on Meta::CPAN
=head1 SYNOPSIS
use AWS::CLI::Config;
my $aws_access_key_id = AWS::CLI::Config::access_key_id;
my $aws_secret_access_key = AWS::CLI::Config::secret_access_key($profile);
my $aws_session_token = AWS::CLI::Config::session_token($profile);
my $region = AWS::CLI::Config::region($profile);
=head1 DESCRIPTION
lib/AWS/CLI/Config.pm view on Meta::CPAN
Fetches $ENV{AWS_ACCESS_KEY_ID} or I<aws_access_key_id> defined in the
credential or config file. You can optionally specify the profile as the
first argument.
=head2 secret_access_key (Str)
Fetches $ENV{AWS_SECRET_ACCESS_KEY} or I<aws_secret_access_key> defined in
the credential or config file. You can optionally specify the profile as
the first argument.
=head2 session_token (Str)
AWS-CLIWrapper
view release on metacpan or search on metacpan
lib/AWS/CLIWrapper.pm view on Meta::CPAN
return $ret unless $Error->{Code};
if ($retries-- > 0 and $Error->{Message} =~ $error_re) {
my $delay = $self->catch_error_delay;
warn "Caught error matching $error_re, sleeping $delay seconds before retrying\n"
if $ENV{AWSCLI_DEBUG};
sleep $delay;
redo RETRY;
lib/AWS/CLIWrapper.pm view on Meta::CPAN
sub codeartifact { shift->_execute('codeartifact', @_) }
sub codebuild { shift->_execute('codebuild', @_) }
sub codecatalyst { shift->_execute('codecatalyst', @_) }
sub codecommit { shift->_execute('codecommit', @_) }
sub codeguru_reviewer { shift->_execute('codeguru-reviewer', @_) }
sub codeguru_security { shift->_execute('codeguru-security', @_) }
sub codeguruprofiler { shift->_execute('codeguruprofiler', @_) }
sub codepipeline { shift->_execute('codepipeline', @_) }
sub codestar { shift->_execute('codestar', @_) }
sub codestar_connections { shift->_execute('codestar-connections', @_) }
sub codestar_notifications { shift->_execute('codestar-notifications', @_) }
lib/AWS/CLIWrapper.pm view on Meta::CPAN
sub iotdeviceadvisor { shift->_execute('iotdeviceadvisor', @_) }
sub iotevents { shift->_execute('iotevents', @_) }
sub iotevents_data { shift->_execute('iotevents-data', @_) }
sub iotfleethub { shift->_execute('iotfleethub', @_) }
sub iotfleetwise { shift->_execute('iotfleetwise', @_) }
sub iotsecuretunneling { shift->_execute('iotsecuretunneling', @_) }
sub iotsitewise { shift->_execute('iotsitewise', @_) }
sub iotthingsgraph { shift->_execute('iotthingsgraph', @_) }
sub iottwinmaker { shift->_execute('iottwinmaker', @_) }
sub iotwireless { shift->_execute('iotwireless', @_) }
sub ivs { shift->_execute('ivs', @_) }
lib/AWS/CLIWrapper.pm view on Meta::CPAN
sub sagemaker_runtime { shift->_execute('sagemaker-runtime', @_) }
sub savingsplans { shift->_execute('savingsplans', @_) }
sub scheduler { shift->_execute('scheduler', @_) }
sub schemas { shift->_execute('schemas', @_) }
sub sdb { shift->_execute('sdb', @_) }
sub secretsmanager { shift->_execute('secretsmanager', @_) }
sub securityhub { shift->_execute('securityhub', @_) }
sub securitylake { shift->_execute('securitylake', @_) }
sub serverlessrepo { shift->_execute('serverlessrepo', @_) }
sub service_quotas { shift->_execute('service-quotas', @_) }
sub servicecatalog { shift->_execute('servicecatalog', @_) }
sub servicecatalog_appregistry { shift->_execute('servicecatalog-appregistry', @_) }
sub servicediscovery { shift->_execute('servicediscovery', @_) }
lib/AWS/CLIWrapper.pm view on Meta::CPAN
my $res = $aws->ec2(
'describe-instances' => {
instance_ids => ['i-XXXXX', 'i-YYYYY'],
},
timeout => 18, # optional. default is 30 seconds
);
if ($res) {
for my $rs ( @{ $res->{Reservations} }) {
for my $is (@{ $rs->{Instances} }) {
lib/AWS/CLIWrapper.pm view on Meta::CPAN
=item B<codecommit>($operation:Str, $param:HashRef, %opt:Hash)
=item B<codeguru_reviewer>($operation:Str, $param:HashRef, %opt:Hash)
=item B<codeguru_security>($operation:Str, $param:HashRef, %opt:Hash)
=item B<codeguruprofiler>($operation:Str, $param:HashRef, %opt:Hash)
=item B<codepipeline>($operation:Str, $param:HashRef, %opt:Hash)
lib/AWS/CLIWrapper.pm view on Meta::CPAN
=item B<iotfleethub>($operation:Str, $param:HashRef, %opt:Hash)
=item B<iotfleetwise>($operation:Str, $param:HashRef, %opt:Hash)
=item B<iotsecuretunneling>($operation:Str, $param:HashRef, %opt:Hash)
=item B<iotsitewise>($operation:Str, $param:HashRef, %opt:Hash)
=item B<iotthingsgraph>($operation:Str, $param:HashRef, %opt:Hash)
lib/AWS/CLIWrapper.pm view on Meta::CPAN
=item B<schemas>($operation:Str, $param:HashRef, %opt:Hash)
=item B<sdb>($operation:Str, $param:HashRef, %opt:Hash)
=item B<secretsmanager>($operation:Str, $param:HashRef, %opt:Hash)
=item B<securityhub>($operation:Str, $param:HashRef, %opt:Hash)
=item B<securitylake>($operation:Str, $param:HashRef, %opt:Hash)
=item B<serverlessrepo>($operation:Str, $param:HashRef, %opt:Hash)
=item B<service_quotas>($operation:Str, $param:HashRef, %opt:Hash)
lib/AWS/CLIWrapper.pm view on Meta::CPAN
Third arg "opt" is optional. Available key/values are below:
timeout => Int
Maximum time the "aws" command is allowed to run before aborting.
default is 30 seconds, unless overridden with AWS_CLIWRAPPER_TIMEOUT environment variable.
nofork => Int (>0)
Call IPC::Cmd::run vs. IPC::Cmd::run_forked (mostly useful if/when in perl debugger). Note: 'timeout', if used with 'nofork', will merely cause an alarm and return. ie. 'run' will NOT kill the awscli command like 'run_forked' will.
croak_on_error => Int (>0)
lib/AWS/CLIWrapper.pm view on Meta::CPAN
in certain scenarios. Negative values are invalid and will be reset to default.
Default is 3.
catch_error_min_delay => Int (>= 0)
When defined, this option will set the minimum delay in seconds before attempting
a retry of failed `aws-cli` execution when the error was caught. Environment variable
AWS_CLIWRAPPER_CATCH_ERROR_MIN_DELAY takes precedence over this option, if both
are defined.
0 (zero) is a valid value. Negative values are invalid and will be reset to default.
Default is 3.
catch_error_max_delay => Int (>= 0)
When defined, this option will set the maximum delay in seconds before attempting
a retry of failed `aws-cli` execution. Environment variable AWS_CLIWRAPPER_CATCH_ERROR_MAX_DELAY
takes precedence over this option, if both are defined.
0 (zero) is a valid value. Negative values are invalid and will be reset to default.
If catch_error_min_delay is greater than catch_error_max_delay, both are set
lib/AWS/CLIWrapper.pm view on Meta::CPAN
Special note: cron on Linux will often have a different HOME "/" instead of "/root" - set $ENV{'HOME'}
to use the default credentials or specify $ENV{'AWS_CONFIG_FILE'} directly.
=item AWS_CLIWRAPPER_TIMEOUT
If this variable is set, this value will be used instead of default timeout (30 seconds) for every
invocation of `aws-cli` that does not have a timeout value provided in the options argument of the
called function.
=item AWS_CLIWRAPPER_CATCH_ERROR_PATTERN
lib/AWS/CLIWrapper.pm view on Meta::CPAN
How many times to retry command execution if an error was caught. Default is 3.
=item AWS_CLIWRAPPER_CATCH_ERROR_MIN_DELAY
Minimal delay before retrying command execution if an error was caught, in seconds.
Default is 3.
=item AWS_CLIWRAPPER_CATCH_ERROR_MAX_DELAY
Maximal delay before retrying command execution, in seconds. Default is 10.
=item AWS_CONFIG_FILE
=item AWS_ACCESS_KEY_ID
lib/AWS/CLIWrapper.pm view on Meta::CPAN
The error catching pattern, as well as other configuration, can be defined either
as AWS::CLIWrapper options in the code, or as respective environment variables
(see L<ENVIRONMENT>).
The actual delay before retrying a failed `aws-cli` execution is computed as a
random value of seconds between catch_error_min_delay (default 3) and catch_error_max_delay
(default 10). Backoff is not supported at this moment.
=back
=head1 AUTHOR
AWS-CloudFront
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
my $name = shift;
my $features = ( $self->{values}{features} ||= [] );
my $mods;
if ( @_ == 1 and ref( $_[0] ) ) {
# The user used ->feature like ->features by passing in the second
# argument as a reference. Accomodate for that.
$mods = $_[0];
} else {
$mods = \@_;
}
AWS-IP
view release on metacpan or search on metacpan
lib/AWS/IP.pm view on Meta::CPAN
=head2 DESCRIPTION
AWS L<publish|https://ip-ranges.amazonaws.com/ip-ranges.json> their IP ranges, which periodically change. This module downloads and serializes the IP ranges into a Perl data hash reference. It caches the data, and if the cache expires, re-downloads a...
=head2 new ($cache_timeout_secs, [$cache_path])
Creates a new AWS::IP object and sets up the cache. Requires an number for the cache timeout seconds. Optionally takes a cache path argument. If no cache path is supplied, AWS::IP will use a random temp directory. If you want to reuse the cache over ...
=cut
sub new
{
croak 'Incorrect number of args passed to AWS::IP->new()' unless @_ >= 2 && @_ <= 3;
my ($class, $cache_timeout_secs, $cache_path) = @_;
# validate args
unless ($cache_timeout_secs
&& $cache_timeout_secs =~ /^[0-9]+$/)
{
croak 'Error argument cache_timeout_secs must be a positive integer';
}
bless {
cache => Cache::File->new( cache_root => ($cache_path || tempdir()),
lock_level => Cache::File::LOCK_LOCAL(),
default_expires => "$cache_timeout_secs sec"),
}, $class;
}
=head2 ip_is_aws ($ip, [$service])
AWS-Lambda-Quick
view release on metacpan or search on metacpan
lib/AWS/Lambda/Quick.pm view on Meta::CPAN
value is 128 MB. The value must be a multiple of 64 MB.
=item timeout
The amount of time that Lambda allows a function to run before stopping
it. The default is 3 seconds. The maximum allowed value is 900 seconds.
=item role
The AWS role you want to run the Lambda function as. This can
either be a full arn, or the name of the role to use (which will
lib/AWS/Lambda/Quick.pm view on Meta::CPAN
shell$ sudo ./awscli-bundle/install -i /usr/local/aws -b /usr/local/bin/aws
You'll need to configure awscli with your own personal AWS Access
Key ID and AWS Secret Access Key. You can create these from the AWS
Management console by following the guide on
L<How to quickly find and update your access keys, password, and MFA setting using the AWS Management Console|https://aws.amazon.com/blogs/security/how-to-find-update-access-keys-password-mfa-aws-management-console/>
Once you have your keys you can then use the C<configure> command
to update the aws command line utility.
shell$ aws configure
AWS-Lambda
view release on metacpan or search on metacpan
author/update-aws-lambda-al2.pl view on Meta::CPAN
=item L<Mozilla::CA>
=back
L<Paws> is optional. See the "Paws SUPPORT" section.
=head1 LEGACY CUSTOM RUNTIME ON AMAZON LINUX 2
Previously, we provided the layers that named without CPU architectures.
These layers are compatible with x86_64 and only for backward compatibility.
AWS-S3
view release on metacpan or search on metacpan
lib/AWS/S3.pm view on Meta::CPAN
use AWS::S3::Owner;
use AWS::S3::Bucket;
our $VERSION = '2.00';
has [qw/access_key_id secret_access_key/] => ( is => 'ro', isa => 'Str' );
has 'session_token' => (
is => 'ro',
isa => 'Maybe[Str]',
lazy => 1,
lib/AWS/S3.pm view on Meta::CPAN
isa => 'Maybe[Str]',
lazy => 1,
default => sub { $ENV{AWS_REGION} },
);
has 'secure' => (
is => 'ro',
isa => 'Bool',
lazy => 1,
default => 0
);
lib/AWS/S3.pm view on Meta::CPAN
use AWS::S3;
my $s3 = AWS::S3->new(
access_key_id => 'E654SAKIASDD64ERAF0O',
secret_access_key => 'LgTZ25nCD+9LiCV6ujofudY1D6e2vfK0R4GLsI4H',
session_token => 'IQob3JpJZ2luXJ2VjJEL7//////////wE...',
region => 'eu-west-1', # set to relevant AWS region
honor_leading_slashes => 0, # set to allow leading slashes in bucket names, defaults to 0
);
lib/AWS/S3.pm view on Meta::CPAN
Required. String.
Provided by Amazon, this is your access key id.
=head2 secret_access_key
Required. String.
Provided by Amazon, this is your secret access key.
=head2 secure
Optional. Boolean.
Default is C<0>
lib/AWS/S3.pm view on Meta::CPAN
=head2 access_key_id
String. Read-only
=head2 secret_access_key
String. Read-only.
=head2 secure
Boolean. Read-only.
=head2 endpoint
AWS-SNS-Confess
view release on metacpan or search on metacpan
lib/AWS/SNS/Confess.pm view on Meta::CPAN
use strict;
use warnings 'all';
our @EXPORT_OK = qw/confess/;
our ($access_key_id, $secret_access_key, $topic, $sns, $sns_topic);
sub setup
{
my (%args) = @_;
$access_key_id = $args{access_key_id};
$secret_access_key = $args{secret_access_key};
$topic = $args{topic};
$sns = $args{sns} || Amazon::SNS->new({
key => $access_key_id,
secret => $secret_access_key,
});
$sns->service(_service_url());
$sns_topic = $sns->GetTopic($topic);
}
lib/AWS/SNS/Confess.pm view on Meta::CPAN
=head1 SYNOPSIS
use AWS::SNS::Confess 'confess';
AWS::SNS::Confess::setup(
access_key_id => 'E654SAKIASDD64ERAF0O',
secret_access_key => 'LgTZ25nCD+9LiCV6ujofudY1D6e2vfK0R4GLsI4H'
topic => 'arn:aws:sns:us-east-1:738734873:YourTopic',
);
confess "Something went wrong";
=head1 DESCRIPTION
lib/AWS/SNS/Confess.pm view on Meta::CPAN
AWS::S3 - Publish Errors, with a full stack trace to an Amazon SNS
topic
=head1 PUBLIC METHODS
=head2 setup( access_key_id => $aws_access_key_id, secret_access_key => $aws_secret_access_key, topic => $aws_topic );
Sets up to send errors to the given AWS Account and Topic
=head2 confess( $msg );
AWS-SQS-Simple
view release on metacpan or search on metacpan
lib/AWS/SQS/Simple.pm view on Meta::CPAN
my %params_hash = (
QUEUE_NAME => QUEUE Name ,
'MessageBody' => Message to send ,
'DelaySeconds' => The number of seconds to delay a specific message , [ OPTIONAL ]
);
$ob->send_message( \%params_hash ) ;
lib/AWS/SQS/Simple.pm view on Meta::CPAN
QUEUE_NAME => QUEUE Name ,
'AttributeName.n' => The attribute you want to get. Valid values: All | SenderId | SentTimestamp | ApproximateReceiveCount | ApproximateFirstReceiveTimestamp , [ OPTIONAL ]
'MaxNumberOfMessages' => Maximum number of messages to return. Default - 1 , [ OPTIONAL ]
'VisibilityTimeout' => The duration in seconds that the received messages are hidden from subsequent retrieve requests after being retrieved by a ReceiveMessage request. Default - The visibility timeout for the queue , [ OPTIONAL ]
'WaitTimeSeconds' => Long poll support (integer from 1 to 20 , [ OPTIONAL ]
);
$ob->receive_message->( \%params_hash )
lib/AWS/SQS/Simple.pm view on Meta::CPAN
my %params_hash = (
QUEUE_NAME => QUEUE Name ,
'MessageBody' => Message to send ,
'DelaySeconds' => The number of seconds to delay a specific message , [ OPTIONAL ]
);
$ob->send_message->( \%params_hash )
lib/AWS/SQS/Simple.pm view on Meta::CPAN
QUEUE_NAME => QUEUE Name ,
'AttributeName.n' => The attribute you want to get. Valid values: All | SenderId | SentTimestamp | ApproximateReceiveCount | ApproximateFirstReceiveTimestamp , [ OPTIONAL ]
'MaxNumberOfMessages' => Maximum number of messages to return. Default - 1 , [ OPTIONAL ]
'VisibilityTimeout' => The duration in seconds that the received messages are hidden from subsequent retrieve requests after being retrieved by a ReceiveMessage request. Default - The visibility timeout for the queue , [ OPTIONAL ]
'WaitTimeSeconds' => Long poll support (integer from 1 to 20 , [ OPTIONAL ]
);
$ob->receive_message->( \%params_hash )
lib/AWS/SQS/Simple.pm view on Meta::CPAN
sub _generate_signatue {
my $self = shift ;
my $query = shift ;
my $secret_access_key = $self->{ SECRET_ACCESS_KEY } ;
my $digest = encode_base64( hmac_sha256($query, $secret_access_key ),'' ) ;
return $digest ;
}
=head2 _get_signed_query
AWS-Signature-V2
view release on metacpan or search on metacpan
lib/AWS/Signature/V2.pm view on Meta::CPAN
use Encode qw/decode_utf8/;
our $VERSION = "0.01";
has aws_access_key => (is => 'rw', required => 1, builder => 1);
has aws_secret_key => (is => 'rw', required => 1, builder => 1);
sub _build_aws_access_key { $ENV{AWS_ACCESS_KEY} }
sub _build_aws_secret_key { $ENV{AWS_SECRET_KEY} }
sub sign {
my ($self, $url) = @_;
my %eq = map { split /=/, $_ } split /&/, $url->query();
my %q = map { $_ => decode_utf8( uri_unescape( $eq{$_} ) ) } keys %eq;
lib/AWS/Signature/V2.pm view on Meta::CPAN
$q{Version} ||= '2010-09-01';
my $sq = join '&',
map { $_ . '=' . uri_escape_utf8( $q{$_}, "^A-Za-z0-9\-_.~" ) }
sort keys %q;
my $tosign = join "\n", 'GET', $url->host, $url->path, $sq;
my $signature = hmac_sha256_base64( $tosign, $self->aws_secret_key );
$signature .= '=' while length($signature) % 4; # padding required
$q{Signature} = $signature;
$url->query_form( \%q );
$url;
}
lib/AWS/Signature/V2.pm view on Meta::CPAN
use AWS::Signature::V2;
use LWP::UserAgent->new;
my $signer = AWS::Signature::V2->new(
aws_access_key => ..., # defaults to $AWS_ACCESS_KEY
aws_secret_key => ..., # defaults to $AWS_SECRET_KEY
);
my $ua = LWP::UserAgent->new;
my $uri = URI->new('https://');
$uri->query_form(...);
AWS-Signature4
view release on metacpan or search on metacpan
lib/AWS/Signature4.pm view on Meta::CPAN
use AWS::Signature4;
use HTTP::Request::Common;
use LWP;
my $signer = AWS::Signature4->new(-access_key => 'AKIDEXAMPLE',
-secret_key => 'wJalrXUtnFEMI/K7MDENG+bPxRfiCYEXAMPLEKEY');
my $ua = LWP::UserAgent->new();
# Example POST request
my $request = POST('https://iam.amazonaws.com',
[Action=>'ListUsers',
lib/AWS/Signature4.pm view on Meta::CPAN
=head1 METHODS
=over 4
=item $signer = AWS::Signature4->new(-access_key => $account_id,-secret_key => $private_key);
Create a signing object using your AWS account ID and secret key. You
may also use the temporary security tokens received from Amazon's STS
service, either by passing the access and secret keys derived from the
token, or by passing a VM::EC2::Security::Token produced by the
VM::EC2 module.
Arguments:
Argument name Argument Value
------------- --------------
-access_key An AWS acccess key (account ID)
-secret_key An AWS secret key
-security_token A VM::EC2::Security::Token object
If a security token is provided, it overrides any values given for
-access_key or -secret_key.
If the environment variables EC2_ACCESS_KEY and/or EC2_SECRET_KEY are
set, their contents are used as defaults for -acccess_key and
-secret_key.
=cut
sub new {
my $self = shift;
my %args = @_;
my ($id,$secret,$token);
if (ref $args{-security_token} && $args{-security_token}->can('access_key_id')) {
$id = $args{-security_token}->accessKeyId;
$secret = $args{-security_token}->secretAccessKey;
}
$id ||= $args{-access_key} || $ENV{EC2_ACCESS_KEY}
or croak "Please provide -access_key parameter or define environment variable EC2_ACCESS_KEY";
$secret ||= $args{-secret_key} || $ENV{EC2_SECRET_KEY}
or croak "Please provide -secret_key or define environment variable EC2_SECRET_KEY";
return bless {
access_key => $id,
secret_key => $secret,
(defined($args{-security_token}) ? (security_token => $args{-security_token}) : ()),
},ref $self || $self;
}
sub access_key { shift->{access_key } }
sub secret_key { shift->{secret_key } }
=item $signer->sign($request [,$region] [,$payload_sha256_hex])
Given an HTTP::Request object, add the headers required by AWS and
then sign it with a version 4 signature by adding an "Authorization"
lib/AWS/Signature4.pm view on Meta::CPAN
The request content, or "payload" is retrieved from the HTTP::Request
object by calling its content() method.. Under some circumstances the
payload is not included directly in the request, but is in an external
file that will be uploaded as the request is executed. In this case,
you must pass a second argument containing the results of running
sha256_hex() (from the Digest::SHA module) on the content.
The method returns a true value if successful. On errors, it will
throw an exception.
lib/AWS/Signature4.pm view on Meta::CPAN
URI object, which can be shared with non-AWS users for the purpose of,
e.g., accessing an object in a private S3 bucket.
Pass an optional $expires argument to indicate that the URL will only
be valid for a finite period of time. The value of the argument is in
seconds.
=cut
sub signed_url {
lib/AWS/Signature4.pm view on Meta::CPAN
$uri->query_param('X-Amz-Credential' => $self->access_key . '/' . $scope);
$uri->query_param('X-Amz-Date' => $self->_datetime($request));
$uri->query_param('X-Amz-Expires' => $expires) if $expires;
$uri->query_param('X-Amz-SignedHeaders' => 'host');
# If there was a security token passed, we need to supply it as part of the authorization
# because AWS requires it to validate IAM Role temporary credentials.
if (defined($self->{security_token})) {
$uri->query_param('X-Amz-Security-Token' => $self->{security_token});
}
# Since we're providing auth via query parameters, we need to include UNSIGNED-PAYLOAD
# http://docs.aws.amazon.com/AmazonS3/latest/API/sigv4-query-string-auth.html
# it seems to only be needed for S3.
lib/AWS/Signature4.pm view on Meta::CPAN
my $scope = $self->_scope($request,$region);
my ($date,$service);
($date,$region,$service) = $self->_parse_scope($scope);
my $secret_key = $self->secret_key;
my $access_key = $self->access_key;
my $algorithm = $self->_algorithm;
my ($hashed_request,$signed_headers) = $self->_hash_canonical_request($request,$payload_sha256_hex);
my $string_to_sign = $self->_string_to_sign($datetime,$scope,$hashed_request);
my $signature = $self->_calculate_signature($secret_key,$service,$region,$date,$string_to_sign);
$request->header(Authorization => "$algorithm Credential=$access_key/$scope, SignedHeaders=$signed_headers, Signature=$signature");
}
sub _zulu_time {
my $self = shift;
lib/AWS/Signature4.pm view on Meta::CPAN
my ($datetime,$credential_scope,$hashed_request) = @_;
return join("\n",'AWS4-HMAC-SHA256',$datetime,$credential_scope,$hashed_request);
}
=item $signing_key = AWS::Signature4->signing_key($secret_access_key,$service_name,$region,$date)
Return just the signing key in the event you wish to roll your own signature.
=cut
AWS-XRay
view release on metacpan or search on metacpan
lib/AWS/XRay/Plugin/EC2.pm view on Meta::CPAN
my $token = do {
my $res = $ua->request(
"PUT",
"$_base_url/api/token", {
headers => {
'X-aws-ec2-metadata-token-ttl-seconds' => '60',
},
}
);
$res->{success} ? $res->{content} : '';
};
AXL-Client-Simple
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
my $name = shift;
my $features = ( $self->{values}->{features} ||= [] );
my $mods;
if ( @_ == 1 and ref( $_[0] ) ) {
# The user used ->feature like ->features by passing in the second
# argument as a reference. Accomodate for that.
$mods = $_[0];
} else {
$mods = \@_;
}
Abilities
view release on metacpan or search on metacpan
lib/Abilities.pm view on Meta::CPAN
=head2 actions()
Returns a list of all action names that a user object has been explicitely granted,
or that a role object has been granted. If a certain action is constrained, then
it should be added to the list as an array reference with two items, the first being
the name of the action, the second being the name of the constraint.
Example return structure:
( 'create_posts', ['edit_posts', 'only_his'], 'comment_on_posts' )
Ac_me-Local
view release on metacpan or search on metacpan
lib/Ac_me/Local.pm view on Meta::CPAN
my $foo = Ac_me::Local->new();
...
=head1 EXPORT
A list of functions that can be exported. You can delete this section
if you don't export anything, such as for a purely object-oriented module.
=head1 SUBROUTINES/METHODS
=head2 function1
AcePerl
view release on metacpan or search on metacpan
handle. It should return a string indicating the perl class to
create.
=item B<-timeout>
If no response from the server is received within $timeout seconds,
the call will return an undefined value. Internally timeout sets an
alarm and temporarily intercepts the ALRM signal. You should be aware
of this if you use ALRM for your own purposes.
NOTE: this feature is temporarily disabled (as of version 1.40)
because it is generating unpredictable results when used with
Apache/mod_perl.
=item B<-query_timeout>
If any query takes longer than $query_timeout seconds, will return an
undefined value. This value can only be set at connect time, and cannot
be changed once set.
=back
pattern in a scalar context, fetch() returns the I<number> of objects
that match without actually retrieving them from the database. Thus,
it is similar to count().
In the examples below, the first line of code will fetch the Sequence
object whose database ID is I<D12345>. The second line will retrieve
all objects matching the pattern I<D1234*>. The third line will
return the count of objects that match the same pattern.
$object = $db->fetch(Sequence => 'D12345');
@objects = $db->fetch(Sequence => 'D1234*');
indicated .ace file, returning the list of objects successfully loaded
into the database.
By default, parsing will stop at the first object that causes a parse
error. If you wish to forge on after an error, pass a true value as
the second argument to this method.
Any parse error messages are accumulated in Ace->error().
=head2 new() method
$style = $db->date_style('ace');
$style = $db->date_style('java');
For historical reasons, AceDB can display dates using either of two
different formats. The first format, which I call "ace" style, puts
the year first, as in "1997-10-01". The second format, which I call
"java" style, puts the day first, as in "01 Oct 1997 00:00:00" (this
is also the style recommended for Internet dates). The default is to
use the latter notation.
B<date_style()> can be used to set or retrieve the current style.
$today = Ace->datetime();
$date = Ace->date($time);
$today = Ace->date([$time]);
These convenience functions convert the UNIX timestamp given by $time
(seconds since the epoch) into a datetime string in the format that
ACEDB requires. date() will truncate the time portion.
If not provided, $time defaults to localtime().
=head1 OTHER METHODS
=over 4
=item new($host,$port,$query_timeout)
Connect to the host $host at port $port. Queries will time out after
$query_timeout seconds. If timeout is not specified, it defaults to
120 (two minutes).
If successful, this call returns an Ace::AceDB connection object.
Otherwise, it returns undef. Example:
my $data = $self->raw_query('status');
study $data;
my %status;
# -Code section
my ($program) = $data=~/Program:\s+(.+)/m;
my ($aceversion) = $data=~/Version:\s+(.+)/m;
my ($build) = $data=~/Build:\s+(.+)/m;
$status{code} = { program=>$program,
version=>$aceversion,
build =>$build};
# -Database section
my ($title) = $data=~/Title:\s+(.+)/m;
my ($name) = $data=~/Name:\s+(.+)/m;
my ($release) = $data=~/Release:\s+(.+)/m;
my ($directory) = $data=~/Directory:\s+(.+)/m;
my ($session) = $data=~/Session:\s+(\d+)/m;
}
sub datetime {
my $self = shift;
my $time = shift || time;
my ($sec,$min,$hour,$day,$mon,$year) = localtime($time);
$year += 1900; # avoid Y3K bug
sprintf("%4d-%02d-%02d %02d:%02d:%02d",$year,$mon+1,$day,$hour,$min,$sec);
}
sub date {
my $self = shift;
my $time = shift || time;
my ($sec,$min,$hour,$day,$mon,$year) = localtime($time);
$year += 1900; # avoid Y3K bug
sprintf("%4d-%02d-%02d",$year,$mon+1,$day);
}
Acme-123
view release on metacpan or search on metacpan
and telling the user how to view a copy of this License. (Exception: if the
Program itself is interactive but does not normally print such an announcement,
your work based on the Program is not required to print an announcement.)
These requirements apply to the modified work as a whole. If identifiable
sections of that work are not derived from the Program, and can be reasonably
considered independent and separate works in themselves, then this License,
and its terms, do not apply to those sections when you distribute them as
separate works. But when you distribute the same sections as part of a whole
which is a work based on the Program, the distribution of the whole must be on
the terms of this License, whose permissions for other licensees extend to the
entire whole, and thus to each and every part regardless of who wrote it.
Thus, it is not the intent of this section to claim rights or contest your rights to
work written entirely by you; rather, the intent is to exercise the right to control
the distribution of derivative or collective works based on the Program.
In addition, mere aggregation of another work not based on the Program with the
Program (or with a work based on the Program) on a volume of a storage or
customarily used for software interchange; or,
c) Accompany it with the information you received as to the offer to distribute
corresponding source code. (This alternative is allowed only for noncommercial
distribution and only if you received the program in object code or executable
form with such an offer, in accord with Subsection b above.)
The source code for a work means the preferred form of the work for making
modifications to it. For an executable work, complete source code means all the
source code for all modules it contains, plus any associated interface definition
files, plus the scripts used to control compilation and installation of the
not permit royalty-free redistribution of the Program by all those who receive
copies directly or indirectly through you, then the only way you could satisfy
both it and this License would be to refrain entirely from distribution of the
Program.
If any portion of this section is held invalid or unenforceable under any particular
circumstance, the balance of the section is intended to apply and the section as
a whole is intended to apply in other circumstances.
It is not the purpose of this section to induce you to infringe any patents or other
property right claims or to contest validity of any such claims; this section has
the sole purpose of protecting the integrity of the free software distribution
system, which is implemented by public license practices. Many people have
made generous contributions to the wide range of software distributed through
that system in reliance on consistent application of that system; it is up to the
author/donor to decide if he or she is willing to distribute software through any
other system and a licensee cannot impose that choice.
This section is intended to make thoroughly clear what is believed to be a
consequence of the rest of this License.
8. If the distribution and/or use of the Program is restricted in certain countries
either by patents or by copyrighted interfaces, the original copyright holder who
places the Program under this License may add an explicit geographical
Acme-24
view release on metacpan or search on metacpan
fortune/jackbauer view on Meta::CPAN
When Jack Bauer found out that Chapelle was secretly watching CSI instead of 24, he shot him.
%
Sprint cellphone sales skyrocketed after Jack Bauer showed people how to use them to blow up terrorists.
%
Nobody says 'hit me' when Jack Bauer deals Blackjack.
%
In Season 2 when Jack is stripped down by the terrorists before torture, the camera caught a glimpse of his testicles. Unfortunately for viewers, scientists have yet to provide us with a storage medium of adequate capacity to archive Jack's immense b...
%
When interrogating a suspect, they say everyone has a breaking point, for most it takes hours, maybe days to crack someone. Give Jack Bauer one bullet and it'll take 2 seconds, gun and hacksaw optional.
%
Looks can only kill if Jack Bauer is looking at you.
%
Jack Bauer has been torturing mountain lions in the hope of getting information on the one that terrorized his daughter.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer can't go behind enemy lines. The enemies are behind Jack Bauer's line.
%
There is no such thing as Weapons of Mass Destruction. There is only Weapons of Jack Bauer.
%
If J.K. Rowling wrote Jack Bauer into the Harry Potter series, Voldemort would be obliterated in, like, five seconds.
%
David Spade always says 'yes' to Jack Bauer when he wants to redeem his credit card miles.
%
Jack doesn't believe in Murphy's Law, only Bauer's Law: "Whatever CAN go wrong, WILL be resolved in a period of 24 hours."
%
fortune/jackbauer view on Meta::CPAN
%
Most people start their day with a bowl of cereal. Jack Bauer starts his day with a 9mm and a double figure body count
%
Jack Bauer won the Daytona 500. On a skateboard.
%
Jack Bauer got an upgrade to first class even though the airplane did not have a first class section.
%
There's only one real reason why Jack Bauer is going after his family in Season 6: It is time to purify the bloodline.
%
If you can read this, thank a teacher. If it's in English, thank Jack Bauer... for not killing your teacher.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer thinks the word mercy just means "quick interrogation."
%
When Jack Bauer exercises, the machine gets a workout.
%
The opening scene of "Saving Private Ryan" is loosely based on games of dodgeball Jack Bauer played in second grade.
%
Jack Bauer thinks Martini's shaken not stirred are for pussies.
%
Children don't believe in Santa anymore because they know Jack Bauer killed him. The few people that believe in Santa know that Jack Bauer is torturing him.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer fucked more terrorists than a Palestinian hooker on a deadline.
%
Jack Bauer never gets sick because his immune system is almost as deadly as he is.
%
Jack Bauer was recently named "most likely cause of injury" among C.T.U. security guards.
%
If someone tells you that you "Don't Know Jack", you're better off believing them... because if you really did know Jack, he'd probably kill you.
%
Don't fall in love with Jack, you'll end up kidnapped or dead... eventually.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer hates jazz. The result?
Hurricane Katrina.
%
One of the best kept secrets of 24 is that every season of 24 happens on the summer solstice. That is why Jack always says, "Today is the longest day of my life."
%
Freddy Krueger can't sleep because he has nightmares about Jack Bauer.
%
Jack Bauer thinks his shit don't stink. He's right.
%
fortune/jackbauer view on Meta::CPAN
%
It would only take 1 bullet for Jack Bauer to kill 50 Cent.
%
Jack Bauer was nominated for an Emmy for playing Kiefer Sutherland.
%
Jack has never lost a staring match. If you attempt you enter a staring contest with Jack, its 99% likely you will be shot within 60 seconds.
%
When posed with the question, "To be, or not to be?" Jack Bauer killed Shakespeare.
%
Remember those times when there were two sets of footprints in the sand? That was when Jack Bauer didn't feel like carrying you.
%
fortune/jackbauer view on Meta::CPAN
%
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.
%
During the 18 months Jack Bauer was believed dead, CTU saved over $1 billion on ammunition.
%
Jack Bauer once killed a group of Samurai Warriors with only a ball point pen. This lead to the phrase "The pen is mightier than the sword."
%
fortune/jackbauer view on Meta::CPAN
%
Commissioner Gordon only rings the Batphone when he can't get an answer on the Bauerphone.
%
Jack Bauer has never pressed the Play button on his answering machine. Upon hearing beeps, he tortures the device until it gives up the messages.
%
If Jack Bauer was president, he would protect the secret service.
%
The answer to the question "what happens when a strong force hits an immoveable object" has never been answered because nothing that has crossed Jack Bauer's path has lived to tell about it.
%
Jack Bauer was traded for Behrooz and 99 1st round draft picks.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer doesn't need camouflage, his surroundings blend into him.
%
Jack Bauer went out to the desert, and was bitten by a rattlesnake. The snake died.
%
Jack Bauer went on "Who Wants to be a Millionare?" only so he could phone a friend and yell, "You're running out of time!" for 30 seconds.
%
As George Mason said, where ever Jack Bauer goes there is a body count.
%
Jack Bauer once held his breath for thirty-seven minutes underwater. He was fucking a mermaid.
%
fortune/jackbauer view on Meta::CPAN
%
What do you call Jack Bauer with no arms or legs in the middle of a lake? Extremely dangerous.
%
Jack Bauer is the American dream. That is to say when America sleeps it dreams of Jack Bauer.
%
Jack Bauer knows Victoria's secret.
%
There's a reason why getting your car stolen is referred to as being "Jacked."
%
Jack Bauer can actually listen to his girlfriend talk.
%
fortune/jackbauer view on Meta::CPAN
%
If anyone haunts Satan's dreams, its Jack Bauer.
%
Jack Bauer has the schematics of heaven on his PDA.
%
The only prerequisite to becoming a CTU security guard is being able to accept being rendered unconscious by Jack Bauer.
%
If Jack Bauer says 'This is not the right play', it's not the right play.
%
Jack Bauer was able to find me a XBOX 360.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer once went to a religious retreat in high school, where, by the end of the weekend, everyone was singing, "Jack Bauer in the highest."
%
Jack Bauer can do long division in his head.
%
When Jack Bauer goes on "It's A Small World After All" at Disney, he gets extremely angry during the Bosnian, Turk, Mexican, Russian, Chinese, French and Arab sections, but otherwise enjoys the ride.
%
When playing "Truth or Dare," Jack Bauer dares you not to tell him the truth.
%
Jack Bauer never wet his pants, he wet other kids pants to let them know when they were scared.
%
fortune/jackbauer view on Meta::CPAN
%
Every time the cops get an APB to arrest Jack Bauer, half the department mysteriously calls out sick. The fire department too, just in case.
%
Jack Bauer uses those he has killed as tax write offs.
%
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.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer doesn't ground Kim, he teaches her a lesson by allowing her to be kidnapped by terrorists.
%
I don't believe in God, but I'm afraid of him... Terrorists do believe in God, and the only thing that scares them is Jack Bauer.
%
We now understand how Desmond really got on the “LOST” island.. he was a former German secret agent who pissed off Jack Bauer again and had to hide somewhere.
%
When Kim Bauer got the part in "Girl Next Door" Jack Bauer proceeded to castrate every person on set just to make sure his genes weren't going to be combined with that of a humans.
%
If Jack Bauer had been attacked by a stingray like Steve Irwin he would have escaped, captued and tortured the stingray & found out who it was working for.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer got his ear pierced once not because he though it was cool, but because he decided it was cool.
%
Jack Bauer's buddylist contains the name and location of every known terrorist, but rather than getting online, he likes to figure it out on his own.
%
Paul Revere's message was actually a secret code for "Jack Bauer is coming! Jack Bauer is coming!"
%
Jack Bauer has Xenu locked in his trunk.
%
Jack Bauer never watched "A-Team" back in the 80's. He lost interest immediately because no one on that show ever died, and vowed that one day he would make a TV show that was the complete opposite.
%
fortune/jackbauer view on Meta::CPAN
%
When Jack Bauer masturbates, he doesn't say he's going to jerkoff, he say's "it's time to punish my genitals".
%
The ancient Chinese built the Great Wall of China not to repel the Mongols, but rather to repel Jack Bauer. It failed when he attacked over the Himalayas.
%
Jack Bauer filled up his GMail in 23 Hours and 59 secs.
%
Jack Bauer can make all sides of a Rubix Cube the same color.
%
Jack Bauer heard that people were submitting Chuck Norris quotes with his name. Since Jack ate Chuck for breakfast, and you are what you eat, they all apply.
%
fortune/jackbauer view on Meta::CPAN
%
Pledge allegiance, to Jack Bauer, of the Los Angeles Counter Terrorism Unit, and to the country for which he kills; one man, under none, invincible, with torture and pain for terrorists.
%
When ever your significant other uses the line "It's not you, its me"; it was really Jack Bauer.
%
On the first day, Jack Bauer saved his family. On the second day, Jack Bauer saved Los Angeles. On the third day, Jack Bauer saved United States. On the fourth day, Jack Bauer saved the world. You won't believe what Jack Bauer will save by the end of...
%
Sudoku puzzles solve themselves when they see Jack Bauer coming.
%
Jack Bauer has been to Mars. Thats why theres no life on Mars.
%
fortune/jackbauer view on Meta::CPAN
%
When Jack Bauer whispers something in Lil Jon's ear, he does not say "WHAT?!"
%
When Jack Bauer asks for your help, he's not asking.
%
Not only can Jack Bauer divide by 0, he knows the value of the square root of negative one, the last 4 digits of pi and the Colonel's secret blend of herbs and spices.
%
In the beginning, there was a being named MacBauer. He was too powerful for his own good, so he was forced to split in half. One half became MacGuyver and the other Jack Bauer. The forces expelled from the split, science refers to as "The Big Bang...
Should Jack Bauer and MacGuyver ever meet, their combined forces would recreate MacBauer and bring our world to a sudden, violent end.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer can't stick it to the man. He is the man
%
As a fetus, Jack Bauer went from conception to full term in only 24 hours, after which he shot his way out of the womb.
%
The only reason Jack Bauer gets captured by terrorists is to lure them into a false sense of security. Then, when they get cocky, he can take them out with the soundwaves from his gruff voice.
%
When Jack Bauer enters a restroom, the toilets urinate.
%
Jack Bauer once killed a room full of people because nobody blessed him when he sneezed.
%
fortune/jackbauer view on Meta::CPAN
%
When God said, "Let there be light," it was so Jack Bauer could see who he was going to shoot.
%
Guys take it as a compliment when they mistakenly get called "Jack Bauer" by their girlfriends during sex.
%
Jack Bauer goes from 0-to-kill in less than 3 seconds.
%
Every time a cell phone rings, Jack Bauer has just put a bullet in a terrorists head.
%
Get one thing straight, the only reason that container ship is still afloat is that Jack Bauer doesn't feel like swimming all the way to China.
%
Jack Bauer never retreats, he just attacks in the opposite direction.
%
It ain't over until the fat lady sings, and Jack Bauer is the fat lady.
%
Jack Bauer was born after he performed a Cesearean section on his own mother.
%
God didn't rest on the 7th day of Creation. He created Jack Bauer.
%
Jack Bauer can eat flour and shit cupcakes.
%
fortune/jackbauer view on Meta::CPAN
%
The Ice Age only occured because Jack Bauer was giving God the cold shoulder.
%
Jack Bauer is so badass, his gun reloads itself out of fear.
%
Jack Bauer was born at the age of 30. His mom did not require a C section, Jack Bauer simply shed her skin.
%
Wearing no shoes and no shirt, Jack Bauer receives service.
%
Don't ever ask Jack Bauer what is going on. He'll explain in the car.
%
fortune/jackbauer view on Meta::CPAN
%
Chase Edmunds, Curtis Manning, and Mike Doyle have all tried to become the next Jack Bauer. We all know what happened to them.
%
Hilter killed himself only after he learned that Jack Bauer was coming after him.
%
Deathly afraid of Jack Bauer, Minute Rice will fully cook itself in 15 seconds flat.
%
When Bush says that we will find weapons of mass destruction, you know he is lying. If Jack does not want to be found he wont be found.
%
The only reason David Palmer is dead was because when faced with a national threat, he called the First Lady instead of Jack Bauer. Idiot.
%
fortune/jackbauer view on Meta::CPAN
%
The only thing Jack Bauer has never caught is his breath.
%
Jack Bauer can score a three pointer from inside the key.
%
Former L.A. Lakers star, Wilt Chamberlain, claimed to have slept with 20,000 women. What he doesn't mention is the fact they were all Jack Bauer's sloppy seconds.
%
The only way to achieve immortallity is to get Jack Bauer to say to you, "I won't let anything happen to you".
%
Darth Vader wears a mask because Jack Bauer is looking for the face.
%
Jack Bauer once tortured and killed a man using only shadow puppets.
%
Jack Bauer pulled a man out of his car, and told him to "Don't get up!" from the sidewalk. That man still has not gotten up from the sidewalk.
%
Jack Bauer managed to get a second bag of peanuts from the flight attendant even though the airline does not serve peanuts.
%
When Jack Bauer cries in the end of the day, it's not because he breaks down, it's just because it's the end of the day.
%
Jack Bauer doesn't stop at stop signs.
%
fortune/jackbauer view on Meta::CPAN
%
Despite Jack Bauer's protests, CTU continues to use only one safeguard against infiltration:
A question on all job applications which reads: "Are you a mole?"
%
When Jack Bauer goes to the airport and the metal detector doesn't go off, security gives him a gun.
%
The American dream is Jack Bauer.
%
Jack Bauer is like Achilles without heels.
%
fortune/jackbauer view on Meta::CPAN
Jack Bauer doesn't punch you in the chest. He punches you in the fucking heart.
%
Black people are jealous of the size of Jack Bauer's penis.
%
Agent Pierce is 62% as tough as Jack Bauer, easily making Agent Pierce the second toughest man in the universe.
%
Jack Bauer prefers windows...doors are for women, children, and people he kicks through them.
%
Jack Bauer can swim 20 minutes after he eats.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer teaches a course at Harvard entitled: "Time Management: Making the Most Out Of Each Day."
%
Jack Bauer has Jesus-like healing powers. But when Jack brings someone back to life, he kills them again.
%
Jack Bauer has never taken a shit that has lasted more than 4 minutes and 37 seconds. Due to the graphic nature of these shits, however, they are taken during commercial breaks.
%
The answer is Jack Bauer, the question doesn't matter.
%
"Jack Bauer" is Arabic for "I'm fucked".
%
fortune/jackbauer view on Meta::CPAN
%
It's not considered nerve gas until it gets on the nerves of Jack Bauer.
%
When Jack Bauer sends in his taxes, he sends a blank form along with a picture of himself with a gun. Jack Bauer has not had to pay taxes ever.
%
Jack Bauer knows what is in secret sauce.
%
The real reason "24" wasn't cancelled in its first season is that Jack Bauer spoke to the Fox executives through the TV screen and threatened them with towels.
%
When Jack Bauer was a baby, he took candy from adults.
%
fortune/jackbauer view on Meta::CPAN
%
If Jack Bauer was in a room with Hitler, Stalin, and Nina Meyers, and he had a gun with 2 bullets, he'd shoot Stalin and Hitler so they wouldn't have to bear witness to what he'd do to Nina.
%
Jack Bauer doesn't make threats. He makes facts.
%
Jack Bauer's favorite color is severe terror alert red. His second favorite color is violet, but just because it sounds like violent.
%
Jeff Gordon drives Car 24 in Nascar races because he hopes at least a few drivers think it's being driven by Jack Bauer and will drop out of the races.
%
Jack Bauer beat Mike Tyson's Punchout on his first try (even Super Macho Man).
%
fortune/jackbauer view on Meta::CPAN
%
Roosters crow in the morning after Jack Bauer wakes them.
%
You can now abolish the IRS by having them audit Jack Bauer.
%
If the groundhog sees his shadow, that means 6 more weeks of winter. If Jack Bauer sees your shadow, that means 6 more seconds to live.
%
President Logan is not scared because he knows the terrorits are threatening America. He is scared because he knows Jack Bauer can take over anytime he wants.
%
Jack Bauer told Elvis to leave the building.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer would have broke Lincoln Burrows and Michael Scofield out of prison... But then it wouldn't have been much of a show, would it?
%
Jack Bauer doesn't count his chickens before they hatch. He smashes them into little pieces and eats them for dinner.
%
CTU tried to get Jack Bauer into therapy after his wife's death. By the end of the first session, the psychiatrist had given up all his innermost secrets because Jack Bauer asks the questions.
%
Jack Bauer has once made a lie detector lie. He then proceeded to torture it until it told the truth.
%
Jack Bauer once took every drug known to man and then took a nap.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer can put aluminum in the microwave.
%
There are only 2 types of people in the world:
• Those who will do anything for Jack...and eventually die as a result.
• Those who are secretly plotting to betray Jack, and who will eventually die as a result.
%
Jack Bauer once appeared in a Staples commercial... he broke the easy button because everything comes easy to Jack Bauer.
%
If two trains are heading towards the same destination, one starting from 100 miles away going east at 80mph, and another from 120 miles away going west at 100mph, which one arrives first? Answer: Jack Bauer.
%
fortune/jackbauer view on Meta::CPAN
%
No man has ever used the phrase, "Jack Bauer is a pussy" in a sentence and lived to tel-
%
The only reason Bill Gates doesn’t crush Apple is because Jack Bauer owns stock in it.
%
In the short time Jack Bauer was dead, he tortured the Devil and found the secret to immortality....and before he left hell to come back to life, he bitch slapped Nina Myers one last time.
%
Jack Bauer may not be able to turn water into wine. He does, however, turn men gay.
%
Give me liberty or give me Jack Bauer.
%
fortune/jackbauer view on Meta::CPAN
%
Upon hearing that Allen Iverson was "the Answer", Jack Bauer flew to Philly. Allen Iverson then made that commercial that details his numerous injuries.
%
Mortal Kombat had to change "Finish Him" into "Jack Bauer Him!"
%
When Jack Bauer walks into an airport, the security guards remove their shoes and walk through the metal detectors.
%
Simon Says should be renamed to Jack Bauer Says because if Jack Bauer says something then you better fucking do it.
%
When Jack Bauer enters a church, the chior stops what they're doing and sings "Hallelujah." Every time.
%
fortune/jackbauer view on Meta::CPAN
%
When Jack Bauer ran out of ammo, he caught 3 bullets in his chest and used them to reload.
%
In season 2, Jack told Kim to shoot Gary in the chest. He still hasn't forgiven himself for not being there to see her first kill.
%
ESPN rated Kobe Bryant for Vlade Divac as the second worst trade in history, after Jack Bauer for Behrooz Araz.
%
When Jack Bauer was a contestant on "The Apprentice", he fired Donald Trump from his own show.
%
If Jack Bauer were in Rocky VI, there would be no Rocky VII.
%
fortune/jackbauer view on Meta::CPAN
%
The real reason the Army ditched the Army of One campaign? Jack Bauer sued for copy right infringement.
%
Jack Bauer's in-box has no spam. Spammers are terrified of Jack Bauer.
%
Jack Bauer once ate six saltine crackers in under 60 seconds, without a single sip of water.
%
The video game "God of War" was originally conceptualized as "Jack Bauer: The High School Years".
%
When Jack Bauer has the remote, you’re watching whatever the fuck Jack’s watching.
%
fortune/jackbauer view on Meta::CPAN
%
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.
%
While Jack Bauer was presumed dead, a random oil field in Southern California produced more oil than any other region in history.
%
fortune/jackbauer view on Meta::CPAN
%
Jack could strangle you with his penis if he needed to save bullets.
%
Jack Bauer invented misery.
%
The only reason Martha Logan could bring herself to having sex with President Logan was by pretending that he was Jack Bauer. However, the fantasy wasn't fulfilled when President Logan lasted 40 seconds.
%
Jack Bauer can do more with a cell phone than most hackers can do with the top personal computers.
%
Jack Bauer does not yield when he turns right on red.
%
fortune/jackbauer view on Meta::CPAN
%
When CTU didn't have a hacksaw per his request, Jack used his teeth to cut through the spinal cord of a suspect.
%
Jack Bauer was unhappy because God didn't let Jack into heaven for all his sins but cheered up after he was able to eternally torture Nina, Drazen and Marwan in hell.
%
Only Jack Bauer knows whats going to happen at the end of Day 5. In order to keep it a secret, he killed Keifer Sutherland.
%
Jack Bauer is the reason Enrique Iglesias no longer has that thing on his face. Jack Bauer fucking hates moles.
%
Black holes aren't black holes. Thats the gravitational pull from Jack Bauer's Balls.
%
fortune/jackbauer view on Meta::CPAN
%
The odds of completing anything without Jack Bauer is less than 20%.
%
If Jack Bauer wants to have a minute alone with you... well, basically you're fucked.
%
It only took 3 minutes for Jack Bauer to find out Victoria's secret.
%
If Jack Bauer started having sex with men, we'd all be gay for having sex with women
%
Jack Bauer doesn't eat honey, he chews bees.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer can divide by zero.
%
Congress authorized the minting of a 24 dollar bill with Jack Bauer's picture on it, but the printing machines broke under the stress of his awesomeness.
%
When Jack Bauer has no other option, he tortures someone. He has yet to have a second option.
%
Edmund Burke once stated, "The only thing necessary for the triumph of evil is for good men to do nothing." Then he saw season one of "24" and ammended his statement to "The only thing necessary for the triumph of evil is for Jack Bauer to be on vaca...
%
Jack Bauer washes colors and whites together.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer shoots more than Peter North.
%
When Jack Bauer goes to a strip club he doesn't get a lapdance, he gets the stage.
%
Jack's PC repairs its own errors when he types a secret password. "Son of a bitch".
%
When a burning bush appears to Jack Bauer telling him what to do, Jack pisses out the flames. Jack listens to nobody.
%
When a girl does not make Jack Bauer finish, she gets blue balled.
%
fortune/jackbauer view on Meta::CPAN
%
Professor Charles Xavier from X-Men once tried to read Jack Bauer's mind. Now he's sitting in a wheel chair.
%
Jack Bauer once made a mute surrender sensitive information.
%
Jack Bauer doesn't work in the interest of national security, the nation is interested in securing it self on Jack's good side.
%
Jack Bauer is never caught in traffic. That is because other vehicles fear Jack Bauer and stay out of his way.
%
Kim Bauer only exists because they don't make Kevlar condoms.
%
fortune/jackbauer view on Meta::CPAN
Jack Bauer's copy-editing style involves cutting the hands off of those who make spelling and grammatical errors with an ax.
%
Before accepting a job at CTU remember that Jack Bauer has:
*Shot George Mason with a tranquilizer gun
*Knocked out a security guard to escape lockdown
*Shot Nina (before it was discovered that she was bad)
*Broken Tony's leg to escape lockdown
*Shot Chase Edmunds with an empty gun
*Killed Ryan Chappelle
*Cut off Chase's arm
*Attacked Ronnie
*Knocked out Curtis
*Killed Curtis
*Attacked two security guards
*Knocked out a security guard
Now do you want to work at CTU?
%
When people said that "24" had "jumped the shark", Jack Bauer jumped into the tank and killed the shark with his bare hands.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer brought balance to the force.
%
Some people see the glass as half full. Others see it as half empty. Jack Bauer see the glass as a deadly weapon.
%
If you can see Jack Bauer, he can see you. If you can't see Jack Bauer you may be only seconds away from death.
%
Lil Jon was soft spoken until Jack Bauer told him to "Speak the Fuck up."
%
Jack Bauer once owned a Nintendo. Once he discovered that the princess was in another castle, Jack tortured the game for 30 seconds. The Nintendo blew up as a result, and Jack hasn't owned a game console since.
%
Jack Bauer is so cool, everybody forgets he is Canadian.
%
Jack Bauer doesn't breathe. The air hides in his lungs for protection.
%
fortune/jackbauer view on Meta::CPAN
%
Jehovahs Witnesses skip Jack Bauer's house.
%
Jack Bauer forced the Blackberry settlement so he could send a message to Mike Novick during Season 5.
%
Jack Bauer is not the second coming of Jesus Christ... Jesus Christ was the first coming of Jack Bauer.
%
If Jack Bauer was in a room with Hitler, Stalin, and Nina Meyers, and he had a gun with 2 bullets, he'd shoot Nina twice.
%
The movie "Under Siege" would have been over in 10 minutes if it had been Jack Bauer instead of Steven Seagal. Jack would have just tipped the entire fucking battleship over.
%
fortune/jackbauer view on Meta::CPAN
%
Audrey couldn't handle the size of Jack's penis, which is why she used Paul's death as an excuse to break up with him.
%
When Jack Bauer lost a tooth as a child, instead of leaving a quarter, the tooth farie left a bullet.
%
To Jack Bauer, Level 8 Security just means it takes 8 seconds to infiltrate.
%
On slow days at CTU, Jack Bauer will release 15 velociraptors throughout the entire building. This is to keep everyone at peak alertness, and keeps Jack Bauer challenged when there are no terrorists to thwart. Where does Bauer get velociraptors? A...
%
When people say "Lord have mercy," Jack Bauer considers it.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer uses Binford 6100 Power tools.
%
Jack Bauer has a 5 o clock shadow at 5am.
%
In second grade, Jack Bauer sent the teacher to the principal's office.
%
The human body is approximately 60% water. Jack Bauer is 100% bad ass.
%
In grade school, Jack Bauer's teachers gave him apples.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer killed 93 people in just 4 days time. Wait, that is a real fact.
%
Jack Bauer once beat Super Mario Bros. 3 without touching the controller. He just stared at the TV until the game beat itself.
%
Jack Bauer was once picked second in a game of dodgeball. The game quickly turned into dodge-bullets. Jack is always picked first.
%
There's a reason why no one at Jack's elementary school ever played Cops and Robbers.
%
If you're holding a gun to Jack Bauer's head, don't count to three before you shoot. Count to 10. That way, you get to live 7 seconds longer.
%
Jack Bauer's favorite part about school was pulling all-nighters.
%
When your wathicng 24 your not watching Jack Bauer, Jack Bauer is watching you.
%
fortune/jackbauer view on Meta::CPAN
%
Chuck Norris is Jack Bauer's biggest fan.
%
Nothing could get in the middle of Jack Bauer. Not even a middle name.
%
If there was a bomb on a 60 second timer and Jack was handcuffed, he would dial CTU with his nose and disable the bomb with his teeth.
%
Jack Bauer once saw two gay men making out. They immediately turned straight.
%
Jack Bauer gets anal on the first date. No questions asked.
%
fortune/jackbauer view on Meta::CPAN
%
Jack Bauer doesn't lose weight, weight loses Jack Bauer.
%
There once 'was' a man from Nantucket. Jack Bauer shot him.
%
Jack Bauer can get anywhere in minutes... seconds.
No matter what the traffic situation is.
%
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.
Acme-6502
view release on metacpan or search on metacpan
lib/Acme/6502/Tube.pm view on Meta::CPAN
# Run
$cpu->run(2000_000) while 1;
=head1 DESCRIPTION
Emulates an Acorn BBC Micro 6502 Tube second processor. You'll need
to find your own language ROM to load and it's only been tested with
BBC Basic II.
=head1 INTERFACE
Acme-ALEXEY-Utils
view release on metacpan or search on metacpan
lib/Acme/ALEXEY/Utils.pm view on Meta::CPAN
my $foo = Acme::ALEXEY::Utils->new();
...
=head1 EXPORT
A list of functions that can be exported. You can delete this section
if you don't export anything, such as for a purely object-oriented module.
=head1 SUBROUTINES/METHODS
=head2 sum
Acme-ARUHI-Utils
view release on metacpan or search on metacpan
lib/Acme/ARUHI/Utils.pm view on Meta::CPAN
my $sum = Acme::ARUHI::Utils::sum(1, 2);
=head1 EXPORT
A list of functions that can be exported. You can delete this section
if you don't export anything, such as for a purely object-oriented module.
=head1 SUBROUTINES/METHODS
=head2 sum
Acme-AbhiIsNot
view release on metacpan or search on metacpan
lib/Acme/AbhiIsNot.pm view on Meta::CPAN
my $foo = Acme::AbhiIsNot->new();
...
=head1 EXPORT
A list of functions that can be exported. You can delete this section
if you don't export anything, such as for a purely object-oriented module.
=head1 SUBROUTINES/METHODS
=head2 sum( LIST_OF_NUMBERS )
Acme-Acotie
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
my $name = shift;
my $features = ( $self->{values}{features} ||= [] );
my $mods;
if ( @_ == 1 and ref( $_[0] ) ) {
# The user used ->feature like ->features by passing in the second
# argument as a reference. Accomodate for that.
$mods = $_[0];
} else {
$mods = \@_;
}
Acme-Affinity
view release on metacpan or search on metacpan
0.0102 2017-11-03 02:05:50
- Fixed tiny typo.
- Improve variable naming.
0.0101 2017-11-03 01:37:57
- Removed redundant NAME POD section.
- Modularized the score() method.
0.01 2017-11-03 01:14:23
- Minted by Dist::Zilla.
- Ported functionality from personal devel repo.
Acme-Aheui
view release on metacpan or search on metacpan
lib/Acme/Aheui.pm view on Meta::CPAN
my ($self, $i) = @_;
my $stack = $self->{_stacks}->[$i];
if ($i == 21) { # ã…‡
my $first = $$stack[0];
my $second = $$stack[1];
$$stack[0] = $second;
$$stack[1] = $first;
}
elsif ($i == 27) { # ã…Ž
return;
}
( run in 3.146 seconds using v1.01-cache-2.11-cpan-39bf76dae61 )