File Coverage

test-data/lib/Local/NoUnused.pm
Criterion Covered Total %
statement 6 7 85.7
branch n/a
condition n/a
subroutine 2 3 66.6
pod 0 1 0.0
total 8 11 72.7


line stmt bran cond sub pod time code
1             package Local::NoUnused;
2              
3 1     1   3977 use strict;
  1         10  
  1         76  
4 1     1   13 use warnings;
  1         12  
  1         156  
5              
6             my $foo;
7              
8             sub bar {
9 0     0 0   my $four = 4; # this probably should trigger an error
10             }
11              
12             1;