Branch Coverage

blib/lib/Test/EOF.pm
Criterion Covered Total %
branch 26 54 48.1


line true false branch
30 1 1 ref $_[-1] eq 'HASH' ? :
0 2 ref $_[0] eq 'HASH' ? :
36 0 2 if (exists $$options{'minimum_newlines'} and $$options{'minimum_newlines'} <= 0)
50 2 0 if (not exists $$options{'maximum_newlines'}) { }
0 0 elsif (exists $$options{'maximum_newlines'} and $$options{'maximum_newlines'} < $$options{'minimum_newlines'}) { }
57 0 2 if ($$options{'strict'})
64 0 2 unless my $reader = 'File::ReadBackwards'->new($file)
70 7 0 if $line =~ /\v$/
71 5 2 if $line =~ /^\v$/
75 0 2 if ($linecount < $$options{'minimum_newlines'}) { }
0 2 elsif ($linecount > $$options{'maximum_newlines'}) { }
92 0 0 if $$options{'minimum_newlines'} == $$options{'maximum_newlines'}
97 2 0 @_ ? :
101 0 4 if $File::Find::dir =~ m[ [\\/]? (?:CVS|\.svn) [\\/] ]x
102 0 4 if $File::Find::dir =~ m[ [\\/]? blib [\\/] (?: libdoc | man\d) $ ]x
103 0 4 if $File::Find::dir =~ m[ [\\/]? inc ]x
104 0 4 if $File::Find::name =~ / Build $ /xi
105 2 2 unless -f -r $File::Find::name
115 0 2 unless _is_perl($_)
124 1 1 if $file =~ /\.pm$/i
125 0 1 if $file =~ /::/
128 0 1 if $file =~ /\.pl/i
129 1 0 if $file =~ /\.t$/
131 0 0 unless open my $fh, '<', $file
133 0 0 if (defined $first and $first =~ /$perlstart/)
144 2 0 unless $file =~ /::/
151 0 0 unless -e -f -r $candidate