| line |
true |
false |
branch |
|
47
|
0 |
3392 |
unless defined $_ |
|
49
|
3392 |
0 |
if (/^([+-]?)(\d*)(\.(\d*))?([Ee]([+-]?\d+))?$/ and $2 ne '' || defined $4) { } |
|
51
|
46 |
3346 |
defined $4 ? : |
|
52
|
1538 |
1854 |
defined $6 ? : |
|
53
|
1538 |
1854 |
$1 ? : |
|
|
46 |
3346 |
$x ne '' ? : |
|
62
|
0 |
4797 |
unless defined $exp |
|
63
|
0 |
4797 |
if ($mantissa eq 'NaN') { } |
|
68
|
1589 |
3208 |
if (length $mantissa == 1) { } |
|
72
|
567 |
2641 |
if $mantissa =~ s/(0+)$// |
|
81
|
302 |
146 |
unless $_ eq '+0E+0' |
|
96
|
0 |
216 |
if ($x eq 'NaN' or $y eq 'NaN') { } |
|
108
|
0 |
1010 |
if ($x eq 'NaN' or $y eq 'NaN') { } |
|
113
|
287 |
723 |
if $xe < $ye |
|
129
|
0 |
179 |
if ($x eq 'NaN' or $y eq 'NaN' or $y eq '+0E+0') { } |
|
134
|
179 |
0 |
unless $scale |
|
135
|
0 |
179 |
if length($xm) - 1 > $scale |
|
136
|
0 |
179 |
if length($ym) - 1 > $scale |
|
146
|
0 |
179 |
if ($q eq 'NaN' or $r eq 'NaN') { } |
|
|
0 |
179 |
elsif ($bigfloat::rnd_mode eq 'trunc') { } |
|
152
|
143 |
36 |
if ($cmp < 0 or $cmp == 0 and $bigfloat::rnd_mode eq 'zero' || $bigfloat::rnd_mode eq '-inf' && substr($q, 0, 1) eq '+' || $bigfloat::rnd_mode eq '+inf' && substr($q, 0, 1) eq '-' || $bigfloat::rnd_mode eq 'even' && $q =~ /[24680]$/ || $bigfloat::rnd_mode eq 'odd' && $q =~ /[13579]$/) { } |
|
161
|
0 |
36 |
substr($q, 0, 1) eq '-' ? : |
|
170
|
0 |
0 |
if ($x eq 'NaN' or $scale <= 0) { } |
|
174
|
0 |
0 |
if (length($xm) - 1 <= $scale) { } |
|
187
|
0 |
0 |
if ($x eq 'NaN') { } |
|
191
|
0 |
0 |
if ($xe >= $scale) { } |
|
195
|
0 |
0 |
if ($xe < 1) { } |
|
|
0 |
0 |
elsif ($xe == 1) { } |
|
212
|
0 |
67 |
if ($x eq 'NaN' or $y eq 'NaN') { } |
|
217
|
0 |
67 |
if $ret |
|
225
|
7 |
60 |
$xe > $ye ? : |
|
233
|
0 |
0 |
if ($x eq 'NaN' or $x =~ /^-/) { } |
|
|
0 |
0 |
elsif ($x eq '+0E+0') { } |
|
239
|
0 |
0 |
unless $scale |
|
240
|
0 |
0 |
if $scale < length($xm) - 1 |