| line |
true |
false |
branch |
|
46
|
0 |
9 |
unless $_[0]->is_parsed |
|
55
|
1 |
9 |
if $$testline{'result'} == 0 and not $$testline{'todo'} |
|
58
|
1 |
4 |
$$self{'result'}{'bailout'} ? : |
|
60
|
5 |
0 |
defined $$self{'result'}{'plan'}{'number'} ? : |
|
62
|
4 |
1 |
$is_good_plan && $ran_tests != 0 && $$self{'result'}{'plan'}{'number'} == $ran_tests ? : |
|
85
|
0 |
5 |
defined $$self{'result'}{'plan'}{'skip_all'} ? : |
|
|
0 |
5 |
$$self{'result'}{'plan'}{'skip_all'} ? : |
|
|
1 |
4 |
defined $$self{'result'}{'bailout'} ? : |
|
|
1 |
4 |
$$self{'result'}{'bailout'} ? : |
|
113
|
23 |
3 |
if ($$self{'tap_ref'}) |
|
114
|
0 |
23 |
if ($$self{'tap_file'} or $$self{'tap_tree'}) |
|
118
|
0 |
23 |
if (ref $$self{'tap_ref'} ne 'SCALAR') |
|
125
|
2 |
1 |
if ($$self{'tap_file'}) |
|
126
|
0 |
2 |
if ($$self{'tap_ref'} or $$self{'tap_tree'}) |
|
130
|
0 |
2 |
unless (-e -f -r -T $$self{'tap_file'}) |
|
137
|
0 |
1 |
if ($$self{'tap_tree'}) |
|
138
|
0 |
0 |
if ($$self{'tap_file'} or $$self{'tap_ref'}) |
|
142
|
0 |
0 |
if (ref $$self{'tap_tree'} ne 'HASH') |
|
148
|
0 |
0 |
unless (defined $$self{'tap_tree'}{$key}) |
|
162
|
0 |
25 |
if ($$self{'tap_tree'}) |
|
174
|
0 |
25 |
if ($$self{'is_parsed'}) |
|
178
|
2 |
23 |
$$self{'tap_file'} ? : |
|
203
|
3 |
135 |
$$self{'utf8'} ? : |
|
207
|
0 |
138 |
if $line =~ /!\s*#/ |
|
213
|
3 |
135 |
if ($line =~ /^Bail out!\s+(.*)/) |
|
230
|
37 |
98 |
if ($line =~ /^(\s*)1\.\.\d+(\s#.*)?$/) |
|
232
|
13 |
24 |
if ($1) { } |
|
235
|
0 |
24 |
if ($$result{'plan'}{'number'}) |
|
246
|
71 |
27 |
if ($line =~ /^(\s*)(not )?ok/) |
|
248
|
22 |
49 |
if ($1) { } |
|
263
|
25 |
0 |
unless ($$result{'version'}) |
|
267
|
1 |
24 |
unless ($$result{'plan'}) |
|
289
|
2 |
35 |
if $$plan{'number'} == 0 |
|
291
|
2 |
35 |
if ($2) |
|
319
|
8 |
62 |
$1 ? : |
|
320
|
68 |
2 |
if $2 |
|
324
|
68 |
2 |
if ($msg and $msg =~ /^\s?(-\s.+?)?\s*(#\s.+?)?\s*$/) |
|
325
|
64 |
4 |
if ($1) |
|
330
|
5 |
63 |
if ($2) |
|
333
|
4 |
1 |
if $$testline{'directive'} =~ /TODO/i |
|
334
|
2 |
3 |
if $$testline{'directive'} =~ /skip/i |
|
346
|
0 |
70 |
unless $subtest_ref |
|
347
|
57 |
13 |
unless @{$subtest_ref;} |
|
372
|
14 |
34 |
if ($indent_current > $indent) |
|
378
|
13 |
21 |
if ($line =~ /^1\.\.\d+/) |
|
384
|
21 |
0 |
if ($line =~ /^(not )?ok/) |