Branch Coverage

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


line true false branch
56 0 0 if $V
62 0 0 if (ref $p eq 'CODE') { }
0 0 elsif (ref $p eq 'HASH') { }
73 0 0 unless ($st)
78 0 0 if (defined $proc) { }
79 0 0 if (ref $proc eq 'CODE') { }
82 0 0 if $V
103 19 0 if $V
107 8 43 if ($st2 * $st1 == 0) { }
114 4 15 if ($status == 0) { }
0 15 elsif (defined $proc) { }
117 0 0 if (ref $proc eq 'CODE') { }
120 0 0 if $V
133 0 0 if $V
137 0 0 if (ref $p eq 'CODE') { }
0 0 elsif (ref $p eq 'HASH') { }
150 0 0 if ($st2 * $st1 == 0) { }
157 0 0 if ($status == 0) { }
169 0 0 if $V
173 0 0 if ($st1) { }
176 0 0 if (ref $m2 eq 'ARRAY') { }
0 0 elsif (defined $m2) { }
202 2 0 if $V
206 2 1 if ($status)
207 2 0 if $V
208 2 0 if $V
221 0 0 if $V
223 0 0 if ($status) { }
224 0 0 if $V
225 0 0 if $V
228 0 0 if $V
239 9 0 if $V
241 6 3 if ($status) { }
242 6 0 if $V
245 3 0 if $V
255 9 0 if $V
258 6 3 if ($status == 1) { }
261 6 0 if $V
262 6 0 if $V
264 6 0 if ($status == 1) { }
270 6 0 if ($status == 1) { }
272 6 0 if $V
273 6 0 if $V
290 27 2 if $V
291 19 10 if (substr($str, 0, 1) eq $ch) { }
292 18 1 if $V
293 18 1 if $V
305 6 0 if $V
307 6 0 if ($status) { }
309 6 0 if $V
317 6 0 if $V
329 10 3 if $V
330 12 1 if ($str =~ /^(\w+)/) { }
336 10 2 if $V
337 10 2 if $V
340 0 1 if $V
353 3 3 if $V
355 4 2 if ($str =~ /^(\d+)/) { }
362 2 2 if $V
363 2 2 if $V
366 1 1 if $V
377 11 6 if $V
379 14 3 if ($str =~ /^\s*$lit_str\s*/) { }
386 9 5 if $V
387 9 5 if $V
390 2 1 if $V
403 0 1 if $V
404 1 0 if ($str =~ /^(.*)\s*$lit_str\s*/) { }
409 0 1 $m eq '' ? :
411 0 1 if $V
412 0 1 if $V
415 0 0 if $V
428 0 1 if $V
429 1 0 if ($str =~ /^(.*?)\s*$lit_str\s*/) { }
433 0 1 $m eq '' ? :
435 0 1 if $V
436 0 1 if $V
439 0 0 if $V
452 0 0 if $V
454 0 0 if ($status) { }
460 0 0 if $V
461 0 0 if $V
464 0 0 if $V
478 0 0 if $V
480 0 0 if ($status) { }
486 0 0 if $V
487 0 0 if $V
489 0 0 if $V
499 6 1 if $V
501 5 2 if ($st) { }
502 4 1 if $V
504 2 0 if $V
513 0 0 if $V
525 3 3 if $V
535 0 0 if $V
538 0 0 if ($status)
539 0 0 if $V
540 0 0 if $V
552 6 0 if $V
554 6 0 if ($str =~ s/($regex_str)\s*//) { }
559 6 0 if $V
560 6 0 if $V
563 0 0 if $V
572 39 24 if (ref $p eq 'CODE') { }
6 18 elsif (ref $p eq 'ARRAY') { }
18 0 elsif (ref $p eq 'HASH') { }
600 0 0 @{$elt_in_array;} ? :
608 8 33 if (ref $elt eq 'ARRAY' and scalar @{$elt;} > 0) { }
15 18 elsif (ref $elt eq 'HASH') { }
612 6 9 if (ref $v ne 'ARRAY') { }
2 7 elsif (@{$v;} == 1) { }
619 1 15 if (ref $_ eq 'ARRAY') { }
4 11 elsif (ref $_ eq 'HASH') { }
10 1 elsif (defined $_) { }
630 13 3 scalar @{$hlist;} == 1 ? :
634 7 7 if (ref $mlo eq 'ARRAY') { }
637 5 2 scalar @l ? :
647 2 12 is_list_of_objects($_) ? :