| 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 |