Branch Coverage

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


line true false branch
383 2 4666 unless int $tval == $tval and $tval >= &min_nint() and $tval <= &max_nint()
386 1587 3079 ($tval = $_[0]) < 0 ? :
391 7 3922 unless int $tval == $tval and $tval >= &min_sint() and $tval <= &max_sint()
396 0 2406 if $tval >= 0 and do { use integer; $val < 0 }
402 6 4128 unless int $tval == $tval and $tval >= &min_uint() and $tval <= &max_uint()
456 1 7 &uint($_[0]) == 0 ? :
470 14 7 if ((my $tval = $a) >= 0) { }
1 6 elsif (do { use integer; $a == &min_sint() }) { }
483 1 7 if $a == &min_sint()
484 3 4 $a < 0 ? :
502 70 126 if ((my $ta = $a) < 0) { }
503 25 45 if ((my $tb = $b) < 0) { }
510 45 81 if ((my $tb = $b) < 0) { }
539 70 126 if ((my $ta = $a) < 0) { }
540 25 45 if ((my $tb = $b) < 0) { }
542 10 15 $a < $b ? :
547 45 81 if ((my $tb = $b) < 0) { }
551 36 45 ($a ^ &min_sint()) < ($b ^ &min_sint()) ? :
559 55 66 $a < $b ? :
565 36 45 ($a ^ &min_sint()) < ($b ^ &min_sint()) ? :
581 70 126 if ((my $ta = $a) < 0) { }
582 25 45 if ((my $tb = $b) < 0) { }
584 10 15 $a < $b ? :
589 45 81 if ((my $tb = $b) < 0) { }
593 36 45 ($a ^ &min_sint()) < ($b ^ &min_sint()) ? :
601 55 66 $a < $b ? :
607 36 45 ($a ^ &min_sint()) < ($b ^ &min_sint()) ? :
622 5 7 if ((my $ta = $a) <= 0) { }
627 3 4 if $neg >= 0
635 1 7 if $a == &min_sint()
641 7 1 unless &uint($_[0]) == 0
657 89 163 if ((my $ta = $a) < 0) { }
658 34 55 if ((my $tb = $b) < 0) { }
661 16 18 if $r > $a
666 7 48 if $r < $a
670 55 108 if ((my $tb = $b) < 0) { }
673 7 48 if $r < $b
678 40 68 if ($r ^ &min_sint()) < ($a ^ &min_sint())
689 68 80 $b < 0 ? :
36 112 if $b < 0 ? $r > $a : $r < $a
697 40 68 if ($r ^ &min_sint()) < ($a ^ &min_sint())
713 63 171 if ((my $ta = $a) < 0) { }
106 65 elsif (not $a & &min_sint()) { }
714 31 32 if ((my $tb = $b) < 0) { }
22 10 elsif (not $b & &min_sint()) { }
720 9 13 if $r >= 0
726 35 71 if ((my $tb = $b) < 0) { }
47 24 elsif (not $b & &min_sint()) { }
734 10 14 if $r >= 0
738 16 49 if ((my $tb = $b) < 0) { }
31 18 elsif (not $b & &min_sint()) { }
741 9 7 if $r >= 0
756 59 76 $b > 0 ? :
23 112 if $b > 0 ? $r > $a : $r < $a
764 52 68 if ($r ^ &min_sint()) > ($a ^ &min_sint())
800 0 21 if $dist >= 64
808 0 21 if $dist >= 64
830 0 17 if $dist >= 64
838 0 17 if $dist >= 64
857 0 21 if $dist >= 64
859 4 17 if $dist == 0
868 0 21 if $dist >= 64
870 4 17 if $dist == 0
888 0 21 if $dist >= 64
890 4 17 if $dist == 0
899 0 21 if $dist >= 64
901 4 17 if $dist == 0
1159 0 196 unless $cin == 0 or $cin == 1
1161 20 58 $r > $a ? :
42 76 $r < $a ? :
78 118 $b < 0 ? :
1168 0 172 unless $cin == 0 or $cin == 1
1170 68 104 ($r ^ &min_sint()) < ($a ^ &min_sint()) ? :
1171 86 86 if ($cin)
1173 8 78 if $r == 0
1194 0 196 unless $cin == 0 or $cin == 1
1196 20 58 $r < $a ? :
42 76 $r > $a ? :
78 118 $b < 0 ? :
1203 0 172 unless $cin == 0 or $cin == 1
1205 66 106 ($r ^ &min_sint()) > ($a ^ &min_sint()) ? :
1206 86 86 if ($cin)
1207 10 76 if $r == 0
1227 39 59 if ($b < 0) { }
1228 12 27 if $r > $a
1230 18 41 if $r < $a
1239 34 52 if ($r ^ &min_sint()) < ($a ^ &min_sint())
1258 50 42 if ($b >= 0) { }
1259 9 41 if $r > $a
1261 11 31 if $r < $a
1269 46 43 ($a ^ &min_sint()) <= ($b ^ &min_sint()) ? :
1302 3 6 $sgn == -1 ? :
1333 0 103 unless $str =~ /\A([-+]?)(?:0x)?([0-9a-f]+)\z/i
1338 3 100 if $digits =~ /\G\z/cg
1342 69 31 if $bits_to_go >= 64 or $bits_to_go + 4 > 64 and &max_uint() >> $bits_to_go < $value
1349 15 16 if ($sign eq '-') { }
1351 8 7 if $value >= 0