| line |
true |
false |
branch |
|
12
|
0 |
8 |
if ($] < 5.03501) { } |
|
24
|
0 |
0 |
if (defined &{'B::' . $flag;}) |
|
35
|
0 |
0 |
if ($fstr =~ /SVf_POK/) { } |
|
48
|
8 |
0 |
if ($Math::Ryu::Config{'nvsize'} == 8) { } |
|
|
0 |
0 |
elsif ($Math::Ryu::Config{'nvtype'} eq '__float128') { } |
|
|
0 |
0 |
elsif (defined $Math::Ryu::Config{'longdblkind'} and $Math::Ryu::Config{'longdblkind'} < 3) { } |
|
59
|
0 |
8 |
$Math::Ryu::Config{'ivsize'} == 4 ? : |
|
61
|
0 |
8 |
$Math::Ryu::Config{'ivsize'} == 4 ? : |
|
117
|
1 |
7 |
if ref $arg |
|
119
|
3 |
4 |
unless (ryu_SvPOK($arg)) |
|
120
|
0 |
3 |
if ryu_SvIOK($arg) |
|
121
|
0 |
3 |
if _NV_fits_IV($arg) |
|
123
|
4 |
3 |
if ryu_SvNOK($arg) |
|
132
|
0 |
3 |
if ryu_SvIOK($ret) |
|
151
|
6 |
8 |
if $s =~ s/^\-// |
|
153
|
4 |
10 |
if substr($s, 1, 1) eq "." |
|
155
|
4 |
10 |
if ($bitpos) { } |
|
159
|
4 |
0 |
if ($parts[1] > 0 and $parts[1] < 17) |
|
162
|
2 |
2 |
if ($zero_pad >= 0 and $zero_pad + length($parts[0]) < 18) { } |
|
|
0 |
2 |
elsif ($zero_pad < 0) { } |
|
178
|
2 |
0 |
if $parts[1] > 0 |
|
179
|
2 |
0 |
if ($parts[1] < -4 or $parts[1] >= 0) |
|
181
|
0 |
2 |
if substr($s, -2, 1) eq "-" |
|
190
|
6 |
4 |
if ($s =~ /n/i) |
|
191
|
3 |
3 |
if ($Math::Ryu::PERL_INFNAN) |
|
192
|
1 |
2 |
if $s =~ /a/i |
|
193
|
1 |
1 |
if $sign |
|
200
|
0 |
4 |
if $s =~ s/E0$//i |
|
206
|
4 |
0 |
if $parts[1] > 0 |
|
207
|
0 |
4 |
if $parts[1] < -4 and $parts[1] > -10 |
|
208
|
2 |
2 |
if $parts[1] < -4 or $parts[1] > 15 |
|
210
|
2 |
0 |
if ($parts[1] >= 0) |
|
224
|
2 |
9645 |
unless ryu_lln($str) |
|
236
|
146 |
9499 |
if $str =~ /^\+?inf/i |
|
237
|
37 |
9462 |
if $str =~ /^\-inf/i |
|
238
|
2 |
9460 |
if $str =~ /^(\-|\+)?nan/i |
|
276
|
8 |
31 |
if (is_NV($arg)) { } |
|
277
|
3 |
5 |
if (_NV_fits_IV($arg)) { } |
|
290
|
3 |
8 |
if $nv != int $nv |
|
291
|
3 |
5 |
if $nv <= '18446744073709551615' and $nv >= '-9223372036854775808' |
|
301
|
26 |
29 |
if (ryu_lln($arg)) |
|
303
|
15 |
11 |
if ryu_SvPOK($arg) or ryu_SvIOK($arg) |