Branch Coverage

blib/lib/Language/Zcode/Translator/Perl.pm
Criterion Covered Total %
branch 49 60 81.6


line true false branch
320 0 1387 unless my $opcode = $parsed{'opcode'}
332 0 1387 if exists $parsed{'restore_pc'}
342 1696 4230 unless (exists $skip{$key})
344 0 1696 unless defined $parsed{$key}
350 372 2402 if (exists $parsed{$key})
358 355 1032 exists $parsed{'args'} ? :
362 1387 0 if (exists $replace_trans{$opcode}) { }
0 0 elsif (exists $sub_trans{$opcode}) { }
371 1930 354 exists $parsed{lc $1} ? :
385 0 0 unless $unimplemented{$opcode}++
392 91 1296 if exists $parsed{'result'}
400 155 1232 if (exists $parsed{'negate_jump'})
402 2 153 if (exists $parsed{'jump_return'}) { }
405 0 153 unless exists $parsed{'label'}
408 93 62 $parsed{'negate_jump'} ? :
438 27 452 if ($is_bracket) { }
72 380 elsif (/global_var/) { }
349 31 elsif (/locv/) { }
31 0 elsif (/stack/) { }
445 37 312 if ($rval eq '++' or $rval eq '--') { }
458 7 24 if ($rval eq '++' or $rval eq '--') { }
484 161 2357 if (/^g([\da-f]+)$/) { }
672 1685 elsif (/^local([\da-f]+)$/) { }
75 1610 elsif ($_ eq 'sp') { }
1610 0 elsif (/^\d+$/) { }
497 12 63 $is_indirect && !$is_bracket ? :
510 32 2486 if $is_bracket
529 90 248 if ($exp =~ /^\d+$/) { }
530 23 67 $exp & 32768 ? :
586 735 1 if $len > 16