File Coverage

blib/lib/Test/Effects/VERBOSE.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 15 15 100.0


line stmt bran cond sub pod time code
1             package Test::Effects::VERBOSE;
2              
3 1     1   1599 no if $] >= 5.018, 'warnings', "experimental";
  1         14  
  1         6  
4 1     1   78 use 5.014;
  1         4  
5 1     1   6 use warnings;
  1         2  
  1         83  
6              
7             our $VERSION = '0.000001';
8              
9 1     1   128 sub import { $^H{'Test::Effects::VERBOSE'} = 1; }
10 1     1   1624 sub unimport { $^H{'Test::Effects::VERBOSE'} = 0; }
11              
12              
13             1; # Magic true value required at end of module
14             __END__