| line |
true |
false |
branch |
|
55
|
1 |
205 |
unless defined $input |
|
60
|
204 |
1 |
if ($targ != 0) |
|
61
|
104 |
100 |
$input >= 0 ? : |
|
89
|
1 |
116 |
unless &looks_like_number($x) |
|
91
|
2 |
114 |
if ($x < 0) { } |
|
104
|
105 |
9 |
if ($x) { } |
|
|
1 |
8 |
elsif (not scalar @segments) { } |
|
109
|
108 |
6 |
if ($decimal_point) { } |
|
|
5 |
1 |
elsif (defined $decimal_point) { } |
|
114
|
1 |
4 |
if $last_num and $last_num > "0.5" |
|
138
|
110 |
1 |
if (&looks_like_number($text)) |
|
144
|
2 |
108 |
if $remove_decimal_for_ints |
|
188
|
2 |
33 |
unless defined $val and $val =~ /$floating_point_regex/ and defined $$precisions{$type // "unknown-type"} and defined $precisions->{$type}{$currency // "unknown-type"} |
|
230
|
2 |
21 |
unless defined $val and $val =~ /$floating_point_regex/ and defined $$precisions{$type // "unknown-type"} and defined $precisions->{$type}{$currency // "unknown-type"} |
|
269
|
5 |
8 |
if not defined $val && $val =~ /$floating_point_regex/ or (not defined $precision && $precision =~ /^(?:1(?:[eE][-]?[0-9]+)?|0(?:\.0*1)?)$/ or $precision == 0) |
|
308
|
1 |
9 |
unless defined $currency and defined $precisions->{'price'}{$currency // "unknown-type"} |
|
311
|
1 |
8 |
if $precisions->{'price'}{$currency} == 0 |