| line |
true |
false |
branch |
|
48
|
2 |
1 |
unless _is_perl_module($_) |
|
53
|
1 |
0 |
@_ ? : |
|
57
|
0 |
6 |
if $File::Find::dir =~ m[[\\/]?CVS[\\/]|[\\/]?\.svn[\\/]] |
|
58
|
0 |
6 |
if $File::Find::dir =~ m[[\\/]?blib[\\/]libdoc$] |
|
59
|
0 |
6 |
if $File::Find::dir =~ m[[\\/]?inc] |
|
60
|
0 |
6 |
if $File::Find::dir =~ m[[\\/]?blib[\\/]man\d$] |
|
61
|
0 |
6 |
if $File::Find::name =~ /Build$/i |
|
62
|
3 |
3 |
unless -f $File::Find::name and -r _ |
|
78
|
0 |
3 |
unless (open my $fh, $file) |
|
92
|
1 |
209 |
if /#\s*no\s*Test::Tabs/ |
|
93
|
1 |
209 |
if /#\s*use\s*Test::Tabs/ |
|
95
|
0 |
210 |
if (/#\s*skip\s*Test::Tabs/) |
|
97
|
0 |
0 |
$ok ? : |
|
103
|
3 |
207 |
if /^\s*#/ |
|
104
|
0 |
207 |
if /^\s*=.+/ .. /^\s*=(cut|back|end)/ || eof $fh |
|
105
|
1 |
206 |
if /^\s*(__END__|__DATA__)/ |
|
106
|
2 |
204 |
if $ignoring or $ignore_line |
|
109
|
26 |
178 |
unless length $remaining |
|
111
|
0 |
178 |
if ($indent =~ /\x20/) |
|
116
|
0 |
178 |
if ($remaining =~ /\t/) |
|
121
|
0 |
178 |
if ($remaining =~ /\s$/) |
|
126
|
0 |
178 |
if (length($indent) - $last_indent > 1) |
|
150
|
2 |
1 |
unless $_[0] =~ /\.pm$/i |
|
156
|
0 |
2 |
if $file =~ /\.pl$/i |
|
157
|
0 |
2 |
if $file =~ /\.psgi$/ |
|
158
|
2 |
0 |
if $file =~ /\.t$/ |
|
159
|
0 |
0 |
unless open my $fh, $file |
|
161
|
0 |
0 |
if defined $first and $first =~ /$Test::Tabs::PERL_PATTERN/ |
|
168
|
3 |
0 |
unless $file =~ /::/ |
|
174
|
0 |
0 |
unless -e $candidate and -f _ and -r _ |
|
182
|
1 |
0 |
unless ($Test->has_plan) |
|
192
|
0 |
0 |
wantarray ? : |