Branch Coverage

blib/lib/Parser/Combinators.pm
Criterion Covered Total %
branch 116 236 49.1


line true false branch
58 0 0 if $V
64 0 0 if (ref $p eq 'CODE') { }
0 0 elsif (ref $p eq 'HASH') { }
75 0 0 unless ($st)
80 0 0 if (defined $proc) { }
81 0 0 if (ref $proc eq 'CODE') { }
84 0 0 if $V
105 19 0 if $V
124 8 43 if ($st2 * $st1 == 0) { }
131 4 15 if ($status == 0) { }
0 15 elsif (defined $proc) { }
134 0 0 if (ref $proc eq 'CODE') { }
137 0 0 if $V
150 0 0 if $V
154 0 0 if (ref $p eq 'CODE') { }
0 0 elsif (ref $p eq 'HASH') { }
167 0 0 if ($st2 * $st1 == 0) { }
174 0 0 if ($status == 0) { }
186 0 0 if $V
190 0 0 if ($st1) { }
193 0 0 if (ref $m2 eq 'ARRAY') { }
0 0 elsif (defined $m2) { }
219 2 0 if $V
237 2 1 if ($status)
238 2 0 if $V
239 2 0 if $V
252 0 0 if $V
254 0 0 if ($status) { }
255 0 0 if $V
256 0 0 if $V
259 0 0 if $V
270 9 0 if $V
289 6 3 if ($status) { }
290 6 0 if $V
293 3 0 if $V
303 9 0 if $V
306 6 3 if ($status == 1) { }
309 6 0 if $V
310 6 0 if $V
312 6 0 if ($status == 1) { }
318 6 0 if ($status == 1) { }
320 6 0 if $V
321 6 0 if $V
338 27 2 if $V
339 19 10 if (substr($str, 0, 1) eq $ch) { }
340 18 1 if $V
341 18 1 if $V
353 6 0 if $V
355 6 0 if ($status) { }
357 6 0 if $V
365 6 0 if $V
377 10 3 if $V
378 12 1 if ($str =~ /^(\w+)/) { }
384 10 2 if $V
385 10 2 if $V
388 0 1 if $V
401 3 3 if $V
403 4 2 if ($str =~ /^(\d+)/) { }
410 2 2 if $V
411 2 2 if $V
414 1 1 if $V
425 11 6 if $V
427 14 3 if ($str =~ /^\s*$lit_str\s*/) { }
434 9 5 if $V
435 9 5 if $V
438 2 1 if $V
451 0 1 if $V
452 1 0 if ($str =~ /^(.*)\s*$lit_str\s*/) { }
457 0 1 $m eq '' ? :
459 0 1 if $V
460 0 1 if $V
463 0 0 if $V
476 0 1 if $V
477 1 0 if ($str =~ /^(.*?)\s*$lit_str\s*/) { }
481 0 1 $m eq '' ? :
483 0 1 if $V
484 0 1 if $V
487 0 0 if $V
500 0 0 if $V
502 0 0 if ($status) { }
508 0 0 if $V
509 0 0 if $V
512 0 0 if $V
526 0 0 if $V
528 0 0 if ($status) { }
534 0 0 if $V
535 0 0 if $V
537 0 0 if $V
547 6 1 if $V
549 5 2 if ($st) { }
550 4 1 if $V
552 2 0 if $V
561 0 0 if $V
573 3 3 if $V
583 0 0 if $V
586 0 0 if ($status)
587 0 0 if $V
588 0 0 if $V
600 6 0 if $V
602 6 0 if ($str =~ s/($regex_str)\s*//) { }
607 6 0 if $V
608 6 0 if $V
611 0 0 if $V
620 39 24 if (ref $p eq 'CODE') { }
6 18 elsif (ref $p eq 'ARRAY') { }
18 0 elsif (ref $p eq 'HASH') { }
648 0 0 @{$elt_in_array;} ? :
656 8 33 if (ref $elt eq 'ARRAY' and scalar @{$elt;} > 0) { }
15 18 elsif (ref $elt eq 'HASH') { }
660 6 9 if (ref $v ne 'ARRAY') { }
2 7 elsif (@{$v;} == 1) { }
667 1 15 if (ref $_ eq 'ARRAY') { }
4 11 elsif (ref $_ eq 'HASH') { }
10 1 elsif (defined $_) { }
678 13 3 scalar @{$hlist;} == 1 ? :
682 7 7 if (ref $mlo eq 'ARRAY') { }
685 5 2 scalar @l ? :
695 2 12 is_list_of_objects($_) ? :