File Coverage

blib/lib/common/sense.pm
Criterion Covered Total %
statement 24 24 100.0
branch 3 6 50.0
condition n/a
subroutine 5 5 100.0
pod n/a
total 32 35 91.4


line stmt bran cond sub pod time code
1 2     2   1519 use 5.006;
  2         7  
  2         85  
2 2     2   12 use strict;
  2         4  
  2         70  
3 2     2   20 use warnings;
  2         4  
  2         68  
4 2     2   2300 use utf8;
  2         23  
  2         11  
5              
6             package #
7             common::sense;
8              
9             our $AUTHORITY = 'cpan:TOBYINK';
10             our $VERSION = '3.73';
11              
12             sub import
13             {
14             # utf8
15 2     2   20 'utf8'->import;
16            
17             # strict
18 2         36 'strict'->import( qw(vars subs) );
19            
20             # feature
21 2 50       10 if ($] >= 5.010)
22             {
23 2         13 require feature;
24 2         188 'feature'->import( qw(say state switch) );
25 2 50       26 'feature'->import( qw(unicode_strings) ) if $] >= 5.012;
26 2 50       8 if ($] >= 5.016)
27             {
28 2         34 'feature'->import( qw(current_sub fc evalbytes) );
29 2         29 'feature'->unimport( qw(array_base) );
30             }
31             }
32            
33             # warnings
34 2         49 'warnings'->unimport;
35 2         119 'warnings'->import(
36             qw(
37             FATAL closed threads internal debugging pack
38             portable prototype inplace io pipe unpack malloc
39             glob digit printf layer
40             reserved taint closure semicolon
41             )
42             );
43 2         1895 'warnings'->unimport( qw(exec newline unopened) );
44             }
45              
46             1;