Branch Coverage

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


line true false branch
387 2 4666 unless int $tval == $tval and $tval >= min_nint and $tval <= max_nint
390 1587 3079 ($tval = $_[0]) < 0 ? :
395 7 3922 unless int $tval == $tval and $tval >= min_sint and $tval <= max_sint
400 0 2406 if $tval >= 0 and do { use integer; $val < 0 }
406 6 4128 unless int $tval == $tval and $tval >= min_uint and $tval <= max_uint
460 1 7 uint($_[0]) == 0 ? :
474 14 7 if ((my $tval = $a) >= 0) { }
1 6 elsif (do { use integer; $a == min_sint }) { }
487 1 7 if $a == min_sint
488 3 4 $a < 0 ? :
506 70 126 if ((my $ta = $a) < 0) { }
507 25 45 if ((my $tb = $b) < 0) { }
514 45 81 if ((my $tb = $b) < 0) { }
543 70 126 if ((my $ta = $a) < 0) { }
544 25 45 if ((my $tb = $b) < 0) { }
546 10 15 $a < $b ? :
551 45 81 if ((my $tb = $b) < 0) { }
555 36 45 ($a ^ min_sint) < ($b ^ min_sint) ? :
563 55 66 $a < $b ? :
569 36 45 ($a ^ min_sint) < ($b ^ min_sint) ? :
585 70 126 if ((my $ta = $a) < 0) { }
586 25 45 if ((my $tb = $b) < 0) { }
588 10 15 $a < $b ? :
593 45 81 if ((my $tb = $b) < 0) { }
597 36 45 ($a ^ min_sint) < ($b ^ min_sint) ? :
605 55 66 $a < $b ? :
611 36 45 ($a ^ min_sint) < ($b ^ min_sint) ? :
626 5 7 if ((my $ta = $a) <= 0) { }
631 3 4 if $neg >= 0
639 1 7 if $a == min_sint
645 7 1 unless uint($_[0]) == 0
661 89 163 if ((my $ta = $a) < 0) { }
662 34 55 if ((my $tb = $b) < 0) { }
665 16 18 if $r > $a
670 7 48 if $r < $a
674 55 108 if ((my $tb = $b) < 0) { }
677 7 48 if $r < $b
682 40 68 if ($r ^ min_sint) < ($a ^ min_sint)
693 68 80 $b < 0 ? :
36 112 if $b < 0 ? $r > $a : $r < $a
701 40 68 if ($r ^ min_sint) < ($a ^ min_sint)
717 63 171 if ((my $ta = $a) < 0) { }
106 65 elsif (not $a & min_sint) { }
718 31 32 if ((my $tb = $b) < 0) { }
22 10 elsif (not $b & min_sint) { }
724 9 13 if $r >= 0
730 35 71 if ((my $tb = $b) < 0) { }
47 24 elsif (not $b & min_sint) { }
738 10 14 if $r >= 0
742 16 49 if ((my $tb = $b) < 0) { }
31 18 elsif (not $b & min_sint) { }
745 9 7 if $r >= 0
760 59 76 $b > 0 ? :
23 112 if $b > 0 ? $r > $a : $r < $a
768 52 68 if ($r ^ min_sint) > ($a ^ min_sint)
804 0 21 if $dist >= 64
812 0 21 if $dist >= 64
834 0 17 if $dist >= 64
842 0 17 if $dist >= 64
861 0 21 if $dist >= 64
863 4 17 if $dist == 0
872 0 21 if $dist >= 64
874 4 17 if $dist == 0
892 0 21 if $dist >= 64
894 4 17 if $dist == 0
903 0 21 if $dist >= 64
905 4 17 if $dist == 0
1163 0 196 unless $cin == 0 or $cin == 1
1165 20 58 $r > $a ? :
42 76 $r < $a ? :
78 118 $b < 0 ? :
1172 0 172 unless $cin == 0 or $cin == 1
1174 68 104 ($r ^ min_sint) < ($a ^ min_sint) ? :
1175 86 86 if ($cin)
1177 8 78 if $r == 0
1198 0 196 unless $cin == 0 or $cin == 1
1200 20 58 $r < $a ? :
42 76 $r > $a ? :
78 118 $b < 0 ? :
1207 0 172 unless $cin == 0 or $cin == 1
1209 66 106 ($r ^ min_sint) > ($a ^ min_sint) ? :
1210 86 86 if ($cin)
1211 10 76 if $r == 0
1231 39 59 if ($b < 0) { }
1232 12 27 if $r > $a
1234 18 41 if $r < $a
1243 34 52 if ($r ^ min_sint) < ($a ^ min_sint)
1262 50 42 if ($b >= 0) { }
1263 9 41 if $r > $a
1265 11 31 if $r < $a
1273 46 43 ($a ^ min_sint) <= ($b ^ min_sint) ? :
1306 3 6 $sgn == -1 ? :
1337 0 103 unless $str =~ /\A([-+]?)(?:0x)?([0-9a-f]+)\z/i
1342 3 100 if $digits =~ /\G\z/cg
1346 69 31 if $bits_to_go >= 64 or $bits_to_go + 4 > 64 and max_uint >> $bits_to_go < $value
1353 15 16 if ($sign eq '-') { }
1355 8 7 if $value >= 0