| line |
true |
false |
branch |
|
77
|
86 |
227 |
unless $meta->{'is_file'} |
|
80
|
223 |
4 |
if (my $shebang = $file->{'shebang'}) |
|
81
|
60 |
163 |
if $shebang =~ /^#!.*\bperl/ |
|
90
|
1 |
3 |
if $file->{'lc_ext'} eq '.t' |
|
91
|
1 |
2 |
if $file->{'lc_ext'} eq '.pl' |
|
93
|
1 |
1 |
if $file->{'dir'} =~ /^t\b/ |
|
142
|
0 |
212 |
unless $meta->{'is_file'} |
|
158
|
248 |
25 |
unless $_ eq '-T' |
|
159
|
27 |
338 |
$has_taint ? : |
|
168
|
15 |
197 |
if ($class->_has_taint_switch($switches)) |
|
169
|
15 |
0 |
defined $ENV{'PERL5LIB'} ? : |
|
174
|
1 |
14 |
defined $ENV{'PERL5OPT'} ? : |
|
199
|
529 |
89 |
if (not /$path_re/ and / ^ ['"]? -I ['"]? (.*?) ['"]? $ /x) { } |
|
214
|
141 |
71 |
if (@{$libs;} and not $class->_has_taint_switch($switches)) |
|
226
|
207 |
0 |
if (defined $previous) { } |
|
240
|
0 |
212 |
unless my(@command) = $class->_get_command_for_switches($source, $switches) |
|
263
|
2 |
210 |
unless $source->test_args |
|
292
|
197 |
15 |
unless defined $shebang and $shebang =~ /^#!.*\bperl.*\s-\w*([Tt]+)/ |
|
300
|
23 |
189 |
unless $source->switches |
|
302
|
0 |
212 |
unless defined $shebang |
|
305
|
15 |
197 |
if defined $taint |
|
326
|
0 |
212 |
if defined $ENV{'HARNESS_PERL'} |
|
327
|
0 |
212 |
if &IS_WIN32() and $^X =~ m([^\w\./\\]) |