| line |
true |
false |
branch |
|
38
|
0 |
3 |
if ($_[0] and $_[0] eq 'no_plan') |
|
47
|
0 |
2 |
unless _is_perl_module($_) or _is_perl_script($_) |
|
51
|
3 |
0 |
@_ ? : |
|
52
|
1 |
2 |
if ref $base_dirs[-1] eq 'HASH' |
|
56
|
2 |
30 |
if $chunks[-1] eq 'CVS' or $chunks[-1] eq '.svn' |
|
57
|
1 |
29 |
if $chunks[-2] eq 'blib' and $chunks[-1] eq 'libdoc' |
|
58
|
1 |
28 |
if $chunks[-2] eq 'blib' and $chunks[-1] =~ /^man[0-9]$/ |
|
59
|
1 |
27 |
if $chunks[-1] eq 'inc' |
|
61
|
1 |
26 |
if ('File::Spec'->splitdir($File::Find::name))[-1] eq 'Build' |
|
62
|
17 |
9 |
unless -f $File::Find::name and -r _ |
|
93
|
0 |
0 |
$options->{'show_lines'} ? : |
|
100
|
6 |
1 |
unless ref $_[0] |
|
102
|
1 |
6 |
if ref $_[0] eq 'HASH' |
|
109
|
0 |
7 |
unless (open my $fh, $file) |
|
116
|
0 |
953 |
if (not $options->{'trailing_whitespace'} and /(\r+)$/) |
|
120
|
0 |
953 |
if ($options->{'trailing_whitespace'} and /([ \t]*\r+|[ \t]+)$/) |
|
126
|
0 |
953 |
if @fails > 0 and not $options->{'all_reasons'} |
|
128
|
0 |
7 |
if (@fails) |
|
130
|
0 |
0 |
if ($options->{'all_reasons'} or 1) |
|
142
|
0 |
2 |
if ref $_[0] eq 'HASH' |
|
151
|
0 |
2 |
unless $_[0] =~ /\.pm$/i |
|
160
|
0 |
0 |
if $file =~ /\.pl$/i |
|
161
|
0 |
0 |
if $file =~ /\.t$/ |
|
162
|
0 |
0 |
unless open my $fh, $file |
|
164
|
0 |
0 |
if defined $first and $first =~ /$PERL_PATTERN/ |
|
170
|
7 |
0 |
unless $file =~ /::/ |
|
175
|
0 |
0 |
unless -e $candidate and -f _ and -r _ |
|
182
|
0 |
2 |
if $no_plan |
|
183
|
2 |
0 |
unless ($Test->has_plan) |
|
191
|
0 |
0 |
wantarray ? : |