view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/metal_heroes.pm view on Meta::CPAN
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2020-03-01'; # DATE
our $DIST = 'Acme-MetaSyntactic-metal_heroes'; # DIST
our $VERSION = '0.001'; # VERSION
use parent qw(Acme::MetaSyntactic::MultiList);
__PACKAGE__->init;
1;
# ABSTRACT: The Metal Heroes series theme
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/mlpfim.pm view on Meta::CPAN
package Acme::MetaSyntactic::mlpfim;
$Acme::MetaSyntactic::mlpfim::VERSION = '0.0.2';
use strict;
use warnings;
use parent 'Acme::MetaSyntactic::List';
__PACKAGE__->init();
1;
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/newsradio.pm view on Meta::CPAN
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-02-18'; # DATE
our $DIST = 'Acme-MetaSyntactic-newsradio'; # DIST
our $VERSION = '0.001'; # VERSION
use parent qw(Acme::MetaSyntactic::MultiList);
__PACKAGE__->init;
1;
# ABSTRACT: Characters from the sitcom Newsradio (1995-1999)
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/not_going_out.pm view on Meta::CPAN
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-03-12'; # DATE
our $DIST = 'Acme-MetaSyntactic-not_going_out'; # DIST
our $VERSION = '0.001'; # VERSION
use parent qw(Acme::MetaSyntactic::MultiList);
__PACKAGE__->init;
1;
# ABSTRACT: Characters from the britcom Not Going Out (2006-)
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/ozark.pm view on Meta::CPAN
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2021-02-21'; # DATE
our $DIST = 'Acme-MetaSyntactic-ozark'; # DIST
our $VERSION = '0.001'; # VERSION
use parent qw(Acme::MetaSyntactic::MultiList);
__PACKAGE__->init;
1;
# ABSTRACT: The Ozark theme
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/schitts_creek.pm view on Meta::CPAN
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-03-12'; # DATE
our $DIST = 'Acme-MetaSyntactic-schitts_creek'; # DIST
our $VERSION = '0.001'; # VERSION
use parent qw(Acme::MetaSyntactic::MultiList);
__PACKAGE__->init;
1;
# ABSTRACT: Characters from the sitcom Schitt's Creek (2015-2020)
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/seinfeld.pm view on Meta::CPAN
package Acme::MetaSyntactic::seinfeld;
our $DATE = '2017-02-04'; # DATE
our $VERSION = '0.002'; # VERSION
use parent qw(Acme::MetaSyntactic::MultiList);
__PACKAGE__->init;
1;
# ABSTRACT: Characters from the sitcom Seinfeld (1989)
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/unyil.pm view on Meta::CPAN
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2020-03-01'; # DATE
our $DIST = 'Acme-MetaSyntactic-unyil'; # DIST
our $VERSION = '0.001'; # VERSION
use parent qw(Acme::MetaSyntactic::MultiList);
__PACKAGE__->init;
1;
# ABSTRACT: The Unyil theme
view release on metacpan or search on metacpan
lib/Acme/MilkyHolmes.pm view on Meta::CPAN
package Acme::MilkyHolmes;
use 5.008005;
use strict;
use warnings;
use parent qw(Exporter);
our $VERSION = "0.07";
use Acme::MilkyHolmes::Character::SherlockShellingford;
use Acme::MilkyHolmes::Character::NeroYuzurizaki;
view release on metacpan or search on metacpan
lib/Acme/Mitey/Cards/Types/Source.pm view on Meta::CPAN
use Type::Tiny::Class;
use Type::Utils ();
__PACKAGE__->add_type(
name => CardNumber,
parent => IntRange[ 1, 10 ],
);
CardNumber->coercion->add_type_coercions(
Enum['A', 'a'], q{1},
);
__PACKAGE__->add_type(
name => Character,
parent => Enum[ 'Jack', 'Queen', 'King' ],
);
__PACKAGE__->add_type(
'Type::Tiny::Class'->new(
name => Card,
lib/Acme/Mitey/Cards/Types/Source.pm view on Meta::CPAN
Str, q{'Acme::Mitey::Cards::Card'->from_string($_)},
);
__PACKAGE__->add_type(
name => CardArray,
parent => ArrayRef[Card],
coercion => 1,
);
__PACKAGE__->add_type(
'Type::Tiny::Class'->new(
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
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
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/MorningMusume/ShinMember.pm view on Meta::CPAN
our $VERSION = '0.01';
=head1 SYNOPSIS
Creates a random morning musume member that's "based on" two random
parent members:
use Acme::MorningMusume::ShinMember;
my $member = Acme::MorningMusume::ShinMember->new;
print "I created ". $member->name_en. "!\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;
}
$$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
inc/Module/Install.pm view on Meta::CPAN
my $sym = "$caller\::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::cwd();
if (my $code = $sym->{$pwd}) {
goto &$code unless $cwd eq $pwd; # delegate back to parent dirs
}
$$sym =~ /([^:]+)$/ or die "Cannot autoload $caller";
unshift @_, ($self, $1);
goto &{$self->can('call')} unless uc($1) eq $1;
};
view release on metacpan or search on metacpan
lib/Acme/Nyaa/Ja.pm view on Meta::CPAN
package Acme::Nyaa::Ja;
use parent 'Acme::Nyaa';
use strict;
use warnings;
use utf8;
my $RxComma = qr/[ã€(?:, )]/;
view release on metacpan or search on metacpan
OneHundredNotOut.pm view on Meta::CPAN
diversion: poker. Computer poker isn't that great either, and I wanted
to write some robots to play on the internet poker servers;
L<Games::Poker::HandEvaluator> was the first product there, with the
hard work done by a GNU library, and L<Games::Poker::OPP> being the
interface to the network protocol. The comments to that module contain a
large number of Prisoner references, for no apparent reason. C<OPP>
needed a way of representing the state of a poker game, so I wrote
L<Games::Poker::TexasHold'em> to do that. And also because it was a
fantastic abuse of the C<'> package separator.
Oh, and another of my early modules that refused to die was
view release on metacpan or search on metacpan
lib/Acme/PM/Barcelona/Meeting.pm view on Meta::CPAN
=over 4
=item new
Creates a parent DateTime::Set object. All other methods are inherited.
=back
=head1 ACKNOWLEDGEMENTS
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
inc/Module/Install.pm view on Meta::CPAN
my $cwd = Cwd::getcwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::getcwd();
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $cwd = Cwd::cwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::cwd();
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $cwd = Cwd::cwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::cwd();
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
$$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
my $method = $1;
if ( uc($method) eq $method ) {
view release on metacpan or search on metacpan
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
inc/Module/Install.pm view on Meta::CPAN
my $sym = "$caller\::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::cwd();
if (my $code = $sym->{$pwd}) {
goto &$code unless $cwd eq $pwd; # delegate back to parent dirs
}
$$sym =~ /([^:]+)$/ or die "Cannot autoload $caller";
unshift @_, ($self, $1);
goto &{$self->can('call')} unless uc($1) eq $1;
};
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
local (*Acme::Pills::bad_product, *Acme::Pills::breaks, %INC);
*Acme::Pills::bad_product = sub { $non_random };
*Acme::Pills::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::Pills::breaks_when_needed;
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/Plack/Middleware/Acme/Werewolf.pm view on Meta::CPAN
package Plack::Middleware::Acme::Werewolf;
use strict;
use warnings;
use Astro::MoonPhase ();
use parent qw( Plack::Middleware );
use Plack::Util::Accessor qw( moonlength message handler );
our $VERSION = '0.02';
sub prepare_app {
view release on metacpan or search on metacpan
lib/Tupelo/Munge.pm view on Meta::CPAN
use XSLoader;
our $VERSION = "0.000";
use parent "Exporter";
our @EXPORT_OK = qw(
pure_tuple constant_tuple variable_tuple
tuple_mutable tuple_length tuple_slot tuple_slots
tuple_set_slot tuple_set_slots tuple_seal
);