| line |
true |
false |
branch |
|
94
|
5 |
313 |
unless ($num =~ /^\d+$/) |
|
99
|
1 |
312 |
if ($num > '999999999999' or $num < 0) |
|
105
|
2 |
310 |
if $num == 0 |
|
106
|
70 |
240 |
if $Lingua::EUS::Numbers::num2alpha{$num} |
|
118
|
112 |
54 |
unless $extra_digits == 1 |
|
123
|
100 |
66 |
unless $num =~ /000$/ |
|
126
|
32 |
134 |
if $len == 7 and $extra_digits == 1 |
|
130
|
22 |
22 |
if ($len <= 8 and $len >= 7 and $whats_left != 0 and not reverse($num) =~ /^[^0]000/) |
|
138
|
78 |
88 |
if (length $num <= 6) |
|
142
|
18 |
26 |
if ($hundreds != 0 and $tens == 0 and $units == 0 or $hundreds == 0 and $tens || $units and not $num =~ /^0/ or $thousands == 0 and $hundreds == 0 and $tens || $units) |
|
158
|
240 |
0 |
if ($len <= 3) |
|
177
|
0 |
352 |
if $num > 999 or $num < 0 |
|
178
|
96 |
256 |
if $num == 0 |
|
179
|
42 |
214 |
if $Lingua::EUS::Numbers::num2alpha{$num} |
|
184
|
152 |
62 |
if ($len == 2) |
|
191
|
62 |
0 |
if ($len == 3) |
|
193
|
28 |
34 |
unless ($hundreds == 0) |
|
196
|
28 |
0 |
if $tens or $units |
|
219
|
0 |
214 |
if $num == 0 |
|
221
|
22 |
192 |
if $Lingua::EUS::Numbers::num2alpha{$num} |
|
223
|
38 |
154 |
unless $diz |
|
226
|
80 |
74 |
if ($diz =~ /[3579]/) |
|
232
|
154 |
0 |
if ($unit) { } |
|
250
|
5 |
157 |
unless $num =~ /^\d+$/ |
|
251
|
1 |
156 |
if $num < 0 or $num > '999999999999' |
|
252
|
1 |
155 |
if $num == 1 |