| line |
true |
false |
branch |
|
61
|
158 |
172 |
if $_[0] >= $neg and $_[0] <= $spos
|
|
64
|
20 |
16 |
if blessed $val and blessed($val) =~ /^Math::Big(?:Int|Float)|^big(?:int|num)/u and ($val->accuracy || $val->precision || $val->div_scale) >= $udigits and $val >= $neg and $val <= $spos
|
|
76
|
185 |
160 |
if $_[0] >= 0 and $_[0] <= $upos
|
|
79
|
20 |
16 |
if blessed $val and blessed($val) =~ /^Math::Big(?:Int|Float)|^big(?:int|num)/u and ($val->accuracy || $val->precision || $val->div_scale) >= $udigits and $val >= 0 and $val <= $upos
|
|
85
|
12 |
2 |
$is_perl_safe ? :
|
|
|
12 |
2 |
$is_perl_safe ? :
|
|
119
|
9 |
1 |
if $_[0] >= $neg
|
|
122
|
27 |
3 |
if blessed $val and blessed($val) =~ /^Math::BigFloat|^bignum/u and ($val->accuracy || $val->precision || $val->div_scale) >= $digits and $val >= $neg
|
|
128
|
2 |
4 |
$is_perl_safe ? :
|
|
158
|
28 |
88 |
unless $val >= -$max and $val <= $max
|
|
162
|
130 |
0 |
if blessed $val and blessed($val) =~ /^Math::BigFloat|^bignum/u and ($val->accuracy || $val->precision || $val->div_scale) >= $digits
|
|
170
|
8 |
8 |
$is_perl_safe ? :
|
|
202
|
5 |
8 |
unless $val >= -$max and $val <= $max
|
|
206
|
26 |
0 |
if blessed $val and blessed($val) =~ /^Math::BigFloat|^bignum/u and ($val->accuracy || $val->precision || $val->div_scale) >= $digits
|
|
214
|
2 |
4 |
$is_perl_safe ? :
|