File Coverage

blib/lib/Defaults/Mauke.pm
Criterion Covered Total %
statement 31 31 100.0
branch 1 2 50.0
condition n/a
subroutine 8 8 100.0
pod n/a
total 40 41 97.5


line stmt bran cond sub pod time code
1             package Defaults::Mauke;
2              
3 2     2   24850 use warnings;
  2         5  
  2         68  
4 2     2   10 use strict;
  2         5  
  2         57  
5 2     2   1865 use utf8;
  2         25  
  2         9  
6              
7 2     2   1697 no bareword::filehandles;
  2         9972  
  2         13  
8 2     2   1964 no indirect 0.16;
  2         2475  
  2         12  
9 2     2   1954 use Function::Parameters 0.06 (); # require the lexical pragma version
  2         7873  
  2         74  
10              
11 2     2   18 use Carp qw(croak);
  2         4  
  2         654  
12              
13             *VERSION = \'0.09';
14              
15             sub import {
16 2     2   20 my ($class, @args) = @_;
17 2         5 my $caller = caller;
18            
19 2         7 croak qq{"$_" is not exported by the $class module} for @args;
20            
21 2         41 strict->import;
22 2         47 warnings->import;
23 2         48 warnings->unimport(qw[recursion qw]);
24 2         15 utf8->import;
25 2         18 bareword::filehandles->unimport;
26 2         23 indirect->unimport(':fatal');
27 2 50       86 Function::Parameters->import(
28             Function::Parameters->VERSION >= 0.07
29             ? {
30             fun => 'function_strict',
31             method => 'method_strict',
32             }
33             : ()
34             );
35             }
36              
37             1
38              
39             __END__