| line |
true |
false |
branch |
|
66
|
0 |
0 |
if (defined $_[1]) |
|
88
|
0 |
0 |
if ($args{'env'}) |
|
92
|
0 |
0 |
if ($args{'any'}) |
|
118
|
0 |
0 |
unless ($self->errorblank) |
|
123
|
0 |
0 |
unless (defined $file) |
|
129
|
0 |
0 |
unless (-e $file) |
|
136
|
0 |
0 |
unless (-f $file) |
|
143
|
0 |
0 |
unless (-r $file) |
|
150
|
0 |
0 |
if (open THEFILE, '<', $file) |
|
181
|
0 |
0 |
unless ($self->errorblank) |
|
186
|
0 |
0 |
unless (defined $string) |
|
193
|
0 |
0 |
if ($$self{'any'}) |
|
194
|
0 |
0 |
if ($string =~ m[^\#\!/.*perl]) |
|
200
|
0 |
0 |
if ($string =~ m[^\#\!/usr/bin/perl]) |
|
205
|
0 |
0 |
if ($string =~ m[^\#\!/usr/bin/suidperl]) |
|
210
|
0 |
0 |
if ($string =~ m[^\#\!/usr/local/bin/perl]) |
|
215
|
0 |
0 |
if ($string =~ m[^\#\!/usr/local/bin/suidperl]) |
|
220
|
0 |
0 |
if ($$self{'env'}) |
|
221
|
0 |
0 |
if ($string =~ m[^\#!/usr/bin/env.*perl]) |