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   4321 use strict;
  1         13  
  1         84  
4 1     1   15 use warnings;
  1         10  
  1         152  
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;