Acme-Perl-Consensual

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

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,

README  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 "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.