| line |
true |
false |
branch |
|
38
|
0 |
2 |
if ($_[0] and $_[0] eq 'no_plan') |
|
47
|
0 |
2 |
unless _is_perl_module($_) or _is_perl_script($_) |
|
51
|
2 |
0 |
@_ ? : |
|
52
|
1 |
1 |
if ref $base_dirs[-1] eq 'HASH' |
|
55
|
0 |
6 |
if $File::Find::dir =~ m[[\\/]?CVS[\\/]|[\\/]?\.svn[\\/]] |
|
56
|
0 |
6 |
if $File::Find::dir =~ m[[\\/]?blib[\\/]libdoc$] |
|
57
|
0 |
6 |
if $File::Find::dir =~ m[[\\/]?blib[\\/]man\d$] |
|
58
|
0 |
6 |
if $File::Find::dir =~ m[[\\/]?inc] |
|
59
|
0 |
6 |
if $File::Find::name =~ /Build$/i |
|
60
|
4 |
2 |
unless -f $File::Find::name and -r _ |
|
91
|
0 |
0 |
$options->{'show_lines'} ? : |
|
98
|
6 |
1 |
unless ref $_[0] |
|
100
|
1 |
6 |
if ref $_[0] eq 'HASH' |
|
107
|
0 |
7 |
unless (open my $fh, $file) |
|
114
|
0 |
941 |
if (not $options->{'trailing_whitespace'} and /(\r+)$/) |
|
118
|
0 |
941 |
if ($options->{'trailing_whitespace'} and /([ \t]*\r+|[ \t]+)$/) |
|
124
|
0 |
941 |
if @fails > 0 and not $options->{'all_reasons'} |
|
126
|
0 |
7 |
if (@fails) |
|
128
|
0 |
0 |
if ($options->{'all_reasons'} or 1) |
|
140
|
0 |
2 |
if ref $_[0] eq 'HASH' |
|
149
|
0 |
2 |
unless $_[0] =~ /\.pm$/i |
|
158
|
0 |
0 |
if $file =~ /\.pl$/i |
|
159
|
0 |
0 |
if $file =~ /\.t$/ |
|
160
|
0 |
0 |
unless open my $fh, $file |
|
162
|
0 |
0 |
if defined $first and $first =~ /$PERL_PATTERN/ |
|
168
|
7 |
0 |
unless $file =~ /::/ |
|
173
|
0 |
0 |
unless -e $candidate and -f _ and -r _ |
|
180
|
0 |
2 |
if $no_plan |
|
181
|
2 |
0 |
unless ($Test->has_plan) |
|
189
|
0 |
0 |
wantarray ? : |