line |
true |
false |
branch |
96
|
9 |
19 |
unless defined $opts |
105
|
0 |
28 |
if ($$opts{'name'}) |
106
|
0 |
0 |
$intpart eq $Lingua::IT::Numbers::NUMBER_NAMES{'1'} ? : |
|
0 |
0 |
!ref($$opts{'name'}) ? : |
112
|
12 |
16 |
if ($$parsed{'fracpart'} or $$opts{'decimal'}) |
114
|
2 |
10 |
if ($$opts{'decimal'}) |
115
|
2 |
0 |
if (length $$parsed{'fracpart'} < $$opts{'decimal'}) |
121
|
1 |
11 |
if ($$opts{'decmode'} eq 'fract') { } |
122
|
0 |
1 |
if ($fractpart eq $Lingua::IT::Numbers::NUMBER_NAMES{'1'}) { } |
147
|
11 |
37 |
if ($hundreds == 1) { } |
|
14 |
23 |
elsif ($hundreds > 1) { } |
153
|
2 |
46 |
if ($tens == 0) { } |
|
14 |
32 |
elsif ($tens <= 20) { } |
164
|
10 |
22 |
if $units == 1 or $units == 8 |
166
|
32 |
0 |
if ($units >= 1) |
177
|
0 |
40 |
unless $number =~ /[1-9]/ |
178
|
2 |
38 |
if "$number" eq '1' |
179
|
23 |
15 |
if (my $r = length($number) % 3) |
184
|
0 |
38 |
if (@blocks > 4) |
190
|
2 |
36 |
if ($blocks[0] == 1) { } |
|
36 |
0 |
elsif ($blocks[0] > 1) { } |
198
|
0 |
38 |
if ($#blocks >= 1 and $blocks[1] == 1) { } |
|
8 |
60 |
elsif ($#blocks >= 1 and $blocks[1] > 1) { } |
206
|
0 |
4 |
unless $blocks[$pos] |
208
|
0 |
4 |
if ($blocks[$pos] == 1) { } |
227
|
0 |
28 |
unless ($string =~ m[$Lingua::IT::Numbers::RE{'num'}{'real'}{-'keep'}{join $;, -'radix', qr/[,.]/}]) |
232
|
0 |
28 |
if (defined $7) |
236
|
1 |
27 |
$2 ? : |
|
12 |
16 |
defined $6 ? : |
275
|
1 |
1 |
UNIVERSAL::isa($num, 'Lingua::IT::Numbers') ? : |
284
|
1 |
0 |
UNIVERSAL::isa($num, 'Lingua::IT::Numbers') ? : |
292
|
1 |
0 |
UNIVERSAL::isa($num, 'Lingua::IT::Numbers') ? : |
294
|
0 |
1 |
$inverted ? : |
303
|
1 |
1 |
UNIVERSAL::isa($num, 'Lingua::IT::Numbers') ? : |
305
|
0 |
2 |
$inverted ? : |