Branch Coverage

blib/lib/Decl/DefaultParsers.pm
Criterion Covered Total %
branch 73 80 91.2


line true false branch
78 0 977 unless (ref $node)
79 0 0 unless defined $node
83 976 1 unless $input
88 975 2 if (defined $parse_result and car $parse_result eq 'line')
90 88 278 if (car $piece eq 'name') { }
165 113 elsif (car $piece eq 'parmlist') { }
6 107 elsif (car $piece eq 'optionlist') { }
1 106 elsif (car $piece eq 'parser') { }
98 188 12 if (car $value eq 'parmval') { }
115 1 12 if (car $value eq 'parmval') { }
160 0 772 unless popcar $parse_result eq 'body'
174 0 965 if ($line =~ /^(\s+)/) { }
180 18 947 if ($curtext)
201 988 3 unless /^\s*#/
204 189 230 if ($_[0] =~ /^(\s+)/) { }
217 46 1185 if $type
218 812 419 if (not $tag) { }
219 25 787 if (is_blank_or_comment($line)) { }
227 248 171 if (not $indent) { }
229 173 75 if ($indent <= $lineindent) { }
6 69 elsif (is_blank($line)) { }
230 16 157 if (is_blank($line)) { }
236 0 157 if (is_blank_or_comment($line)) { }
241 3 154 if ($blanks)
257 1 68 if ($blanks)
266 65 106 if (line_indentation($line) < $indent) { }
15 91 elsif (is_blank($line)) { }
267 18 47 if (is_blank($line)) { }
25 22 elsif ($line =~ /^\s*}/) { }
1 21 elsif (is_blank_or_comment($line)) { }
280 14 7 if ($blanks)
293 8 83 if ($blanks)
304 767 5 if ($curtext)
305 761 6 if ($tag) { }
313 12 760 if ($blanks)
365 17 322 if (defined $rest) { }
367 14 3 if ($type eq 'name') { }
1 2 elsif ($type eq 'attribute') { }
1 1 elsif ($type eq 'match') { }
1 0 elsif ($type eq 'offset') { }