Branch Coverage

blib/lib/bigint.pl
Criterion Covered Total %
branch 89 94 94.6


line true false branch
48 2 0 int($x * 1e-05) * 100000 == $x ? :
61 2944 38 if (s/^([+-]?)0*(\d+)$/$1$2/) { }
62 3 2941 unless $1
90 38 5 unless $_ eq '+0'
91 3 40 unless /^[-+]/
109 2 205 if ($x eq 'NaN') { }
1 204 elsif ($y eq 'NaN') { }
120 62 404 if $cx eq $cy
125 394 10 if ($sx eq '+') { }
126 13 381 if $sy eq '-' or $cy eq '+0'
128 243 138 if $ld
131 2 8 if $sy eq '+'
133 4 4 if $ld
141 4 262 if ($x eq 'NaN') { }
2 260 elsif ($y eq 'NaN') { }
149 189 71 if ($sx eq $sy) { }
153 34 37 if (&cmp($y, $x) > 0) { }
169 3 8 if ($x eq 'NaN' or $y eq 'NaN') { }
184 48 7 unless @y or $car
185 125 328 ($x += shift(@y) + $car) >= 100000 ? :
125 328 if $car = ($x += shift(@y) + $car) >= 100000 ? 1 : 0
188 6 7 unless $car
189 2 5 ($y += $car) >= 100000 ? :
2 5 if $car = ($y += $car) >= 100000 ? 1 : 0
199 6 7 unless @y or $bar
200 22 78 if $bar = ($sx -= shift(@sy) + $bar) < 0
208 2 300 if ($x eq 'NaN') { }
1 299 elsif ($y eq 'NaN') { }
215 12 287 shift @x ne shift @y ? :
221 0 741 if ($use_mult) { }
230 249 466 if $car
244 6 6 wantarray ? :
8 176 if $x eq 'NaN' or $y eq 'NaN' or $y eq '+0'
246 8 3 wantarray ? :
11 165 if &cmp(&abs($x), &abs($y)) < 0
249 7 158 shift @x ne shift @y ? :
251 162 3 if (($dd = int 100000 / ($y[$#y] + 1)) != 1) { }
254 0 1008 if ($use_mult) { }
264 0 288 if ($use_mult) { }
278 5 892 $u0 == $v1 ? :
280 570 327 if ($q)
284 0 2583 if ($use_mult) { }
290 1266 1317 if $bar = ($x[$x] -= $prd + $bar) < 0
292 5 565 if ($x[$#x] < $car + $bar)
295 19 25 if $car = ($x[$x] += $y[$y] + $car) > 100000
302 138 27 if (wantarray) { }
304 136 2 if ($dd != 1) { }