Branch Coverage

blib/lib/Test/Spellunker.pm
Criterion Covered Total %
branch 20 30 66.6


line true false branch
35 0 8 unless pod_file_spelling_ok($file)
41 1 0 if -d 'blib'
46 0 1 @_ ? :
53 12 10 if (-d $file)
54 0 12 unless opendir my $dirhandle, $file
59 21 0 if $_ ne 'CVS'
65 10 12 if (-f $file)
66 2 8 unless _is_perl($file)
77 0 10 if $file =~ /\.PL$/
78 6 4 if $file =~ /\.p(l|lx|m|od)$/
79 0 4 if $file =~ /\.t$/
81 0 4 unless open my $handle, '<', $file
84 2 2 if defined $first and $first =~ /^#!.*perl/
93 0 8 unless (-r $file)
103 0 8 unless ($ok)