File Coverage

blib/lib/Klonk/pragma.pm

Criterion	Covered	Total	%
statement	39	40	97.5
branch	1	2	50.0
condition			n/a
subroutine	10	10	100.0
pod			n/a
total	50	52	96.1

package Klonk::pragma 0.01;
use strict;
use warnings;
use warnings FATAL => qw(uninitialized);
use constant MIN_PERL_VERSION => '5.36';
no feature ':all';
use feature ':' . MIN_PERL_VERSION;
no feature qw(bareword_filehandles);
use Function::Parameters 2;

use Carp ();

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

    strict->import;
    warnings->import;
    warnings->import(FATAL => 'uninitialized');
    feature->unimport(':all');
    feature->import(':' . MIN_PERL_VERSION);
    feature->unimport('bareword_filehandles');
    Function::Parameters->import;
}

1
__END__