Branch Coverage

blib/lib/HOI/Match.pm
Criterion Covered Total %
branch 25 28 89.2


line true false branch
236 66 24 if (not $lexer->eoi) { }
252 0 208 if $#{$ast;} ne $#{$args;}
257 52 12 if (substr($sym, 0, 1) eq q['] or substr($sym, 0, 1) eq '"') { }
259 2 50 $sym eq $quote . $val . $quote ? :
261 2 10 $sym == $val ? :
267 104 12 substr($sym, 0, 1) ne '_' ? :
272 20 8 if ($#{$l;} >= 0 and $#{$val;} >= 0) { }
4 4 elsif ($#{$l;} < 0 and $#{$val;} < 0) { }
285 0 12 unless defined $$val{'type'} and defined $$val{'val'}
287 0 12 if $$adt[0] ne $$val{'type'}
288 2 10 if $#{$$adt[1];} != $#{$$val{'val'};}
295 154 66 if ($status) { }
312 24 134 unless defined $compiled_patterns{$pattern_sig}
315 92 66 if ($status)