| line |
true |
false |
branch |
|
51
|
8 |
1 |
defined $_[1] ? : |
|
56
|
1 |
3 |
$places > 0 && $_[2] ? : |
|
|
4 |
5 |
defined $_[2] ? : |
|
60
|
0 |
9 |
if (not defined $places && $places =~ /\d/u or $places =~ /\D/u or $places < 0) { } |
|
|
2 |
7 |
elsif ($places == 0) { } |
|
71
|
1 |
1 |
if ($pad > $cur_sig_dig) |
|
74
|
0 |
1 |
if ($new_num =~ /^([+\-]?[0-9\.]+)(e[+\-]?[0-9\.]+)$/iu) { } |
|
|
0 |
1 |
elsif ($new_num =~ /^([+\-]?)e[+\-]?[0-9\.]+$/iu) { } |
|
90
|
1 |
0 |
unless ($new_num =~ /\./u) |
|
101
|
1 |
6 |
if ($num =~ /^([+\-]?[0-9\.]*)(e[+\-]?[0-9\.]+)$/iu) { } |
|
|
0 |
6 |
elsif ($num =~ /[^0-9\.+\-]/u or $num =~ /\..*\./u or $num =~ /.[+\-]/u) { } |
|
|
0 |
6 |
elsif ($num == 0) { } |
|
105
|
0 |
1 |
unless $pree =~ /\d/u |
|
115
|
0 |
0 |
if ($pad) |
|
118
|
0 |
0 |
unless ($new_num =~ /\./u) |
|
133
|
1 |
33 |
if ($digit =~ /\+|-/u) |
|
138
|
23 |
10 |
if ($digit =~ /[1-9]/u) { } |
|
|
6 |
4 |
elsif ($digit eq '.') { } |
|
143
|
0 |
6 |
if ($new_num eq '') |
|
145
|
5 |
1 |
if ($num_added < $places) { } |
|
|
0 |
1 |
elsif ($num_added > $places) { } |
|
152
|
27 |
0 |
if ($first_real) { } |
|
|
0 |
0 |
elsif ($decimal_seen) { } |
|
154
|
21 |
6 |
if ($num_added < $places) { } |
|
|
6 |
0 |
elsif ($num_added == $places) { } |
|
|
0 |
0 |
elsif (not $decimal_seen) { } |
|
161
|
1 |
5 |
if ($digit >= 5) |
|
165
|
1 |
0 |
if ($new_num =~ /\.(\d*)$/u) |
|
168
|
0 |
1 |
unless ($tmp_num =~ s/(?=\d{$len}\Z)/./u) |
|
170
|
0 |
0 |
if ($new_num =~ /^(0\.0+)/u) |
|
178
|
0 |
6 |
if (not $decimal_seen) { } |
|
199
|
1 |
5 |
if ($pad) { } |
|
|
4 |
1 |
elsif ($new_num =~ /\./iu) { } |
|
202
|
0 |
1 |
if ($pad > $cur_sig_dig and not $new_num =~ /\./u) |
|
219
|
3 |
8 |
defined $_[1] ? : |
|
220
|
1 |
10 |
defined $_[2] ? : |
|
226
|
0 |
11 |
if ($num =~ /^e/iu) |
|
236
|
1 |
10 |
if $nowholetail and not $num =~ /\./u |
|
242
|
1 |
10 |
if $nodecimaltail |