| line |
true |
false |
branch |
|
150
|
0 |
2 |
unless exists $ENV{'PERL_USE_UNSAFE_INC'} |
|
163
|
1 |
1 |
if $parser->has_problems |
|
166
|
1 |
1 |
if $num_bad |
|
184
|
17 |
2 |
$end == $pos + 1 ? : |
|
199
|
2 |
51 |
if ($opt =~ /^ -I (.*) $ /x) { } |
|
200
|
1 |
1 |
length $1 ? : |
|
211
|
0 |
3 |
!($Verbose =~ /\d/) ? : |
|
|
3 |
35 |
$Verbose ? : |
|
224
|
0 |
38 |
if exists $sub_args->{'out'} |
|
227
|
1 |
37 |
if (defined(my $env_opt = $ENV{'HARNESS_OPTIONS'})) |
|
229
|
1 |
1 |
if ($opt =~ /^j(\d*)$/) { } |
|
|
1 |
0 |
elsif ($opt eq 'c') { } |
|
|
0 |
0 |
elsif ($opt =~ /^f(.*)$/) { } |
|
|
0 |
0 |
elsif ($opt =~ /^a(.*)$/) { } |
|
259
|
0 |
62 |
if (do {
&IS_WIN32()
}) |
|
277
|
112 |
723 |
if $seen{$dir}++ |
|
279
|
300 |
423 |
if ($dir eq ($default_inc[0] || '')) { } |
|
298
|
57 |
5 |
if @inc |
|
315
|
2 |
143 |
if defined $prev and $next <= $prev |
|
350
|
4 |
48 |
if ($plan->directive eq 'SKIP') |
|
358
|
0 |
33 |
unless exists $ENV{'PERL_USE_UNSAFE_INC'} |
|
386
|
48 |
10 |
unless $wstat |
|
391
|
2 |
56 |
$passed > $actual_passed ? : |
|
395
|
25 |
33 |
if (@failed or $estat or @errors) { } |
|
398
|
19 |
6 |
$planned ? : |
|
399
|
23 |
2 |
$ok_seq ? : |
|
420
|
2 |
56 |
if (@todo) |