Branch Coverage

blib/lib/Language/Befunge/Ops.pm
Criterion Covered Total %
branch 93 94 98.9


line true false branch
141 2 84 if $res > 2147483647
142 2 82 if $res < -2147483648
162 2 40 if $res > 2147483647
163 2 38 if $res < -2147483648
183 2 71 if $res > 2147483647
184 2 69 if $res < -2147483648
201 2 5 $v2 == 0 ? :
220 2 3 $v2 == 0 ? :
371 17 4 $ip->spop ? :
388 2 4 $v1 > $v2 ? :
401 46 24 $val ? :
402 46 24 $val ? :
415 5 4 $val ? :
416 5 4 $val ? :
429 1 1 $val ? :
430 1 1 $val ? :
443 2 4 if $v1 == $v2
446 2 2 if ($v1 < $v2) { }
526 2 4 if $count == 0
527 2 2 if $count < 0
529 2 2 if $count < 0
548 1 12 if $char eq 'k'
549 2 10 if $kcounter == 0
550 1 9 if $kcounter < 0
672 2 10 if $ip->ss_count <= 0
691 1 10 if $ip->ss_count <= 0
761 1 211 unless print "$val "
776 1 149 unless print $chr
790 53 6 if defined $char
793 12 47 if (defined $overflow and length $overflow or not defined $char)
796 6 6 unless defined $nb
797 1 5 if $nb < -2147483648
798 2 4 if $nb > 2147483647
816 1 2 unless defined $in
838 1 2 unless open F, '<', $path
847 1 1 $flag % 2 ? :
874 1 2 if ($flag & 1)
880 1 2 unless open F, '>', $path
897 1 1 $? == -1 ? :
1006 240 360 ref $_ eq 'ARRAY' ? :
1009 3 27 if ($val <= 0) { }
26 1 elsif ($val <= scalar @cells) { }
1072 1 69 if $val < 0
1089 1 17 if ($@) { }
1113 1 15 if $val < 0
1130 1 8 if ($@) { }
1153 13 0 if (scalar @$stack) { }