line |
true |
false |
branch |
91
|
3 |
3 |
if (not defined $radix or $radix <= 2) |
101
|
0 |
33 |
if ($n < 0) |
102
|
0 |
33 |
if (is_infinite($n)) |
109
|
0 |
33 |
if ($n != $int) |
124
|
31 |
2 |
if (my(@digits) = digit_split_lowtohigh($n, $radix)) |
131
|
8 |
29 |
unless @digits |
133
|
4 |
25 |
if ($ext ^= 1) |
142
|
19 |
10 |
unless @digits |
144
|
8 |
2 |
if ($ext ^= 1) |
153
|
4 |
6 |
unless @digits |
155
|
0 |
6 |
if ($ext ^= 1) |
160
|
0 |
31 |
if ($self->{'skewed'}) |
175
|
0 |
33 |
if (is_infinite($x)) |
176
|
0 |
33 |
if (is_infinite($y)) |
178
|
0 |
33 |
if ($self->{'skewed'}) { } |
181
|
0 |
33 |
if (($x + $y) % 2) |
189
|
0 |
66 |
if (is_infinite($overflow)) |
196
|
31 |
2 |
if ($x or $y) |
211
|
8 |
29 |
unless $x or $y |
212
|
4 |
25 |
if ($ext ^= 1) |
230
|
19 |
10 |
unless $x or $y |
231
|
8 |
2 |
if ($ext ^= 1) |
249
|
4 |
6 |
unless $x or $y |
250
|
0 |
6 |
if ($ext ^= 1) |