Branch Coverage

blib/lib/DateTime/Math/bigint.pl
Criterion Covered Total %
branch 54 106 50.9


line true false branch
49 0 5345 unless defined $_
51 5345 0 if (s/^([+-]?)0*(\d+)$/$1$2/) { }
52 0 5345 unless $1
80 0 0 unless $num eq '+0'
99 0 246 if ($x eq 'NaN') { }
0 246 elsif ($y eq 'NaN') { }
111 22 737 if $cx eq $cy
116 737 0 if ($sx eq '+') { }
117 0 737 if $sy eq '-' or $cy eq '+0'
119 343 394 if $ld
122 0 0 if $sy eq '+'
124 0 0 if $ld
132 0 1046 if ($x eq 'NaN') { }
0 1046 elsif ($y eq 'NaN') { }
140 712 334 if ($sx eq $sy) { }
144 93 241 if (&cmp($y, $x) > 0) { }
160 0 0 if ($x eq 'NaN' or $y eq 'NaN') { }
175 37 1307 unless @$y_array or $car
176 1307 0 @$y_array ? :
17 1290 ($x += (@$y_array ? shift @$y_array : 0) + $car) >= 100000 ? :
17 1290 if $car = ($x += (@$y_array ? shift @$y_array : 0) + $car) >= 100000 ? 1 : 0
179 211 16 unless $car
180 0 16 ($y += $car) >= 100000 ? :
0 16 if $car = ($y += $car) >= 100000 ? 1 : 0
190 20 2748 unless @$sy_array or $bar
191 2538 210 @$sy_array ? :
638 2110 if $bar = ($sx -= (@$sy_array ? shift @$sy_array : 0) + $bar) < 0
199 0 395 if ($x eq 'NaN') { }
0 395 elsif ($y eq 'NaN') { }
214 1 394 shift @$x_array ne shift @$y_array ? :
223 1271 427 if $car
237 0 0 wantarray ? :
0 179 if $x eq 'NaN' or $y eq 'NaN' or $y eq '+0'
239 93 0 wantarray ? :
93 86 if &cmp(&abs($x), &abs($y)) < 0
243 0 86 shift @x ne shift @y ? :
245 86 0 if (($dd = int 100000 / ($y[$#y] + 1)) != 1) { }
263 0 774 $u0 == $v1 ? :
268 675 99 if ($q)
273 651 24 if $bar = ($x[$x] -= $prd + $bar) < 0
275 0 675 if ($x[$#x] < $car + $bar)
278 0 0 if $car = ($x[$x] += $y[$y] + $car) > 100000
285 86 0 if (wantarray) { }
287 86 0 if ($dd != 1) { }
307 0 0 if ($x eq 'NaN') { }
0 0 elsif ($y eq 'NaN') { }
0 0 elsif ($x eq '+1') { }
0 0 elsif ($x eq '-1') { }
0 0 elsif ($y =~ /^-/) { }
0 0 elsif ($x eq '+0' and $y eq '+0') { }
314 0 0 &bmod($x, 2) ? :
326 0 0 if ($res ne '+0')
327 0 0 if ($y ne '+0')