| line |
true |
false |
branch |
|
47
|
0 |
0 |
if ($val < 0) { } |
|
64
|
0 |
0 |
unless $x |
|
66
|
0 |
0 |
$x >= 0 ? : |
|
71
|
0 |
0 |
if ($x - $in == 0.5) |
|
72
|
0 |
0 |
$in % 2 == 0 ? : |
|
75
|
0 |
0 |
unless (defined $_half) |
|
85
|
0 |
0 |
if (substr($halfhex, 0, 2) ne '00' and substr($halfhex, -2) eq '00') { } |
|
111
|
0 |
6 |
if ($amount_width =~ /^\+(\d+)$/) { } |
|
|
0 |
6 |
elsif ($amount_width =~ /^\-(\d+)$/) { } |
|
|
0 |
6 |
elsif ($amount_width =~ /^(\d+)%$/) { } |
|
|
0 |
6 |
elsif (not $amount_width =~ /^\d+$/) { } |
|
129
|
6 |
0 |
if ($fmt or not defined $decimalpt) { } |
|
130
|
6 |
0 |
unless defined $fmt |
|
131
|
0 |
6 |
unless $fmt =~ /^\d+([.,])\d\d$/ or $fmt =~ /^\d+(\.\d\d\d)*(\,)\d\d$/ or $fmt =~ /^\d+(\,\d\d\d)*(\.)\d\d$/ |
|
136
|
6 |
0 |
if (defined $2) { } |
|
144
|
0 |
6 |
if length $fmt > $amount_width |
|
147
|
0 |
0 |
if $thousandsep |
|
164
|
6 |
0 |
if $decimalpt ne '.' |
|
172
|
0 |
0 |
if length $v <= 2 |
|
|
0 |
0 |
if ($v == int $v and $v >= 0) { } |
|
173
|
0 |
6 |
if $@ |
|
175
|
6 |
0 |
if $thousandsep |
|
181
|
0 |
0 |
if length $v <= 2 |
|
|
0 |
0 |
if ($v == int $v and $v >= 0) { } |
|
182
|
0 |
6 |
if $@ |
|
189
|
0 |
6 |
unless (defined &{"numround_$numround";}) |
|
202
|
0 |
6 |
if (lc $fmt eq 'dd-mm-yyyy') { } |
|
|
0 |
6 |
elsif (lc $fmt eq 'dd-mm') { } |
|
|
0 |
6 |
elsif (lc $fmt ne 'yyyy-mm-dd') { } |
|
216
|
0 |
18 |
if $@ |
|
226
|
0 |
14 |
if s/^([-+])// and $1 eq '-' |
|
229
|
1 |
13 |
if (/^\d+$/) |
|
235
|
1 |
0 |
if (/^(\d{1,@{[3];}})(\,\d{@{[3];}})*$/ and $1) |
|
242
|
1 |
0 |
if (/^(\d{1,@{[3];}})(\.\d{@{[3];}})*$/ and $1) |
|
249
|
7 |
4 |
unless /^([\d.]+)(\,)(\d{@{[2];}})$/ or /^([\d,]+)(\.)(\d{@{[2];}})$/ |
|
256
|
2 |
2 |
if ($sep eq ',') { } |
|
257
|
1 |
1 |
if $mant =~ /^\d{1,@{[3];}}(\.\d{@{[3];}})*$/ |
|
263
|
1 |
1 |
if $mant =~ /^\d{1,@{[3];}}(\,\d{@{[3];}})*$/ |
|
269
|
4 |
0 |
if $mant =~ /^\d+$/ |
|
280
|
4 |
16 |
if /^.*,.*$/ |
|
282
|
19 |
1 |
if /^[-+]*\d+(\.\d+)?$/ |
|
291
|
0 |
0 |
if defined $res |
|
293
|
0 |
0 |
if $n =~ /^[-+]?\d+[.,]\d+$/ |
|
300
|
9 |
14 |
if ($val =~ m[.[-+*/\(\)]]) { } |
|
301
|
0 |
9 |
if $debug |
|
303
|
0 |
8 |
if $debug |
|
306
|
0 |
0 |
if $debug and $@ |
|
307
|
0 |
8 |
if $@ |
|
309
|
0 |
8 |
if $debug |
|
313
|
0 |
14 |
unless $val = numxform_strict($val) |
|
316
|
7 |
15 |
unless $val =~ /$numpat/ |
|
324
|
0 |
0 |
if ($v == int $v and $v >= 0) { } |
|
325
|
0 |
0 |
if length $v <= 2 |
|
326
|
0 |
0 |
if length $v < 9 |
|
339
|
0 |
0 |
if ($v == int $v and $v >= 0) { } |
|
340
|
0 |
0 |
if length $v <= 2 |
|
341
|
0 |
0 |
if length $v < $_[0] |