| line |
true |
false |
branch |
| 136 |
0 |
87284 |
if $$self{'saw_bailout'} |
| 139 |
0 |
58 |
if defined $$self{'skip_all'} |
| 145 |
58 |
0 |
$passed ? : |
| 160 |
50334 |
36950 |
if ($point) { } |
| |
0 |
36950 |
elsif ($line =~ /^not\s+$/) { } |
| |
58 |
36892 |
elsif ($self->_is_header($line)) { } |
| |
0 |
36892 |
elsif ($self->_is_bail_out($line, \$$self{'bailout_reason'})) { } |
| |
36892 |
0 |
elsif (my $diagnostics = $self->_is_diagnostic_line($line)) { } |
| 164 |
0 |
50334 |
unless $point->number |
| 170 |
0 |
50334 |
if ($$self{'lone_not_line'} and $$self{'lone_not_line'} == $$self{'line'} - 1) |
| 174 |
0 |
50334 |
if ($$self{'todo'}{$point->number}) |
| 178 |
0 |
50334 |
if ($point->is_todo) { } |
| |
556 |
49778 |
elsif ($point->is_skip) { } |
| 180 |
0 |
0 |
if $point->ok |
| 186 |
50334 |
0 |
if $point->pass |
| 188 |
0 |
50334 |
if ($point->number > 100000 and $point->number > ($$self{'max'} || 100000)) { } |
| 189 |
0 |
0 |
if (not $$self{'too_many_tests'}++) |
| 234 |
87284 |
0 |
if $$self{'callback'} |
| 236 |
50334 |
36950 |
if $point |
| 242 |
0 |
36892 |
if index($line, '# Looks like you failed') == 0 |
| 274 |
0 |
58 |
unless (-e $file) |
| 279 |
0 |
58 |
unless (-r $file) |
| 285 |
0 |
58 |
if ($Test::Harness::Debug) |
| 293 |
0 |
58 |
unless (open FILE, "$line|") |
| 301 |
0 |
58 |
if ($? and $$self{'_is_vms'}) { } |
| 307 |
0 |
58 |
unless $? == 0 |
| 336 |
0 |
58 |
if $file =~ /\s/ and not $file =~ /^".*"$/ |
| 360 |
0 |
116 |
if defined $ENV{'HARNESS_PERL'} |
| 361 |
0 |
116 |
if $$self{'_is_win32'} and $^X =~ m[[^\w\./\\]] |
| 379 |
0 |
58 |
unless open TEST, $file |
| 381 |
0 |
58 |
unless close TEST |
| 384 |
0 |
58 |
if $taint |
| 389 |
0 |
58 |
if ($taint or $$self{'_is_macos'}) |
| 398 |
0 |
0 |
if /\s/ || $$self{'_is_vms'} and not /^".*"$/ |
| 417 |
58 |
58 |
unless defined $switch |
| 420 |
58 |
0 |
if $switch ne '' |
| 454 |
58 |
0 |
unless @inc |
| 456 |
0 |
58 |
if ($$self{'_is_vms'}) { } |
| |
0 |
58 |
elsif ($$self{'_is_win32'}) { } |
| 502 |
59 |
0 |
unless $$self{'_is_vms'} |
| 504 |
0 |
0 |
if (defined $$self{'_old5lib'}) |
| 525 |
0 |
0 |
if ($line =~ /^\s*\#(.*)/) { } |
| 555 |
58 |
36892 |
if (my($max, $extra) = $line =~ /^1\.\.(\d+)(.*)/) { } |
| 559 |
58 |
0 |
if (defined $extra) |
| 562 |
0 |
58 |
if $todo |
| 564 |
0 |
58 |
if ($$self{'max'} == 0) |
| 565 |
0 |
0 |
unless defined $skip and $skip =~ /^Skip/i |
| 590 |
0 |
36892 |
if ($line =~ /^Bail out!\s*(.*)/i) { } |
| 591 |
0 |
0 |
if $1 |
| 681 |
3786 |
147216 |
if defined $_[0] |