Branch Coverage

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


line true false branch
91 2 84 if $res > 2147483647
92 2 82 if $res < -2147483648
109 2 40 if $res > 2147483647
110 2 38 if $res < -2147483648
127 2 71 if $res > 2147483647
128 2 69 if $res < -2147483648
142 2 5 $v2 == 0 ? :
158 2 3 $v2 == 0 ? :
249 17 4 $ip->spop ? :
263 2 4 $v1 > $v2 ? :
273 46 24 $val ? :
274 46 24 $val ? :
284 5 4 $val ? :
285 5 4 $val ? :
295 1 1 $val ? :
296 1 1 $val ? :
306 2 4 if $v1 == $v2
309 2 2 if ($v1 < $v2) { }
362 2 4 if $count == 0
363 2 2 if $count < 0
365 2 2 if $count < 0
381 1 12 if $char eq 'k'
382 2 10 if $kcounter == 0
383 1 9 if $kcounter < 0
465 2 10 if $ip->ss_count <= 0
481 1 10 if $ip->ss_count <= 0
526 1 211 unless print "$val "
538 1 149 unless print $chr
549 53 6 if defined $char
552 12 47 if (defined $overflow and length $overflow or not defined $char)
555 6 6 unless defined $nb
556 1 5 if $nb < -2147483648
557 2 4 if $nb > 2147483647
572 1 2 unless defined $in
591 1 2 unless open F, '<', $path
600 1 1 $flag % 2 ? :
624 1 2 if ($flag & 1)
630 1 2 unless open F, '>', $path
644 1 1 $? == -1 ? :
742 240 360 ref $_ eq 'ARRAY' ? :
745 3 27 if ($val <= 0) { }
26 1 elsif ($val <= scalar @cells) { }
786 1 69 if $val < 0
803 1 17 if ($@) { }
824 1 15 if $val < 0
841 1 8 if ($@) { }
861 13 0 if (scalar @$stack) { }