Branch Coverage

blib/lib/Language/Zcode/Parser/Perl.pm
Criterion Covered Total %
branch 48 56 85.7


line true false branch
132 0 2 if ($dict_end != $main_sub)
153 0 68 if ($@)
159 0 1481 unless %command
164 0 1481 if ($pc >= $string_min)
174 229 1252 if (exists $command{'label'} and not exists $command{'jump_return'})
176 0 229 if $l =~ /\D/
177 60 169 if $l > $max_PC
181 375 1106 if (exists $command{'routine'})
183 371 4 if (my $r = packed_address_str($command{'routine'}, 'routine'))
184 59 312 unless exists $prob{$r}
190 8 1473 if (exists $command{'packed_address_of_string'})
193 3 5 if (defined $s and $s < $string_min)
205 55 1426 if ((my $byte = &peek()) == 0) { }
3 1513 elsif ($sub_ender and $max_PC < $pc and not exists $prob{$pc}) { }
213 1 54 if ($pc >= $string_min)
219 11 43 if ($pc % $packed == 1 and $byte == 0)
224 1 53 if ($pc % $packed or &peek() > 15) { }
0 53 elsif ($max_PC > $pc) { }
241 2 1 if ($byte <= 15 and $pc % $packed == 0) { }
251 811 668 if $pc > $max_PC
254 66 1413 if (exists $prob{$pc})
259 7 59 if $prob{$pc} < 4
264 67 1 if (exists $prob{$rtn})
278 15 1613 if $_[0]
287 0 383 unless $address
292 375 8 if ($key eq 'routine') { }
8 0 elsif ($key eq 'packed_address_of_string') { }
299 375 8 if ($address =~ /^\d+$/) { }