File Coverage

blib/lib/HTML/Blitz/pragma.pm

Criterion	Covered	Total	%
statement	31	32	96.8
branch	1	2	50.0
condition			n/a
subroutine	8	8	100.0
pod			n/a
total	40	42	95.2

# This code can be redistributed and modified under the terms of the GNU Affero
# General Public License as published by the Free Software Foundation, either
# version 3 of the License, or (at your option) any later version.
# See the "COPYING" file for details.
package HTML::Blitz::pragma;
use strict;
use warnings qw(all FATAL uninitialized);
use constant {
    PERL_VERSION    => '5.20',
    _HAVE_PERL_5_32 => $^V ge v5.32.0,
};
use feature ':' . PERL_VERSION;
no if _HAVE_PERL_5_32, feature => 'indirect';
use Function::Parameters 2;

use Carp ();

our $VERSION = '0.07';

method import($class: @items) {
    for my $item (@items) {
        Carp::croak qq("$item" is not exported by the $class module);
    }

    strict->import;
    warnings->import(qw(all FATAL uninitialized));
    feature->import(':' . PERL_VERSION);
    feature->unimport('indirect') if _HAVE_PERL_5_32;
    Function::Parameters->import;
}

1