Branch Coverage

blib/lib/Tree/Term.pm
Criterion Covered Total %
branch 84 106 79.2


line true false branch
31 144 126 @operands ? :
77 216 3483 if ref $s
210 0 3 if $@
124 9 if (index('abdps', &type($stack->[-1])) > -1)
125 7 if (index('bst', &type($stack->[-1])) > -1)
101 15 if (index('t', &type($stack->[-1])) > -1)
221 0 9 if $@
68 76 if not ref $item
49 0 if not ref $item
188 30 if not ref $item
86 0 if not ref $item
0 0 if not ref $item
11 0 if not ref $item
172 12 if not ref $item
139 12 if not ref $item
82 0 if not ref $item
234 163 159 if (@$stack >= 3)
237 71 92 if (&test_t($l))
238 60 11 if (&test_t($r))
239 49 11 $priority == 1 ? :
53 7 if ($priority == 1 ? &test_ads($d) : &test_d($d))
248 64 46 if (&test_b($l))
249 40 24 if (&test_B($r))
250 39 1 if (&test_t($d))
259 108 122 if (@$stack >= 2)
261 67 41 if (&test_b($l))
262 5 62 if (&test_B($r))
269 13 90 if (&test_s($l))
270 11 2 if (&test_B($r))
276 11 81 if (&test_p($l))
277 11 0 if (&test_t($r))
338 12 24 unless (&test_t($stack->[-1]))
365 86 0 if (@$expression) { }
369 4 82 unless &test_bpsv($e)
373 34 48 if (&test_v($e)) { }
378 7 41 if (&test_s($e))
393 1 50 if (index($last, &type($expression->[-1])) == -1)
404 1 49 if (@$stack != 1)
427 37 49 if $r
438 4 0 if (my $l = $LexicalCodes->{$a})
439 3 1 if index($l->next, $b) > -1
460 0 241 unless $e
461 141 100 $o ? :
141 100 if (my(@o) = $o ? grep({ref $_;} @$o) : ()) { }
1447 0 1 if eval "eof(${p}::DATA)"
1449 0 1 if $@
1450 0 39 unless index($@, $parse) > -1
0 39 unless index($@, $syntax) > -1
0 0 if -e $log
0 39 if ($e)
0 45 if -e $log
0 45 unless $r
1451 0 1 if $@