File Coverage

blib/lib/Defaults/Mauke.pm
Criterion Covered Total %
statement 39 39 100.0
branch 1 2 50.0
condition n/a
subroutine 9 9 100.0
pod n/a
total 49 50 98.0


line stmt bran cond sub pod time code
1             package Defaults::Mauke;
2              
3 2     2   16252 use warnings;
  2         3  
  2         60  
4 2     2   8 use strict;
  2         2  
  2         50  
5 2     2   1049 use utf8;
  2         19  
  2         7  
6              
7 2     2   57 use feature ();
  2         3  
  2         27  
8 2     2   817 no bareword::filehandles;
  2         6805  
  2         14  
9 2     2   995 no indirect 0.16;
  2         1961  
  2         9  
10 2     2   1129 use Function::Parameters 1.06 qw(:strict);
  2         4392  
  2         13  
11              
12 2     2   647 use Carp qw(croak);
  2         3  
  2         638  
13              
14             *VERSION = \'0.10';
15              
16 2 50   2   29 method import($class: @args) {
  2         3  
  2         3  
  2         2  
17 2         4 my $caller = caller;
18              
19 2         4 croak qq{"$_" is not exported by the $class module} for @args;
20              
21              
22 2         56 strict->import;
23              
24 2         24 warnings->import;
25 2         40 warnings->unimport(qw[recursion qw]);
26              
27 2         9 utf8->import;
28              
29 2         188 feature->import(':5.16');
30 2         24 feature->unimport('switch');
31              
32 2         17 bareword::filehandles->unimport;
33              
34 2         15 indirect->unimport(':fatal');
35              
36 2         52 Function::Parameters->import(':strict');
37             }
38              
39             1
40              
41             __END__