File Coverage

blib/lib/warnings/unused.pm
Criterion Covered Total %
statement 15 15 100.0
branch 2 2 100.0
condition n/a
subroutine 4 4 100.0
pod n/a
total 21 21 100.0


line stmt bran cond sub pod time code
1             package warnings::unused;
2              
3 8     8   335748 use 5.008_001;
  8         33  
  8         379  
4              
5 8     8   46 use strict;
  8         16  
  8         421  
6              
7             our $VERSION = '0.06';
8              
9 8     8   47 use XSLoader;
  8         20  
  8         941  
10             XSLoader::load(__PACKAGE__, $VERSION);
11              
12             sub import{
13 8     8   74 shift;
14 8 100       49 if(@_){
15 2         6 _set_mode(@_); # '-global' or '-lexical'
16             }
17              
18 8         20 $^H |= 0x00020000; # HINT_LOCALIZE_HH
19 8         187 $^H{(__PACKAGE__)} = 1;
20              
21 8         3821 return;
22             }
23              
24             1;
25             __END__