view release on metacpan or search on metacpan
lib/evil.pm view on Meta::CPAN
my $hinthash = (caller 0)[10] || {};
croak "Current module requested no evilness" if $hinthash->{$LAX};
$hinthash = (caller 3)[10] || {};
croak "Cannot load evil module when parent requested \"no evil ':lax'\"" if $hinthash->{$LAX};
my $level = 4;
my @caller;
while (@caller = caller $level) {
$hinthash = $caller[10] || {};
view release on metacpan or search on metacpan
t/00_Coffee.t view on Meta::CPAN
use strict;
use Acme::EyeDrops qw(ascii_to_sightly sightly_to_ascii);
$|=1;
# XXX: The print "not " hack used below does not work on VMS apparently
# (for some odd reason, I think it prints a newline after the "not ")
print "1..10\n";
my $t1 = 'abcdefghijklmnopqrstuvwxyz';
view release on metacpan or search on metacpan
build_e7BB/Build_iu8t.pm view on Meta::CPAN
use strict;
use warnings;
package Build_iu8t;
use parent qw| Module::Build |;
use version 0.77; our $VERSION = version->declare( v2.3.1 );
# TODO:202502091940:whynot: And now do B<upload> action, plz.
use Carp qw| croak |;
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $cwd = Cwd::cwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::cwd();
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
view release on metacpan or search on metacpan
lib/Acme/Flat/AV.pm view on Meta::CPAN
# ABSTRACT: An Array Value
our $VERSION = '0.001001';
our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
use parent 'Acme::Flat::PVMG';
use Class::Tiny;
1;
__END__
view release on metacpan or search on metacpan
maint/release view on Meta::CPAN
print "does that look right? ";
my $input = <STDIN>;
die 'not right apparently' unless $input =~ /^y/i;
sub run
{
print "+@_\n";
system @_;
view release on metacpan or search on metacpan
maint/release view on Meta::CPAN
print "does that look right? ";
my $input = <STDIN>;
die 'not right apparently' unless $input =~ /^y/i;
sub run
{
print "+@_\n";
system @_;
view release on metacpan or search on metacpan
maint/release view on Meta::CPAN
print "does that look right? ";
my $input = <STDIN>;
die 'not right apparently' unless $input =~ /^y/i;
sub run
{
print "+@_\n";
system @_;
view release on metacpan or search on metacpan
maint/release view on Meta::CPAN
print "does that look right? ";
my $input = <STDIN>;
die 'not right apparently' unless $input =~ /^y/i;
sub run
{
print "+@_\n";
system @_;
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $cwd = Cwd::cwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::cwd();
if ( my $code = $sym->{$pwd} ) {
# delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
$$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
unshift @_, ( $self, $1 );
goto &{$self->can('call')} unless uc($1) eq $1;
view release on metacpan or search on metacpan
lib/Acme/Free/Advice/Slip.pm view on Meta::CPAN
package Acme::Free::Advice::Slip 1.1 { # https://api.adviceslip.com/
use v5.38;
use HTTP::Tiny;
use JSON::Tiny qw[decode_json];
use parent 'Exporter';
our %EXPORT_TAGS = ( all => [ our @EXPORT_OK = qw[advice search] ] );
#
use overload '""' => sub ( $s, $u, $b ) { $s->{advice} // () };
#
sub _http ($uri) {
view release on metacpan or search on metacpan
lib/Acme/Free/Advice/Unsolicited.pm view on Meta::CPAN
package Acme::Free::Advice::Unsolicited 1.1 { # https://kk-advice.koyeb.app/api
use v5.38;
use HTTP::Tiny;
use JSON::Tiny qw[decode_json];
use parent 'Exporter';
our %EXPORT_TAGS = ( all => [ our @EXPORT_OK = qw[advice all] ] );
#
use overload '""' => sub ( $s, $u, $b ) { $s->{advice} // () };
#
sub _http ($uri) {
view release on metacpan or search on metacpan
lib/Acme/Free/Advice.pm view on Meta::CPAN
package Acme::Free::Advice 1.1 {
use v5.38;
use parent 'Exporter';
use Module::Load;
our %EXPORT_TAGS = ( all => [ our @EXPORT_OK = qw[advice flavors] ] );
#
my %flavor = (
map {
view release on metacpan or search on metacpan
eg/ghost_acme.pl view on Meta::CPAN
1;
package MyGhost;
use parent 'Acme::Ghost';
sub init {
my $self = shift;
$SIG{HUP} = sub { $self->hangup }; # Listen USR2 (reload)
}
view release on metacpan or search on metacpan
lib/Acme/Godot.pm view on Meta::CPAN
=head1 DIAGNOSTICS
=over
=item C<< (Program apparently hanging) >>
Everything is OK. Your program is successfully waiting for Godot.
He'll probably be here soon.
=item C<< (Program exited unexpectedly) >>
view release on metacpan or search on metacpan
lib/Acme/Gosub.pm view on Meta::CPAN
my $source_for_text_balanced = ";" .
substr($source, $pos_source);
pos($source_for_text_balanced) = 0;
@pos = Text::Balanced::_match_codeblock(\$source_for_text_balanced,qr/\s*/,qr/;/,qr/;/,qr/[[{(<]/,qr/[]})>]/,undef)
or do {
die "Bad gosub statement (problem in the parentheses?) near $Acme::Gosub::file line ", line(substr($source_for_text_balanced,0,pos $source_for_text_balanced),$line), "\n";
};
my $future_pos_source = $pos_source + pos($source_for_text_balanced);
print join(",",@pos), "\n";
$arg = filter_blocks(substr($source_for_text_balanced,1,$pos[4]-$pos[0]),line(substr($source_for_text_balanced,0,1),$line));
print "\$arg = $arg\n";
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $cwd = Cwd::cwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::cwd();
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
view release on metacpan or search on metacpan
lib/Acme/Has/Tiny.pm view on Meta::CPAN
my $me = shift;
my ($class, $hash) = @_;
my @validator = map {
$VALIDATORS{$_} ||= $me->_compile_validator($_, $ATTRIBUTES{$_});
} $me->_find_parents($class);
$_->($hash) for @validator;
return $hash;
}
lib/Acme/Has/Tiny.pm view on Meta::CPAN
}
return @code;
}
sub _find_parents
{
my $me = shift;
my $class = $_[0];
if (eval { require mro } or eval { require MRO::Compat })
lib/Acme/Has/Tiny.pm view on Meta::CPAN
=back
=head1 CAVEATS
Inheriting attributes from parent classes is not super well-tested.
=head1 BUGS
Please report any bugs to
L<http://rt.cpan.org/Dist/Display.html?Queue=Acme-Type-Tiny>.
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $cwd = Cwd::cwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::cwd();
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $cwd = Cwd::cwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::cwd();
if ( my $code = $sym->{$pwd} ) {
# delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
$$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
unshift @_, ($self, $1);
goto &{$self->can('call')} unless uc($1) eq $1;
view release on metacpan or search on metacpan
script/gen-generic-ind-company-names view on Meta::CPAN
# number
# string (double-quoted and single-quoted)
# undef literal
# simple variable ($abc, no namespace, no array/hash sigil, no special variables)
# function call (only the 'val' function is supported)
# grouping (parenthesis)
#
#The supported operators are:
#
# + - .
# * / % x
script/gen-generic-ind-company-names view on Meta::CPAN
#
#use 5.010001;
#use strict;
#use warnings;
#
#use parent qw(Config::IOD::Base);
#
#sub _merge {
# my ($self, $section) = @_;
#
# my $res = $self->{_res};
script/gen-generic-ind-company-names view on Meta::CPAN
# number
# string (double-quoted and single-quoted)
# undef literal
# simple variable ($abc, no namespace, no array/hash sigil, no special variables)
# function call (only the 'val' function is supported)
# grouping (parenthesis)
#
#The supported operators are:
#
# + - .
# * / % x
script/gen-generic-ind-company-names view on Meta::CPAN
#$Text::Table::Tiny::VERSION = '1.02';
#use 5.010;
#use strict;
#use warnings;
#use utf8;
#use parent 'Exporter';
#use Carp qw/ croak /;
#use Ref::Util 0.202 qw/ is_arrayref /;
#use String::TtyLength 0.02 qw/ tty_width /;
#
#our @EXPORT_OK = qw/ generate_table /;
view release on metacpan or search on metacpan
local (*Acme::Incorporated::bad_product, *Acme::Incorporated::breaks, %INC);
*Acme::Incorporated::bad_product = sub { $non_random };
*Acme::Incorporated::breaks = sub { $breakage-- };
eval { require 'Some::Module'; 1 };
is( $@, '',
'loading a module should apparently succeed if empty box chosen' );
ok( $INC{'Some/Module.pm'}, '... populating %INC appropriately' );
ok( Some::Module::some_sub(), '... installing always successful subs' );
local @INC = ( 'lib', $INC[0] );
$non_random = \&Acme::Incorporated::breaks_when_needed;
view release on metacpan or search on metacpan
t/03-podcoverage.t view on Meta::CPAN
plan tests => $tests;
# General modules
foreach my $module (@testmodules) {
my $trustparents = { coverage_class => 'Pod::Coverage::CountParents' };
pod_coverage_ok( $module, $trustparents );
}
done_testing();
view release on metacpan or search on metacpan
lib/Acme/Insult/Evil.pm view on Meta::CPAN
package Acme::Insult::Evil 1.1 { # https://www.freepublicapis.com/evil-insult-generator
use v5.38;
use HTTP::Tiny;
use JSON::Tiny qw[decode_json];
use URI;
use parent 'Exporter';
our %EXPORT_TAGS = ( all => [ our @EXPORT_OK = qw[insult] ] );
#
use overload '""' => sub ( $s, $u, $b ) { $s->{insult} // () };
#
sub _http (%params) {
view release on metacpan or search on metacpan
lib/Acme/Insult/Glax.pm view on Meta::CPAN
package Acme::Insult::Glax 1.1 { # https://www.freepublicapis.com/insult-api
use v5.38;
use HTTP::Tiny;
use JSON::Tiny qw[decode_json];
use URI;
use parent 'Exporter';
our %EXPORT_TAGS = ( all => [ our @EXPORT_OK = qw[insult adjective] ] );
#
use overload '""' => sub ( $s, $u, $b ) { $s->{insult} // () };
my $api = URI->new('https://insult.mattbas.org/api/');
#
view release on metacpan or search on metacpan
lib/Acme/Insult/Pirate.pm view on Meta::CPAN
use v5.38;
use HTTP::Tiny;
#~ use JSON::Tiny qw[decode_json]; # Not needed here (yet)
use URI;
use parent 'Exporter';
our %EXPORT_TAGS = ( all => [ our @EXPORT_OK = qw[insult] ] );
#
use overload '""' => sub ( $s, $u, $b ) { $s->{insult} // () };
#
sub _http (%params) {
view release on metacpan or search on metacpan
lib/Acme/Insult.pm view on Meta::CPAN
package Acme::Insult 1.1 {
use v5.38;
use parent 'Exporter';
use Module::Load;
our %EXPORT_TAGS = ( all => [ our @EXPORT_OK = qw[insult flavors] ] );
#
my %flavor = (
map {
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $cwd = Cwd::cwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::cwd();
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
$$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
my $method = $1;
if ( uc($method) eq $method ) {
view release on metacpan or search on metacpan
Buck and Curly grew excited, half wild with fear, he raised his head as
though annoyed, favored them with an incurious glance, yawned, and went
to sleep again.
Day and night the ship throbbed to the tireless pulse of the propeller,
and though one day was very like another, it was apparent to Buck that
the weather was steadily growing colder. At last, one morning, the
propeller was quiet, and the Narwhal was pervaded with an atmosphere of
excitement. He felt it, as did the other dogs, and knew that a change
was at hand. Francois leashed them and brought them on deck. At the
first step upon the cold surface, Buck's feet sank into a white mushy
enough to discover. He did not like to be approached on his blind side.
Of this offence Buck was unwittingly guilty, and the first knowledge he
had of his indiscretion was when Sol-leks whirled upon him and slashed
his shoulder to the bone for three inches up and down. Forever after
Buck avoided his blind side, and to the last of their comradeship had
no more trouble. His only apparent ambition, like Dave's, was to be left
alone; though, as Buck was afterward to learn, each of them possessed
one other and even more vital ambition.
That night Buck faced the great problem of sleeping. The tent, illumined
by a candle, glowed warmly in the midst of the white plain; and when he,
power of recuperation left, no reserve strength to call upon. It had
been all used, the last least bit of it. Every muscle, every fibre,
every cell, was tired, dead tired. And there was reason for it. In less
than five months they had travelled twenty-five hundred miles, during
the last eighteen hundred of which they had had but five days' rest.
When they arrived at Skaguay they were apparently on their last legs.
They could barely keep the traces taut, and on the down grades just
managed to keep out of the way of the sled.
"Mush on, poor sore feets," the driver encouraged them as they tottered
down the main street of Skaguay. "Dis is de las'. Den we get one long
the work, nor was the heart of any dog. The Outsides were timid and
frightened, the Insides without confidence in their masters.
Buck felt vaguely that there was no depending upon these two men and the
woman. They did not know how to do anything, and as the days went by
it became apparent that they could not learn. They were slack in all
things, without order or discipline. It took them half the night to
pitch a slovenly camp, and half the morning to break that camp and get
the sled loaded in fashion so slovenly that for the rest of the day they
were occupied in stopping and rearranging the load. Some days they did
not make ten miles. On other days they were unable to get started
sort of society plays his mother's brother wrote, should have
anything to do with the chopping of a few sticks of firewood, passes
comprehension; nevertheless the quarrel was as likely to tend in that
direction as in the direction of Charles's political prejudices. And
that Charles's sister's tale-bearing tongue should be relevant to the
building of a Yukon fire, was apparent only to Mercedes, who disburdened
herself of copious opinions upon that topic, and incidentally upon a
few other traits unpleasantly peculiar to her husband's family. In the
meantime the fire remained unbuilt, the camp half pitched, and the dogs
unfed.
jagged bottom, smashing against rocks and snags, they veered in to the
bank.
Thornton came to, belly downward and being violently propelled back
and forth across a drift log by Hans and Pete. His first glance was for
Buck, over whose limp and apparently lifeless body Nig was setting up a
howl, while Skeet was licking the wet face and closed eyes. Thornton was
himself bruised and battered, and he went carefully over Buck's body,
when he had been brought around, finding three broken ribs.
"That settles it," he announced. "We camp right here." And camp they
thing that preyed, living on the things that lived, unaided, alone,
by virtue of his own strength and prowess, surviving triumphantly in a
hostile environment where only the strong survived. Because of all this
he became possessed of a great pride in himself, which communicated
itself like a contagion to his physical being. It advertised itself
in all his movements, was apparent in the play of every muscle, spoke
plainly as speech in the way he carried himself, and made his glorious
furry coat if anything more glorious. But for the stray brown on his
muzzle and above his eyes, and for the splash of white hair that ran
midmost down his chest, he might well have been mistaken for a gigantic
wolf, larger than the largest of the breed. From his St. Bernard father
This was sufficient to fling the whole pack forward, pell-mell, crowded
together, blocked and confused by its eagerness to pull down the
prey. Buck's marvellous quickness and agility stood him in good stead.
Pivoting on his hind legs, and snapping and gashing, he was everywhere
at once, presenting a front which was apparently unbroken so swiftly did
he whirl and guard from side to side. But to prevent them from getting
behind him, he was forced back, down past the pool and into the creek
bed, till he brought up against a high gravel bank. He worked along to a
right angle in the bank which the men had made in the course of mining,
and in this angle he came to bay, protected on three sides and with
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $cwd = Cwd::cwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::cwd();
if ( my $code = $sym->{$pwd} ) {
# delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
$$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
unshift @_, ($self, $1);
goto &{$self->can('call')} unless uc($1) eq $1;