Acme-Perl-Consensual
view release on metacpan or search on metacpan
NAME
Acme::Perl::Consensual - check that your version of Perl is old enough
to consent
DESCRIPTION
This module checks that your version of Perl is old enough to consent to
sexual activity. It could be considered a counterpart for Modern::Perl.
Constructor
"new(locale => $locale)"
Creates a new Acme::Perl::Consensual object which can act as an age
of consent checker for a particular locale.
The locale string should be an ISO 3166 alpha2 country code such as
"US" for the United States, "GB" for the United Kingdom or "DE" for
Germany. It may optionally include a hyphen followed by a
subdivision designator, such as "US-TX" for Texas, United States,
use Acme::Perl::Consensual -check;
is a shorthand for:
BEGIN {
require Acme::Perl::Consensual;
Acme::Perl::Consensual->new()->perl_can()
or die "Perl $] failed age of consent check, died";
}
That is, it's the opposite of "use Modern::Perl". It requires your
version of Perl to be past the age of consent in your locale.
CAVEATS
Most jurisdictions have legal subtleties that this module cannot take
into account. Use of this module does not constitute a legal defence.
Even if you obtain consent from Perl, there are practical limits to what
you could actually do with it, sexually.
INSTALL
lib/Acme/Perl/Consensual.pm view on Meta::CPAN
1;
=head1 NAME
Acme::Perl::Consensual - check that your version of Perl is old enough to consent
=head1 DESCRIPTION
This module checks that your version of Perl is old enough to consent to
sexual activity. It could be considered a counterpart for L<Modern::Perl>.
=head2 Constructor
=over
=item C<< new(locale => $locale) >>
Creates a new Acme::Perl::Consensual object which can act as an age of consent
checker for a particular locale.
lib/Acme/Perl/Consensual.pm view on Meta::CPAN
use Acme::Perl::Consensual -check;
is a shorthand for:
BEGIN {
require Acme::Perl::Consensual;
Acme::Perl::Consensual->new()->perl_can()
or die "Perl $] failed age of consent check, died";
}
That is, it's the opposite of C<< use Modern::Perl >>. It requires your
version of Perl to be past the age of consent in your locale.
=head1 CAVEATS
Most jurisdictions have legal subtleties that this module cannot take into
account. Use of this module does not constitute a legal defence.
Even if you obtain consent from Perl, there are practical limits to what you
could actually do with it, sexually.
( run in 0.261 second using v1.01-cache-2.11-cpan-4d50c553e7e )