Branch Coverage

blib/lib/Salvation/TC/Parser/PP.pm
Criterion Covered Total %
branch 81 96 84.3


line true false branch
43 1 1999 if $char eq ' '
45 51 1948 if ($char eq '[' and $word ne 'Maybe')
47 0 51 if ($$options{'loose'}) { }
55 0 51 if $parameterizable_type eq ''
59 10 1989 if ($char eq '|') { }
53 1936 elsif ($char eq '[') { }
12 1924 elsif ($char eq '(') { }
28 1896 elsif ($char eq '{') { }
61 7 3 if ($word eq '') { }
63 0 0 unless (exists $stack[$#stack]{'maybe'} or exists $stack[$#stack]{'class'} or exists $stack[$#stack]{'signed'} or exists $stack[$#stack]{'length'})
87 53 743 if $subchar eq '['
88 106 690 if $subchar eq ']'
90 53 743 if $cnt == 0
95 0 53 if $substr eq '' or $word eq ''
97 2 51 if ($parameterizable_type eq '') { }
116 4 8 if ($word eq '') { }
118 0 4 unless (exists $stack[$#stack]{'class'})
134 2 237 if $subchar eq '('
135 14 225 if $subchar eq ')'
139 12 227 if $cnt == 0
142 0 12 if $substr eq ''
154 23 5 if ($word ne '')
164 28 53 if $subchar eq '}'
173 6 22 if ($substr =~ /^(0|[1-9][0-9]*),(0|[1-9][0-9]*)$/) { }
7 15 elsif ($substr =~ /^(0|[1-9][0-9]*),$/) { }
15 0 elsif ($substr =~ /^(0|[1-9][0-9]*)$/) { }
204 179 77 if $word ne ''
226 0 12 unless $str =~ /^\s*\(\s*(.+?)\s*\)\s*$/
253 15 30 if ($item_type eq 'type') { }
15 15 elsif ($item_type eq 'name') { }
15 0 elsif ($item_type eq 'delimiter') { }
257 9 144 if exists $opened_parens{$char}
258 9 144 if exists $closed_parens{$char}
260 33 120 if ($char =~ /$delimiter_re/)
266 18 81 if $word_end and $value != 0
269 15 18 if ($word_end)
273 15 0 unless ($subchar =~ /$delimiter_re/)
287 0 15 if $word eq ''
293 3 60 if ($char =~ /$delimiter_re/)
297 3 3 unless ($subchar =~ /$delimiter_re/)
310 0 15 if $word eq ''
316 0 15 if $type eq '' or $name eq ''
328 12 3 if scalar @chars == 0
354 9 6 if ($first_char eq ':') { }
366 8 7 if ($last_char eq '!') { }
1 6 elsif ($last_char eq '?') { }
5 1 elsif ($out{'positional'}) { }
1 0 elsif ($out{'named'}) { }