| line |
true |
false |
branch |
|
136
|
0 |
64823 |
if $self->{'saw_bailout'} |
|
139
|
1 |
57 |
if defined $self->{'skip_all'} |
|
145
|
58 |
0 |
$passed ? : |
|
160
|
48543 |
16280 |
if ($point) { } |
|
|
0 |
16280 |
elsif ($line =~ /^not\s+$/) { } |
|
|
58 |
16222 |
elsif ($self->_is_header($line)) { } |
|
|
0 |
16222 |
elsif ($self->_is_bail_out($line, \$self->{'bailout_reason'})) { } |
|
|
16222 |
0 |
elsif (my $diagnostics = $self->_is_diagnostic_line($line)) { } |
|
164
|
0 |
48543 |
unless $point->number |
|
170
|
0 |
48543 |
if ($self->{'lone_not_line'} and $self->{'lone_not_line'} == $self->{'line'} - 1) |
|
174
|
0 |
48543 |
if ($self->{'todo'}{$point->number}) |
|
178
|
0 |
48543 |
if ($point->is_todo) { } |
|
|
560 |
47983 |
elsif ($point->is_skip) { } |
|
180
|
0 |
0 |
if $point->ok |
|
186
|
48543 |
0 |
if $point->pass |
|
188
|
0 |
48543 |
if ($point->number > 100000 and $point->number > ($self->{'max'} || 100000)) { } |
|
189
|
0 |
0 |
unless ($self->{'too_many_tests'}++) |
|
234
|
64823 |
0 |
if $self->{'callback'} |
|
236
|
48543 |
16280 |
if $point |
|
242
|
0 |
16222 |
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 |
16222 |
if (my($max, $extra) = $line =~ /^1\.\.(\d+)(.*)/) { } |
|
559
|
58 |
0 |
if (defined $extra) |
|
562
|
0 |
58 |
if $todo |
|
564
|
1 |
57 |
if ($self->{'max'} == 0) |
|
565
|
0 |
1 |
unless defined $skip and $skip =~ /^Skip/i |
|
590
|
0 |
16222 |
if ($line =~ /^Bail out!\s*(.*)/i) { } |
|
591
|
0 |
0 |
if $1 |
|
681
|
21910 |
123719 |
if defined $_[0] |