line |
true |
false |
branch |
69
|
1 |
37 |
unless defined $number |
70
|
4 |
33 |
unless $number =~ /^\d{1,19}$/x |
71
|
2 |
31 |
if ($number == 0) |
97
|
24 |
57 |
if ($offset != 3) |
116
|
15 |
66 |
if ($triad == 0) |
123
|
36 |
30 |
if ($megas_counter > 0) |
125
|
10 |
10 |
$triad == 1 ? : |
|
20 |
16 |
if ($megas_counter > 1) |
128
|
6 |
30 |
if ($triad_str eq 'um mil') |
138
|
10 |
21 |
if (@triads_str == 1) { } |
147
|
13 |
8 |
if ($last_triad % 100 == 0 or $last_triad < 100) { } |
170
|
1 |
65 |
if ($number == 100) |
177
|
21 |
44 |
if ($hundreds) |
181
|
2 |
63 |
if ($first_tens > 10 and $first_tens < 20) { } |
185
|
8 |
55 |
if ($tens) |
186
|
48 |
15 |
if ($units) |