line |
true |
false |
branch |
73
|
2 |
207 |
unless ($number =~ /^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/) |
78
|
1 |
206 |
if ($number > 1e+75) |
83
|
2 |
204 |
if $number == 0 |
86
|
6 |
198 |
if abs $number != $number |
91
|
9 |
195 |
if ($number != int $number) |
100
|
5 |
4 |
if ($decimal =~ s/^(0+([1-9][0-9]*))$/$2/) { } |
102
|
0 |
5 |
unless $decimal_power |
106
|
3 |
2 |
if $decimal > 1 |
134
|
184 |
256 |
if $blocks[$_] == 0 |
148
|
86 |
170 |
if ($hundred) |
152
|
58 |
28 |
unless $hundred == 1 |
159
|
3 |
10 |
if $hundred > 1 and not $teens and not $units and $_ == $#blocks |
169
|
73 |
127 |
if $units and not $teens and not $number == 1 && $power == 1000 |
176
|
18 |
238 |
if ($teens == 8) { } |
|
50 |
188 |
elsif ($teens == 7 or $teens == 9) { } |
|
79 |
109 |
elsif ($teens) { } |
179
|
13 |
5 |
$units ? : |
185
|
4 |
46 |
if ($teens == 7 and $units == 11) { } |
200
|
44 |
35 |
if ($teens == 1) { } |
|
5 |
30 |
elsif ($units == 1 or $units == 11) { } |
|
3 |
27 |
elsif ($units == 0) { } |
216
|
220 |
36 |
if $fr_decimal |
219
|
122 |
134 |
if ($power >= 1000) |
222
|
108 |
14 |
if (exists $Lingua::FR::Numbers::NUMBER_NAMES{$power}) { } |
226
|
39 |
69 |
if $number > 1 and $power >= 1000000 |
244
|
0 |
14 |
unless (exists $Lingua::FR::Numbers::NUMBER_NAMES{$pow_diff}) |
248
|
10 |
4 |
if $number > 1 |
267
|
3 |
22 |
unless ($number > 0) |
271
|
1 |
21 |
if $number == 1 |
276
|
5 |
13 |
if ($last_digit != 1 and exists $Lingua::FR::Numbers::ORDINALS{$last_digit}) |
297
|
0 |
0 |
if ($_[0]) |