| line |
true |
false |
branch |
|
103
|
14 |
0 |
@_ ? :
|
|
105
|
0 |
14 |
unless (-f $file)
|
|
118
|
1 |
13 |
unless ($ok)
|
|
152
|
0 |
1 |
@_ ? :
|
|
158
|
1 |
13 |
unless pod_file_ok($file, $file)
|
|
185
|
0 |
1 |
@_ ? :
|
|
190
|
25 |
22 |
if (-d $file)
|
|
192
|
0 |
25 |
unless opendir DH, $file
|
|
197
|
46 |
0 |
if $_ ne 'CVS'
|
|
201
|
22 |
24 |
if (-f $filename) { }
|
|
209
|
22 |
25 |
if (-f $file)
|
|
210
|
14 |
8 |
if _is_perl($file)
|
|
217
|
1 |
0 |
if -e 'blib'
|
|
224
|
0 |
22 |
if $file =~ /\.PL$/
|
|
225
|
14 |
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/
|