Result:
found more than 411 distributions - search limited to the first 2001 files matching your query
( run in 3.292 )
AWS-SNS-Verify
view release on metacpan or search on metacpan
lib/AWS/SNS/Verify.pm view on Meta::CPAN
return $sns->message;
}
=head1 DESCRIPTION
This module will parse a message from Amazon Simple Notification Service and validate its signature. This way you know the message came from AWS and not some third-party. More info here: L<http://docs.aws.amazon.com/sns/latest/dg/SendMessageToHttp.ve...
=head1 METHODS
=head2 new
lib/AWS/SNS/Verify.pm view on Meta::CPAN
{
"Type" : "Notification",
"MessageId" : "a890c547-5d98-55e2-971d-8826fff56413",
"TopicArn" : "arn:aws:sns:us-east-1:041977924901:foo",
"Subject" : "test subject",
"Message" : "test message",
"Timestamp" : "2015-02-20T20:59:25.401Z",
"SignatureVersion" : "1",
"Signature" : "kzi3JBQz64uFAXG9ZuAwPI2gYW5tT7OF83oeHb8v0/XRPsy0keq2NHTCpQVRxCgPOJ/QUB2Yl/L29/W4hiHMo9+Ns0hrqyasgUfjq+XkVR1WDuYLtNaEA1vLnA0H9usSh3eVVlLhpYzoT4GUoGgstRVvFceW2QVF9EYUQyromlcbOVtVpKCEINAvGEEKJNGTXQQUkPUka3YMhHitgQg1WlFBmf+oweSYUEj8+Ro...
"SigningCertURL" : "https://sns.us-east-1.amazonaws.com/SimpleNotificationService-d6d679a1d18e95c2f9ffcf11f4f9e198.pem",
"UnsubscribeURL" : "https://sns.us-east-1.amazonaws.com/?Action=Unsubscribe&SubscriptionArn=arn:aws:sns:us-east-1:041977924901:foo:20b2d060-2a32-4506-9cb0-24b8b9e605e1",
lib/AWS/SNS/Verify.pm view on Meta::CPAN
If you wish to use a cached version, then pass it in.
=item validate_signing_cert_url (default: true)
If you're using a fake SNS server in your local test environment, the SigningCertURL won't be an AWS endpoint. If so, set validate_signing_cert_url to 0.
Don't ever do this in any kind of Production environment.
=back
AWS-Signature4
view release on metacpan or search on metacpan
lib/AWS/Signature4.pm view on Meta::CPAN
my $response = $ua->get($url);
=head1 DESCRIPTION
This module implement's Amazon Web Service's Signature version 4
(http://docs.aws.amazon.com/general/latest/gr/signature-version-4.html).
=head1 METHODS
=over 4
lib/AWS/Signature4.pm view on Meta::CPAN
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.
if ($scope =~ /\/s3\/aws4_request$/) {
$self->_sign($request, undef, 'UNSIGNED-PAYLOAD');
} else {
AWS-XRay
view release on metacpan or search on metacpan
lib/AWS/XRay.pm view on Meta::CPAN
=head1 DESCRIPTION
AWS::XRay is a tracing library with AWS X-Ray.
AWS::XRay sends segment data to L<AWS X-Ray Daemon|https://docs.aws.amazon.com/xray/latest/devguide/xray-daemon.html>.
=head1 FUNCTIONS
=head2 new_trace_id
Generate a Trace ID. (e.g. "1-581cf771-a006649127e371903a2de979")
L<Document|https://docs.aws.amazon.com/xray/latest/devguide/xray-api-sendingdata.html#xray-api-traceids>
=head2 capture($name, $code)
capture() executes $code->($segment) and send the segment document to X-Ray daemon.
lib/AWS/XRay.pm view on Meta::CPAN
When $AWS::XRay::TRACE_ID is not set, generates TRACE_ID automatically.
When capture() called from other capture(), $segment is a sub segment document.
See also L<AWS X-Ray Segment Documents|https://docs.aws.amazon.com/xray/latest/devguide/xray-api-segmentdocuments.html>.
=head2 capture_from($header, $name, $code)
capture_from() parses the trace header and capture the $code with sub segment of header's segment.
lib/AWS/XRay.pm view on Meta::CPAN
=head2 $AWS::XRay::CROAK_INVALID_NAME
When set to 1 (default 0), capture() will raise exception if a segment name is invalid.
See https://docs.aws.amazon.com/xray/latest/devguide/xray-api-segmentdocuments.html
=over
name – The logical name of the service that handled the request, up to 200 characters.
For example, your application's name or domain name.
AXL-Client-Simple
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $self = $class->new(@_);
my $who = $self->_caller;
#-------------------------------------------------------------
# all of the following checks should be included in import(),
# to allow "eval 'require Module::Install; 1' to test
# installation of Module::Install. (RT #51267)
#-------------------------------------------------------------
# Whether or not inc::Module::Install is actually loaded, the
# $INC{inc/Module/Install.pm} is what will still get set as long as
Acme-6502
view release on metacpan or search on metacpan
inc/MyBuilder.pm view on Meta::CPAN
sub _auto_bugtracker {
'http://rt.cpan.org/NoAuth/Bugs.html?Dist=' . shift->dist_name;
}
sub ACTION_testauthor {
my $self = shift;
$self->test_files( 'xt/author' );
$self->ACTION_test;
}
sub ACTION_critic {
exec qw( perlcritic -1 -q -profile perlcriticrc lib/ ), glob 't/*.t';
}
Acme-ADEAS-Utils
view release on metacpan or search on metacpan
lib/Acme/ADEAS/Utils.pm view on Meta::CPAN
my $sum = 0;
foreach my $element ( @_ ) {
# I could get a module to do this check, but I don't want to
if ( $element =~ /^-?\d+(?:\.\d+)?$/ ) {
# multiplies, so that the tests fail
$sum *= $element;
}
}
return $sum;
Acme-Acotie
view release on metacpan or search on metacpan
inc/Module/Install/Makefile.pm view on Meta::CPAN
my @c = caller();
if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) {
die "Caught an potential prompt infinite loop ($c[1]|$c[2]|$_[0])";
}
# In automated testing, always use defaults
if ( $ENV{AUTOMATED_TESTING} and ! $ENV{PERL_MM_USE_DEFAULT} ) {
local $ENV{PERL_MM_USE_DEFAULT} = 1;
goto &ExtUtils::MakeMaker::prompt;
} else {
goto &ExtUtils::MakeMaker::prompt;
inc/Module/Install/Makefile.pm view on Meta::CPAN
sub inc {
my $self = shift;
$self->makemaker_args( INC => shift );
}
my %test_dir = ();
sub _wanted_t {
/\.t$/ and -f $_ and $test_dir{$File::Find::dir} = 1;
}
sub tests_recursive {
my $self = shift;
if ( $self->tests ) {
die "tests_recursive will not work if tests are already defined";
}
my $dir = shift || 't';
unless ( -d $dir ) {
die "tests_recursive dir '$dir' does not exist";
}
%test_dir = ();
require File::Find;
File::Find::find( \&_wanted_t, $dir );
$self->tests( join ' ', map { "$_/*.t" } sort keys %test_dir );
}
sub write {
my $self = shift;
die "&Makefile->write() takes no arguments\n" if @_;
inc/Module/Install/Makefile.pm view on Meta::CPAN
my $args = $self->makemaker_args;
$args->{DISTNAME} = $self->name;
$args->{NAME} = $self->module_name || $self->name;
$args->{VERSION} = $self->version;
$args->{NAME} =~ s/-/::/g;
if ( $self->tests ) {
$args->{test} = { TESTS => $self->tests };
}
if ($] >= 5.005) {
$args->{ABSTRACT} = $self->abstract;
$args->{AUTHOR} = $self->author;
}
inc/Module/Install/Makefile.pm view on Meta::CPAN
local *MAKEFILE;
open MAKEFILE, "< $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
my $makefile = do { local $/; <MAKEFILE> };
close MAKEFILE or die $!;
$makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
$makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
$makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;
$makefile =~ s/^(FULLPERL = .*)/$1 "-Iinc"/m;
$makefile =~ s/^(PERL = .*)/$1 "-Iinc"/m;
Acme-Aheui
view release on metacpan or search on metacpan
lib/Acme/Aheui.pm view on Meta::CPAN
To install this module, run the following commands:
perl Build.PL
./Build
./Build test
./Build install
=head1 AUTHOR
Rakjin Hwang, C<< <rakjin@cpan.org> >>
Acme-AirRead
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $self = $class->new(@_);
my $who = $self->_caller;
#-------------------------------------------------------------
# all of the following checks should be included in import(),
# to allow "eval 'require Module::Install; 1' to test
# installation of Module::Install. (RT #51267)
#-------------------------------------------------------------
# Whether or not inc::Module::Install is actually loaded, the
# $INC{inc/Module/Install.pm} is what will still get set as long as
Acme-Albed
view release on metacpan or search on metacpan
inc/Module/Install/AuthorTests.pm view on Meta::CPAN
@ISA = qw{Module::Install::Base};
}
#line 42
sub author_tests {
my ($self, @dirs) = @_;
_add_author_tests($self, \@dirs, 0);
}
#line 56
sub recursive_author_tests {
my ($self, @dirs) = @_;
_add_author_tests($self, \@dirs, 1);
}
sub _wanted {
my $href = shift;
sub { /\.t$/ and -f $_ and $href->{$File::Find::dir} = 1 }
}
sub _add_author_tests {
my ($self, $dirs, $recurse) = @_;
return unless $Module::Install::AUTHOR;
my @tests = $self->tests ? (split / /, $self->tests) : 't/*.t';
# XXX: pick a default, later -- rjbs, 2008-02-24
my @dirs = @$dirs ? @$dirs : Carp::confess "no dirs given to author_tests";
@dirs = grep { -d } @dirs;
if ($recurse) {
require File::Find;
my %test_dir;
File::Find::find(_wanted(\%test_dir), @dirs);
$self->tests( join ' ', @tests, map { "$_/*.t" } sort keys %test_dir );
} else {
$self->tests( join ' ', @tests, map { "$_/*.t" } sort @dirs );
}
}
#line 107
Acme-AlgebraicToRPN
view release on metacpan or search on metacpan
lib/Acme/AlgebraicToRPN.pm view on Meta::CPAN
$ok = $al->check(\@stack, @expected);
Checks result of RPN conversion. @stack is what the B<rpn> function
returned, and @expected is what you expected the result to be. This
is kind of a diagnostic routine for testing.
Returns 1 if both @stack and @expected were the same, 0 if not.
=cut
Acme-AliG
view release on metacpan or search on metacpan
lib/Acme/AliG.pm view on Meta::CPAN
"beautiful" => "wicked",
"because" => "coz",
"bedsit" => "turf",
"been" => "bin",
"bent" => "batty",
"best" => "fittest",
"best" => "wickedest",
"bestfriend" => "main man",
"bestfriend" => "main man",
"big" => "massiv",
"billion" => "quillion",
lib/Acme/AliG.pm view on Meta::CPAN
"computer" => "pooter",
"condom" => "rubber",
"conservative" => "constervative",
"constabulary" => "constalubury",
"cool" => "wicked",
"coolest" => "fittest",
"coppers" => "pigs",
"cops" => "constalubury",
"country" => "turf",
"cow" => "bitch",
"coworker" => "main man",
lib/Acme/AliG.pm view on Meta::CPAN
"fantastic" => "wicked",
"fart" => "trumpet",
"farts" => "trumpets",
"fat" => "large",
"father" => "old geezer",
"favorite" => "bestest",
"favour" => "dig",
"favourite" => "bestest",
"feet" => "feets",
"female" => "bitch",
"females" => "bitches",
"fenian" => "muslim",
"fight" => "ruk",
"fights" => "ruks",
"filthy" => "mingin",
"find" => "check",
"fine" => "wicked",
"finest" => "fittest",
"flat" => "turf",
"folk" => "geezers",
"food" => "grub",
"fool" => "batty boy",
"foot" => "foots",
lib/Acme/AliG.pm view on Meta::CPAN
"minge" => "punanni",
"minj" => "punanni",
"missing" => "not in da house",
"money" => "mula",
"moron" => "chief",
"most" => "mostest",
"mother" => "mam",
"motor" => "auto",
"muff" => "punanni",
"mum" => "mam",
"music" => "tunes",
lib/Acme/AliG.pm view on Meta::CPAN
"nazies" => "commies",
"nazy" => "commy",
"neighbourhood" => "turf",
"neighbours" => "homies",
"nice" => "wicked",
"nicest" => "fittest",
"nigger" => "bruver",
"northside" => "westside",
"nuts" => "balls",
"ok" => "wicked",
"old" => "batty",
lib/Acme/AliG.pm view on Meta::CPAN
"present" => "in da house",
"pretty" => "fit",
"prison" => "inside",
"probe" => "check",
"prostitute" => "ho",
"protestant" => "muslim",
"protestants" => "muslims",
"pub" => "boozer",
"pussy" => "punanni",
"queen" => "main bitch",
"queer" => "batty boy",
"queers" => "batty boys",
lib/Acme/AliG.pm view on Meta::CPAN
"sensi" => "erbal remedy",
"sentences" => "lingo",
"service" => "mend",
"sex" => "riding the punanni",
"sexier" => "fitter",
"sexiest" => "fittest",
"sexy" => "fit",
"shag" => "ride the punanni",
"shagged" => "boned",
"shagger" => "boner",
"shagging" => "ride the punanni",
lib/Acme/AliG.pm view on Meta::CPAN
"techno" => "speed garage",
"technology" => "bits",
"terrorism" => "terrerorism",
"terrorist" => "terrerorist",
"terrorist" => "terrerorists",
"test" => "da test",
"thanks" => "big up",
#"thanks" => "fanks",
"that" => "dat",
"thats" => "dats",
"that's" => "innit",
lib/Acme/AliG.pm view on Meta::CPAN
"what are you talking about" => "wot is yous bangin on about",
"i don't know" => "me don't have a clue",
"night club" => "cukabilly",
"disco" => "cukabilly",
"sinn fein" => "muslims",
"first class" => "the most bestest",
"class a" => "the most bestest",
"blow job" => "sweet mr biggy lovin",
"i like you" => "would you dig to get jiggy wiv mr biggy",
"i love you" => "would you dig to get jiggy wiv mr biggy",
"i fancy you" => "would you dig to get jiggy wiv mr biggy",
"like to have sex" => "dig to get jiggy wiv mr biggy",
Acme-Alien-DontPanic
view release on metacpan or search on metacpan
lib/Acme/Alien/DontPanic.pm view on Meta::CPAN
=head1 DESCRIPTION
L<Alien::Base> comprises base classes to help in the construction of C<Alien::> modules. Modules in the L<Alien> namespace are used to locate and install (if necessary) external libraries needed by other Perl modules.
This module is a toy module to test the efficacy of the L<Alien::Base::ModuleBuild> system. This module is depended on by another toy module L<Acme::Ford::Prefect>, which needs the F<libdontpanic> library to be able to tell us the C<answer>.
=head1 SEE ALSO
=over
Acme-Alien-DontPanic2
view release on metacpan or search on metacpan
lib/Acme/Alien/DontPanic2.pm view on Meta::CPAN
=head1 DESCRIPTION
L<Alien::Base> comprises base classes to help in the construction of C<Alien::> modules. Modules in the L<Alien> namespace are used to locate and install (if necessary) external libraries needed by other Perl modules.
This module is a toy module to test the efficacy of the L<Alien::Base> system. This module is depended on by another toy module L<Acme::Ford::Prefect>, which needs the F<libdontpanic> library to be able to tell us the C<answer>.
=head1 SEE ALSO
=over
Acme-AllThePerlIsAStage
view release on metacpan or search on metacpan
lib/Acme/AllThePerlIsAStage.pm view on Meta::CPAN
sub _say_stage {
my ($name) = @_;
print caller() . " - $name (\${^GLOBAL_PHASE} is '${^GLOBAL_PHASE}')\n";
return unless $ENV{'AllThePerlIsAStage_verbose'};
# TODO v0.02: test that this does not change results
# TODO v0.02: eval if callable w/and w/out parens?
# print "\t set_at_begin() is " . (defined &set_at_begin) ? "defined" : "not defined";
# print "\tset_at_global() is " . (defined &set_at_global) ? "defined" : "not defined";
# set_at_begin_via_import
# set_at_begin_via_block
Acme-Anything
view release on metacpan or search on metacpan
lib/Acme/Anything.pm view on Meta::CPAN
To install this module, run the following commands:
perl Makefile.PL
make
make test
make install
=head1 SUPPORT AND DOCUMENTATION
After installing, you can find documentation for this module with the
Acme-Apache-Werewolf
view release on metacpan or search on metacpan
lib/Acme/Apache/Werewolf.pm view on Meta::CPAN
be prohibited in some states. Lon Chaney and Warren Zevon references
provided free of charge.
=head1 CAVEATS
I've not tested this with Apache 2.x. I don't have much idea whether or
not it will work there. Reports welcome.
=head1 SEE ALSO
Astro::MoonPhase
Acme-AsciiArtinator
view release on metacpan or search on metacpan
lib/Acme/AsciiArtinator.pm view on Meta::CPAN
croak "Initial code in ",$opts{"code"},$opts{"code_string"},
$opts{"code_file"}," does not compile!\n";
}
}
my $ntest = 1;
while (defined $opts{"test_argv$ntest"} || defined $opts{"test_input$ntest"}) {
my (@test_argv, @test_stdin) = ();
@test_argv = @{$opts{"test_argv$ntest"}} if defined $opts{"test_argv$ntest"};
@test_stdin = @{$opts{"test_input$ntest"}} if defined $opts{"test_input$ntest"};
my $fh;
if (open($fh, ">", "ascii-art-test-$ntest-$$.pl")) {
print $fh $CODE;
close $fh;
my $output = "";
if (defined $opts{"test_input$ntest"}) {
open($fh, ">", "ascii-art-test-$ntest-$$.stdin");
print $fh @test_stdin;
close $fh;
print qq{Running test: $^X ascii-art-test-$ntest-$$.pl @test_argv < ascii-art-test-$ntest-$$.stdin\n} if $DEBUG;
$output = qx{$^X ascii-art-test-$ntest-$$.pl @test_argv < ascii-art-test-$ntest-$$.stdin};
unlink "ascii-art-test-$ntest-$$.stdin";
} else {
print qq{Running test: $^X ascii-art-test-$ntest-$$.pl @test_argv\n};
$output = qx{$^X ascii-art-test-$ntest-$$.pl @test_argv};
}
print "Ran pre-test # $ntest with argv: \"@test_argv\", stdin: \"@test_stdin\"\n";
$Acme::AsciiArtinator::TestOutput[$ntest] = $output;
unlink "ascii-art-test-$ntest-$$.pl";
} else {
carp "Could not write code to disk in order to run pre-test.\n";
}
} continue {
$ntest++;
}
###############################################
lib/Acme/AsciiArtinator.pm view on Meta::CPAN
open($fh,"<", $OUTPUT);
my @output = <$fh>;
close $fh;
# test output
#
# make sure artinated code produces same outputs
# as the original code on the test cases.
#
$ntest = 1;
if (defined $opts{"test_argv1"}) {
print "Running post-tests on artinated code\n";
}
while (defined $opts{"test_argv$ntest"} || defined $opts{"test_input$ntest"}) {
my (@test_argv, @test_stdin) = ();
print "Testing output # $ntest:\n";
@test_argv = @{$opts{"test_argv$ntest"}} if defined $opts{"test_argv$ntest"};
@test_stdin = @{$opts{"test_input$ntest"}} if defined $opts{"test_input$ntest"};
my $fh;
next if !defined $Acme::AsciiArtinator::TestOutput[$ntest];
my $output = "";
if (defined $opts{"test_input$ntest"}) {
open($fh, ">", "ascii-art-test-$ntest-$$.stdin");
print $fh @test_stdin;
close $fh;
$output = qx{$^X "$OUTPUT" @test_argv < ascii-art-test-$ntest-$$.stdin};
unlink "ascii-art-test-$ntest-$$.stdin";
} else {
$output = qx{$^X "$OUTPUT" @test_argv};
}
print "Ran post-test # $ntest with argv: \"@test_argv\", stdin: \"@test_stdin\"\n";
if ($output eq $Acme::AsciiArtinator::TestOutput[$ntest]) {
print "Post-test # $ntest: PASS\n";
$Acme::AsciiArtinator::TestResult[$ntest] = "PASS";
} else {
print "Post-test # $ntest: FAIL\n";
$Acme::AsciiArtinator::TestResult[$ntest] = "FAIL";
print STDERR "-- " x 13, "\n";
print STDERR "Original results for test # $ntest:\n";
print STDERR "-- " x 7, "\n";
print STDERR $Acme::AsciiArtinator::TestOutput[$ntest];
print STDERR "\n", "-- " x 13, "\n";
print STDERR "Final results for test # $ntest:\n";
print STDERR $output;
print STDERR "\n", "-- " x 13, "\n\n";
}
} continue {
$ntest++;
}
return @output;
}
}
lib/Acme/AsciiArtinator.pm view on Meta::CPAN
=over 4
=item * Make sure the original code works
Make sure the code compiles and test it to see if it
works like you expect it to
before running the ASCII Artinator. It would be frustrating to
try to debug an artinated script only to later realize that
there was some bug in the original input.
lib/Acme/AsciiArtinator.pm view on Meta::CPAN
Causes the ASCII Artinator to display verbose messages
about what it is trying to do while it is doing what it
is trying to do.
=item test_argv1 => [ @args ], test_argv2 => [ @args ] , test_argv3 => ...
Executes the original and the artinated code and compares the output
to make sure that the artination process did not change the
behavior of the code. A separate test will be conducted for
every C<test_argvE<lt>NNNE<gt>> parameter passed to the
C<asciiartinate> method. The arguments associated with each
parameter will be passed to the code as command-line arguments.
=item test_input1 => [ @data ], test_input2 => [ @data ], test_input3 => ...
Executes the original and the artinated code and compares the output
to make sure that the artination process did not change the
behavior of the code. A separate test will be conducted for
every C<test_inputE<lt>NNNE<gt>> parameter passed to the
C<asciiartinate> method. The data associated with each
parameter will be passed to the standard input of the code.
=back
Acme-AutoLoad
view release on metacpan or search on metacpan
lib/Acme/AutoLoad.pm view on Meta::CPAN
=head1 INSTALL
Unlike most other modules on CPAN, this one is never intended to be installed.
It works by simply adding only one line, i.e., the "MAGIC LINE" from the SYNOPSYS above.
You can just copy/paste and then "use" whatever CPAN module you want after that.
It even automatically loads the latest version of Acme::AutoLoad at run-time directly from CPAN.
The optional "MAGIC LINE" comment is only to direct people reading your code back here to this documentation.
The line is intentionally short in order to minimize effort to use it.
It also can be easily used from commandline since it contains no quotes.
lib/Acme/AutoLoad.pm view on Meta::CPAN
AUTOLOAD_DEBUG to a true value.
The default is off.
=head2 AUTOLOAD_SRC
You can use AUTOLOAD_SRC to specify the mapper engine to ask where the latest location of the module is.
# For example
BEGIN { $ENV{AUTOLOAD_SRC} = "http://metacpan.org/release"; }
The default is "http://fastapi.metacpan.org/v1/module"
=head2 NETWORK_TEST_ACME_AUTOLOAD
In order to really test the test suite, the NETWORK_TEST_ACME_AUTOLOAD
environment variable must be set to a true value, otherwise none of the
network dependent tests will be run. For example:
NETWORK_TEST_ACME_AUTOLOAD=1 make test
=head1 SEE ALSO
lib::xi - Similar on-demand functionality except nothing required to install.
lib/Acme/AutoLoad.pm view on Meta::CPAN
App::cpanminus - Similar remote network "cpanmin.us" execution functionality except smaller.
CPAN - Actually installs CPAN modules instead of using a local cache.
cpan2rpm - Similar code to lookup latest module without having to configure any CPAN.pm bloat.
=head1 AUTHOR
Rob Brown (bbb@cpan.org) - Acme::AutoLoad code and RCX maintainer.
Acme-Backwards
view release on metacpan or search on metacpan
lib/Acme/Backwards.pm view on Meta::CPAN
package Acme::Backwards;
our $VERSION = '1.01';
use Keyword::Declare;
sub import {
keytype OKAY is m{(?:fisle (?&PerlNWS)(?&PerlExpression).*?;|esle (?&PerlNWS).*?;)?+}xms;
keyword rof (/(my\s*\$\w+)?/ $declare, Expr $test, /.+?;$/ $code) {_backwards('for', ($declare ? $declare : ()), $test, $code);};
keyword fi (Expr $test, /.+?;/ $code, OKAY @next) {_backwards('if', $test, $code)._process_backwards(@next);};
keyword sselnu (Expr $test, /.+?;/ $code, OKAY @next) {_backwards('unless', $test, $code)._process_backwards(@next);};
}
sub _process_backwards {join' ',map{$_=~m/(fisle|esle)(.*)$/;return"_$1"->($2)}@_;}
sub _esle {_backwards('else','',shift)}
sub _fisle {shift=~m/\s*((?&PerlExpression))\s*(.*?;) $PPR::GRAMMAR/gxm;_backwards('elsif', $1, $2);}
sub _backwards {scalar@_>3?sprintf"%s %s %s { %s }",@_:sprintf"%s %s { %s }",@_;}
Acme-BeCool
view release on metacpan or search on metacpan
=head1 DESCRIPTION
This module automatically uses the top ten things returned by a CPAN
search for "cool," or uses what you tell it. Use it to keep up with
the latest fads in Perl development, or to try to become a Perl
trend-setter yourself! Note that it doesn't try to install anything
you don't already have, because if you're cool, you already have it.
=head1 AUTHOR
Acme-Beatnik
view release on metacpan or search on metacpan
use Acme::Beatnik;
slate inspecting abate lags thirdly insults sites Rankin Alva ruler vent
trims sum Ian Augean polled bat refereed instant Reese lie belts
dues west starter dues attest Boers inset worships relates lotus it
balls emotion dart proving fain Salle approver dialer Santo sir artists
goes briny Angelo Aleut Tunis Brian Cohn rolls bleat drum nests
merits grunts Dana Lana rooster train leathered Clara laser Owen font
boo UniSoft casts vistas rises doodle Pratt elite en minor Hegel
laser dent begs bee aborts pours Cray idea babbled gated nulls
Acme-Blarghy-McBlarghBlargh
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
# various lexical flags
my ( @Missing, @Existing, %DisabledTests, $UnderCPAN, $HasCPANPLUS );
my ( $Config, $CheckOnly, $SkipInstall, $AcceptDefault, $TestOnly );
my ( $PostambleActions, $PostambleUsed );
# See if it's a testing or non-interactive session
_accept_default( $ENV{AUTOMATED_TESTING} or ! -t STDIN );
_init();
sub _accept_default {
$AcceptDefault = shift;
inc/Module/AutoInstall.pm view on Meta::CPAN
$CheckOnly = 1;
}
elsif ( $arg =~ /^--skip(?:deps)?$/ ) {
$SkipInstall = 1;
}
elsif ( $arg =~ /^--test(?:only)?$/ ) {
$TestOnly = 1;
}
}
}
inc/Module/AutoInstall.pm view on Meta::CPAN
grep { /^[^\-]/ or /^-core$/i } keys %{ +{@args} }
)[0]
);
while ( my ( $feature, $modules ) = splice( @args, 0, 2 ) ) {
my ( @required, @tests, @skiptests );
my $default = 1;
my $conflict = 0;
if ( $feature =~ m/^-(\w+)$/ ) {
my $option = lc($1);
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( $mod =~ m/^-(\w+)$/ ) {
my $option = lc($1);
$default = $arg if ( $option eq 'default' );
$conflict = $arg if ( $option eq 'conflict' );
@tests = @{$arg} if ( $option eq 'tests' );
@skiptests = @{$arg} if ( $option eq 'skiptests' );
next;
}
printf( "- %-${maxlen}s ...", $mod );
inc/Module/AutoInstall.pm view on Meta::CPAN
if (
defined( my $cur = _version_check( _load($mod), $arg ||= 0 ) ) )
{
print "loaded. ($cur" . ( $arg ? " >= $arg" : '' ) . ")\n";
push @Existing, $mod => $arg;
$DisabledTests{$_} = 1 for map { glob($_) } @skiptests;
}
else {
print "missing." . ( $arg ? " (would need $arg)" : '' ) . "\n";
push @required, $mod => $arg;
}
inc/Module/AutoInstall.pm view on Meta::CPAN
) =~ /^[Yy]/
)
)
{
push( @Missing, @required );
$DisabledTests{$_} = 1 for map { glob($_) } @skiptests;
}
elsif ( !$SkipInstall
and $default
and $mandatory
and
_prompt( qq{==> The module(s) are mandatory! Really skip?}, 'n', )
=~ /^[Nn]/ )
{
push( @Missing, @required );
$DisabledTests{$_} = 1 for map { glob($_) } @skiptests;
}
else {
$DisabledTests{$_} = 1 for map { glob($_) } @tests;
}
}
$UnderCPAN = _check_lock(); # check for $UnderCPAN
inc/Module/AutoInstall.pm view on Meta::CPAN
$args{EXE_FILES} =
[ grep { exists $manifest->{$_} } @{ $args{EXE_FILES} } ];
}
$args{test}{TESTS} ||= 't/*.t';
$args{test}{TESTS} = join( ' ',
grep { !exists( $DisabledTests{$_} ) }
map { glob($_) } split( /\s+/, $args{test}{TESTS} ) );
my $missing = join( ',', @Missing );
my $config =
join( ',', UNIVERSAL::isa( $Config, 'HASH' ) ? %{$Config} : @{$Config} )
if $Config;
Acme-Buckaroo
view release on metacpan or search on metacpan
Buckaroo.pm view on Meta::CPAN
sub import
{
my $first = shift; # name of module, in this case "Buckaroo.pm"
my $source_filename = $0; # name of file called from (if test.pl does a 'use Acme::Buckaroo;' then this will be "test.pl")
print("Starting \"Buckaroo\" process...\n") if $debug_mode;
# set up some hashes to go to/from encoding scheme.
my $i = 0;
Acme-Bushisms
view release on metacpan or search on metacpan
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'
#########################
# change 'tests => 1' to 'tests => last_test_to_print';
use Test;
BEGIN { plan tests => 1 };
use Acme::Bushisms;
ok(1); # If we made it this far, we're ok.
#########################
# Insert your test code below, the Test module is use()ed here so read
# its man page ( perldoc Test ) for help writing this test script.
Acme-CM-Get
view release on metacpan or search on metacpan
lib/Acme/CM/Get.pm view on Meta::CPAN
=head1 BUGS
Please report any bugs or feature requests on the bugtracker website L<https://rt.cpan.org/Public/Dist/Display.html?Name=Acme-CM-Get>
When submitting a bug or request, please include a test-file or a
patch to an existing test-file that illustrates the bug or desired
feature.
=head1 SEE ALSO
L<Acme::CPANModules>
Acme-CPAN-Testers-DevelCheckOS
view release on metacpan or search on metacpan
lib/Acme/CPAN/Testers/DevelCheckOS.pm view on Meta::CPAN
=head1 BUGS
Please report any bugs or feature requests on the bugtracker website L<https://rt.cpan.org/Public/Dist/Display.html?Name=Acme-CPAN-Testers-DevelCheckOS>
When submitting a bug or request, please include a test-file or a
patch to an existing test-file that illustrates the bug or desired
feature.
=head1 AUTHOR
perlancar <perlancar@cpan.org>
Acme-CPAN-Testers-FAIL
view release on metacpan or search on metacpan
lib/Acme/CPAN/Testers/FAIL.pm view on Meta::CPAN
package Acme::CPAN::Testers::FAIL;
BEGIN {
$Acme::CPAN::Testers::FAIL::VERSION = '0.02';
}
#ABSTRACT: generate a FAILing test report
use strict;
use warnings;
q[defectus semper];
lib/Acme/CPAN/Testers/FAIL.pm view on Meta::CPAN
__END__
=pod
=head1 NAME
Acme::CPAN::Testers::FAIL - generate a FAILing test report
=head1 VERSION
version 0.02
=head1 DESCRIPTION
Acme::CPAN::Testers::FAIL generates a C<FAIL> test report when run by a CPAN Tester.
That's pretty much it, really.
=head1 AUTHOR
Acme-CPAN-Testers-NA
view release on metacpan or search on metacpan
lib/Acme/CPAN/Testers/NA.pm view on Meta::CPAN
package Acme::CPAN::Testers::NA;
$Acme::CPAN::Testers::NA::VERSION = '0.06';
#ABSTRACT: generate an NA test report
use strict;
use warnings;
q[semper propositum];
lib/Acme/CPAN/Testers/NA.pm view on Meta::CPAN
=encoding UTF-8
=head1 NAME
Acme::CPAN::Testers::NA - generate an NA test report
=head1 VERSION
version 0.06
=head1 DESCRIPTION
Acme::CPAN::Testers::NA generates an C<NA> test report when run by a CPAN Tester.
That's pretty much it, really.
=head1 AUTHOR
Acme-CPAN-Testers-PASS
view release on metacpan or search on metacpan
lib/Acme/CPAN/Testers/PASS.pm view on Meta::CPAN
package Acme::CPAN::Testers::PASS;
BEGIN {
$Acme::CPAN::Testers::PASS::VERSION = '0.02';
}
#ABSTRACT: generate a PASSing test report
use strict;
use warnings;
q[Integer semper];
lib/Acme/CPAN/Testers/PASS.pm view on Meta::CPAN
__END__
=pod
=head1 NAME
Acme::CPAN::Testers::PASS - generate a PASSing test report
=head1 VERSION
version 0.02
=head1 DESCRIPTION
Acme::CPAN::Testers::PASS generates a C<PASS> test report when run by a CPAN Tester.
That's pretty much it, really.
=head1 AUTHOR
( run in 3.292 seconds using v1.01-cache-2.11-cpan-f56aa216473 )