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 3     3   27081 use strict;
  3         34  
  3         358  
4 3     3   105 use warnings;
  3         18  
  3         1156  
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;