File Coverage

blib/lib/Five/Twenty.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	4	6	66.6
condition	1	3	33.3
subroutine	6	6	100.0
pod			n/a
total	40	44	90.9

package Five::Twenty;
use 5.020;
use warnings;
use strict;
use feature ':5.20';

use Five::X;

sub import {
    my $class = shift;

    my @features;
    if (@_ and $_[0] eq ':experimental') {
        push @features, ('lexical_subs', 'postderef', 'postderef_qq', 'signatures');
    };

    warnings->import();
    strict->import();
    if (@features) {
        my @no_warnings = map "experimental::$_", grep !/_qq/, @features;
        warnings->unimport(@no_warnings);

        for my $version (experimental_versions()) {
            next if $] < $version;
            warnings->unimport(@{ experimental_warnings($version) });
        }
    }
    feature->import(':5.20', @features);
}

1;

=head1 NAME

Five::Twenty - Enable 'strict', 'warnings' and 'features :5.20' in the calling code

=head1 SYNOPSIS

    package MyPackage;
    use Five::Eighteen;
    # strict, warnings and featere :5.20

Perl 5.18 introduces experimental features that warn. These warnings can be
switched off with special 'no warnings' catagories. Use the B<:experimental>
import-tag to enable these features without warnings.

    package MyPackage;
    use Five::Eighteen ':experimantal';
    # now you also have 'lexical subs', 'postderef', 'postderef_qq', 'signatures'

=head1 COPYRIGHT

(c) MMXV - Abe Timmerman

=cut