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/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
builder/MyBuilder.pm view on Meta::CPAN
package builder::MyBuilder;
use v5.40;
use parent 'Module::Build';
use Affix::Build;
use HTTP::Tiny;
use Path::Tiny;
use Config;
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 ) {