File Coverage

blib/lib/Five/Fourteen.pm

Criterion	Covered	Total	%
statement	20	24	83.3
branch	1	4	25.0
condition	1	3	33.3
subroutine	6	6	100.0
pod			n/a
total	28	37	75.6

package Five::Fourteen;
use 5.014;
use warnings;
use strict;
use feature ':5.14';

use Five::X;

sub import {
    my $class = shift;

    warnings->import();
    strict->import();
    feature->import(':5.14');

    if (@_ && $_[0] eq ':experimental') {
        for my $version (experimental_versions()) {
            next if $] < $version;
            warnings->unimport(@{ experimental_warnings($version) });
        }
    }
}

1;

=head1 NAME

Five::Fourteen - Enable 'strict', 'warnings' and 'features :5.14' in the calling code

=head1 COPYRIGHT

(c) MMXV - Abe Timmerman

=cut