| line |
true |
false |
branch |
|
53
|
883 |
31 |
if (/^([+-]?)(\d*)(\.(\d*))?([Ee]([+-]?\d+))?$/ and $2 ne '' || defined $4) { } |
|
55
|
144 |
739 |
defined $4 ? : |
|
56
|
801 |
82 |
$1 ? : |
|
|
144 |
739 |
$x ne '' ? : |
|
65
|
0 |
1292 |
if ($_ eq 'NaN') { } |
|
69
|
70 |
1222 |
if (length $_ == 1) { } |
|
72
|
164 |
1058 |
if s/(0+)$// |
|
81
|
40 |
5 |
unless $_ eq "+0E+0" |
|
101
|
3 |
85 |
if ($x eq 'NaN' or $y eq 'NaN') { } |
|
113
|
6 |
124 |
if ($x eq 'NaN' or $y eq 'NaN') { } |
|
118
|
0 |
124 |
if $xe < $ye |
|
134
|
6 |
100 |
if ($x eq 'NaN' or $y eq 'NaN' or $y eq '+0E+0') { } |
|
139
|
44 |
56 |
unless $scale |
|
140
|
6 |
94 |
if length($xm) - 1 > $scale |
|
141
|
1 |
99 |
if length($ym) - 1 > $scale |
|
151
|
0 |
200 |
if ($q eq 'NaN' or $r eq 'NaN') { } |
|
|
15 |
185 |
elsif ($rnd_mode eq 'trunc') { } |
|
157
|
117 |
68 |
if ($cmp < 0 or $cmp == 0 and $rnd_mode eq 'zero' || $rnd_mode eq '-inf' && substr($q, 0, 1) eq '+' || $rnd_mode eq '+inf' && substr($q, 0, 1) eq '-' || $rnd_mode eq 'even' && $q =~ /[24680]$/ || $rnd_mode eq 'odd' && $q =~ /[13579]$/) { } |
|
166
|
23 |
45 |
substr($q, 0, 1) eq '-' ? : |
|
175
|
0 |
44 |
if ($x eq 'NaN' or $scale <= 0) { } |
|
179
|
3 |
41 |
if (length($xm) - 1 <= $scale) { } |
|
192
|
0 |
75 |
if ($x eq 'NaN') { } |
|
196
|
10 |
65 |
if ($xe >= $scale) { } |
|
200
|
6 |
59 |
if ($xe < 1) { } |
|
|
6 |
53 |
elsif ($xe == 1) { } |
|
222
|
3 |
19 |
if ($x eq 'NaN' or $y eq 'NaN') { } |
|
225
|
15 |
4 |
unless ord $y <=> ord $x |
|
237
|
4 |
9 |
if ($x eq 'NaN' or $x =~ /^-/) { } |
|
|
1 |
8 |
elsif ($x eq '+0E+0') { } |
|
243
|
8 |
0 |
unless $scale |
|
244
|
0 |
8 |
if $scale < length($xm) - 1 |