| line |
true |
false |
branch |
|
103
|
1 |
0 |
@_ ? : |
|
105
|
0 |
1 |
unless (-f $file) |
|
118
|
0 |
1 |
unless ($ok) |
|
152
|
0 |
1 |
@_ ? : |
|
158
|
0 |
1 |
unless pod_file_ok($file, $file) |
|
185
|
0 |
1 |
@_ ? : |
|
190
|
17 |
9 |
if (-d $file) |
|
192
|
0 |
17 |
unless opendir DH, $file |
|
197
|
25 |
0 |
if $_ ne 'CVS' |
|
201
|
9 |
16 |
if (-f $filename) { } |
|
209
|
9 |
17 |
if (-f $file) |
|
210
|
1 |
8 |
if _is_perl($file) |
|
217
|
1 |
0 |
if -e 'blib' |
|
224
|
0 |
9 |
if $file =~ /\.PL$/ |
|
225
|
1 |
8 |
if $file =~ /\.p(l|m|od)$/ |
|
226
|
0 |
8 |
if $file =~ /\.t$/ |
|
229
|
0 |
8 |
unless open FH, $file |
|
233
|
0 |
8 |
if defined $first and $first =~ /^#!.*perl/ |