| line |
true |
false |
branch |
|
132
|
1 |
238 |
if $$self{'saw_bailout'} |
|
135
|
4 |
37 |
if defined $$self{'skip_all'} |
|
144
|
25 |
16 |
$passed ? : |
|
159
|
170 |
69 |
if ($point) { } |
|
|
2 |
67 |
elsif ($line =~ /^not\s+$/) { } |
|
|
38 |
29 |
elsif ($self->_is_header($line)) { } |
|
|
1 |
28 |
elsif ($self->_is_bail_out($line, \$$self{'bailout_reason'})) { } |
|
|
28 |
0 |
elsif (my $diagnostics = $self->_is_diagnostic_line($line)) { } |
|
163
|
7 |
163 |
unless $point->number |
|
169
|
2 |
168 |
if ($$self{'lone_not_line'} and $$self{'lone_not_line'} == $$self{'line'} - 1) |
|
173
|
16 |
154 |
if ($$self{'todo'}{$point->number}) |
|
177
|
18 |
152 |
if ($point->is_todo) { } |
|
|
6 |
146 |
elsif ($point->is_skip) { } |
|
179
|
9 |
9 |
if $point->ok |
|
185
|
157 |
13 |
if $point->pass |
|
187
|
2 |
168 |
if ($point->number > 100000 and $point->number > ($$self{'max'} || 100000)) { } |
|
188
|
1 |
1 |
unless ($$self{'too_many_tests'}++) |
|
234
|
124 |
115 |
if $self->callback |
|
236
|
170 |
69 |
if $point |
|
242
|
0 |
28 |
if index($line, '# Looks like you failed') == 0 |
|
274
|
1 |
41 |
unless (-e $file) |
|
279
|
0 |
41 |
unless (-r $file) |
|
285
|
0 |
41 |
if ($Test::Harness::Debug) |
|
293
|
0 |
41 |
unless (open FILE, "$line|") |
|
302
|
0 |
41 |
if ($? and $$self{'_is_vms'}) { } |
|
308
|
3 |
38 |
unless $? == 0 |
|
337
|
0 |
41 |
if $file =~ /\s/ and not $file =~ /^".*"$/ |
|
361
|
0 |
84 |
if defined $ENV{'HARNESS_PERL'} |
|
362
|
0 |
84 |
if $$self{'_is_win32'} and $^X =~ m([^\w\./\\]) |
|
380
|
0 |
41 |
unless open TEST, $file |
|
382
|
0 |
41 |
unless close TEST |
|
385
|
2 |
39 |
if $taint |
|
390
|
2 |
39 |
if ($taint or $$self{'_is_macos'}) |
|
399
|
0 |
22 |
if /\s/ || $$self{'_is_vms'} and not /^".*"$/ |
|
418
|
19 |
63 |
unless defined $switch |
|
421
|
63 |
0 |
if $switch ne '' |
|
455
|
43 |
0 |
unless @inc |
|
457
|
0 |
43 |
if ($$self{'_is_vms'}) { } |
|
|
0 |
43 |
elsif ($$self{'_is_win32'}) { } |
|
503
|
41 |
0 |
unless $$self{'_is_vms'} |
|
505
|
0 |
0 |
if (defined $$self{'_old5lib'}) |
|
526
|
3 |
2 |
if ($line =~ /^\s*\#(.*)/) { } |
|
556
|
47 |
35 |
if (my($max, $extra) = $line =~ /^1\.\.(\d+)(.*)/) { } |
|
560
|
47 |
0 |
if (defined $extra) |
|
563
|
8 |
39 |
if $todo |
|
565
|
7 |
40 |
if ($$self{'max'} == 0) |
|
566
|
3 |
4 |
unless defined $skip and $skip =~ /^Skip/i |
|
591
|
5 |
32 |
if ($line =~ /^Bail out!\s*(.*)/i) { } |
|
592
|
3 |
2 |
if $1 |
|
637
|
79 |
425 |
if defined $_[0] |