Branch Coverage

blib/lib/Data/Integer.pm
Criterion Covered Total %
branch 180 194 92.7


line true false branch
388 2 4666 unless int $tval == $tval and $tval >= min_nint and $tval <= max_nint
391 1587 3079 ($tval = $_[0]) < 0 ? :
396 7 3922 unless int $tval == $tval and $tval >= min_sint and $tval <= max_sint
401 0 2406 if $tval >= 0 and do { use integer; $val < 0 }
407 6 4128 unless int $tval == $tval and $tval >= min_uint and $tval <= max_uint
461 1 7 uint($_[0]) == 0 ? :
475 14 7 if ((my $tval = $a) >= 0) { }
1 6 elsif (do { use integer; $a == min_sint }) { }
488 1 7 if $a == min_sint
489 3 4 $a < 0 ? :
507 70 126 if ((my $ta = $a) < 0) { }
508 25 45 if ((my $tb = $b) < 0) { }
515 45 81 if ((my $tb = $b) < 0) { }
544 70 126 if ((my $ta = $a) < 0) { }
545 25 45 if ((my $tb = $b) < 0) { }
547 10 15 $a < $b ? :
552 45 81 if ((my $tb = $b) < 0) { }
556 36 45 ($a ^ min_sint) < ($b ^ min_sint) ? :
564 55 66 $a < $b ? :
570 36 45 ($a ^ min_sint) < ($b ^ min_sint) ? :
586 70 126 if ((my $ta = $a) < 0) { }
587 25 45 if ((my $tb = $b) < 0) { }
589 10 15 $a < $b ? :
594 45 81 if ((my $tb = $b) < 0) { }
598 36 45 ($a ^ min_sint) < ($b ^ min_sint) ? :
606 55 66 $a < $b ? :
612 36 45 ($a ^ min_sint) < ($b ^ min_sint) ? :
627 5 7 if ((my $ta = $a) <= 0) { }
632 3 4 if $neg >= 0
640 1 7 if $a == min_sint
646 7 1 unless uint($_[0]) == 0
662 89 163 if ((my $ta = $a) < 0) { }
663 34 55 if ((my $tb = $b) < 0) { }
666 16 18 if $r > $a
671 7 48 if $r < $a
675 55 108 if ((my $tb = $b) < 0) { }
678 7 48 if $r < $b
683 40 68 if ($r ^ min_sint) < ($a ^ min_sint)
694 68 80 $b < 0 ? :
36 112 if $b < 0 ? $r > $a : $r < $a
702 40 68 if ($r ^ min_sint) < ($a ^ min_sint)
718 63 171 if ((my $ta = $a) < 0) { }
106 65 elsif (not $a & min_sint) { }
719 31 32 if ((my $tb = $b) < 0) { }
22 10 elsif (not $b & min_sint) { }
725 9 13 if $r >= 0
731 35 71 if ((my $tb = $b) < 0) { }
47 24 elsif (not $b & min_sint) { }
739 10 14 if $r >= 0
743 16 49 if ((my $tb = $b) < 0) { }
31 18 elsif (not $b & min_sint) { }
746 9 7 if $r >= 0
761 59 76 $b > 0 ? :
23 112 if $b > 0 ? $r > $a : $r < $a
769 52 68 if ($r ^ min_sint) > ($a ^ min_sint)
805 0 21 if $dist >= 64
813 0 21 if $dist >= 64
835 0 17 if $dist >= 64
843 0 17 if $dist >= 64
862 0 21 if $dist >= 64
864 4 17 if $dist == 0
873 0 21 if $dist >= 64
875 4 17 if $dist == 0
893 0 21 if $dist >= 64
895 4 17 if $dist == 0
904 0 21 if $dist >= 64
906 4 17 if $dist == 0
1164 0 196 unless $cin == 0 or $cin == 1
1166 20 58 $r > $a ? :
42 76 $r < $a ? :
78 118 $b < 0 ? :
1173 0 172 unless $cin == 0 or $cin == 1
1175 68 104 ($r ^ min_sint) < ($a ^ min_sint) ? :
1176 86 86 if ($cin)
1178 8 78 if $r == 0
1199 0 196 unless $cin == 0 or $cin == 1
1201 20 58 $r < $a ? :
42 76 $r > $a ? :
78 118 $b < 0 ? :
1208 0 172 unless $cin == 0 or $cin == 1
1210 66 106 ($r ^ min_sint) > ($a ^ min_sint) ? :
1211 86 86 if ($cin)
1212 10 76 if $r == 0
1232 39 59 if ($b < 0) { }
1233 12 27 if $r > $a
1235 18 41 if $r < $a
1244 34 52 if ($r ^ min_sint) < ($a ^ min_sint)
1263 50 42 if ($b >= 0) { }
1264 9 41 if $r > $a
1266 11 31 if $r < $a
1274 46 43 ($a ^ min_sint) <= ($b ^ min_sint) ? :
1307 3 6 $sgn == -1 ? :
1338 0 103 unless $str =~ /\A([-+]?)(?:0x)?([0-9a-f]+)\z/i
1343 3 100 if $digits =~ /\G\z/cg
1347 69 31 if $bits_to_go >= 64 or $bits_to_go + 4 > 64 and max_uint >> $bits_to_go < $value
1354 15 16 if ($sign eq '-') { }
1356 8 7 if $value >= 0