File Coverage

blib/lib/warnings/method.pm
Criterion Covered Total %
statement 9 15 60.0
branch 0 2 0.0
condition n/a
subroutine 3 4 75.0
pod n/a
total 12 21 57.1


line stmt bran cond sub pod time code
1             package warnings::method;
2              
3 6     6   187530 use 5.008_001;
  6         24  
  6         256  
4              
5 6     6   37 use strict;
  6         11  
  6         307  
6              
7             our $VERSION = '0.10';
8              
9 6     6   35 use XSLoader;
  6         17  
  6         851  
10             XSLoader::load(__PACKAGE__, $VERSION);
11              
12             # re-declaration for built-in methods
13             sub UNIVERSAL::can :method;
14             sub UNIVERSAL::isa :method;
15              
16             sub import{
17 0     0     shift;
18 0 0         if(@_){
19 0           _set_mode(@_);
20             }
21              
22 0           $^H |= 0x00020000; # HINT_LOCALIZE_HH
23 0           $^H{(__PACKAGE__)} = 1;
24              
25 0           return;
26             }
27              
28             1;
29             __END__