| line |
true |
false |
branch |
|
163
|
4 |
24 |
if (exists $opts{$key}) |
|
180
|
33 |
1 |
if (ref $_[0] eq 'Lingua::RO::Numbers') { } |
|
190
|
0 |
34 |
unless ($self->{'diacritics'}) |
|
203
|
32 |
1 |
if (ref $_[0] eq 'Lingua::RO::Numbers') { } |
|
217
|
33 |
0 |
$] >= 5.0080001 ? : |
|
|
3 |
30 |
unless ($] >= 5.0080001 ? utf8::is_utf8($text) : do {
require Encode;
Encode::is_utf8($text)
}) |
|
254
|
23 |
59 |
if (@nums and $i < $nums[0]) |
|
259
|
1 |
22 |
if (length $l == length int $l) |
|
268
|
23 |
0 |
if ((my $mod = length($n) % 3) != 0) |
|
289
|
0 |
33 |
unless (defined $text) |
|
294
|
0 |
33 |
if (defined $self->{'thousands_separator'} and length $self->{'thousands_separator'}) |
|
313
|
33 |
0 |
if (@words) |
|
316
|
2 |
31 |
if ($words[0] eq $neg_sign) |
|
322
|
3 |
30 |
if (@words == 1) |
|
326
|
0 |
3 |
if ($words[0] eq $inf) |
|
327
|
0 |
0 |
$neg ? : |
|
332
|
0 |
3 |
if ($words[0] eq $nan) |
|
365
|
107 |
0 |
exists $WORDS{$amount} ? : |
|
369
|
99 |
8 |
if (@words) |
|
370
|
27 |
72 |
if ($words[0] eq 'si') |
|
375
|
86 |
13 |
if (@words) |
|
377
|
19 |
69 |
if ($words[0] eq 'de') |
|
381
|
81 |
7 |
if (exists $BIGWORDS{$words[0]}) |
|
385
|
2 |
86 |
if (@words and $words[0] eq 'de') |
|
394
|
11 |
96 |
$adec ? : |
|
397
|
5 |
102 |
if (@words and $words[0] eq $dec_point) |
|
404
|
0 |
33 |
unless @nums |
|
411
|
5 |
28 |
if (@decs) |
|
423
|
2 |
31 |
$neg ? : |
|
432
|
18 |
133 |
if (exists $DIGITS{$number}) { } |
|
|
0 |
133 |
elsif (lc $number eq 'nan') { } |
|
|
0 |
133 |
elsif ($number == 9**9**9) { } |
|
|
2 |
131 |
elsif ($number < 0) { } |
|
|
5 |
126 |
elsif ($number != int $number) { } |
|
|
88 |
38 |
elsif ($number >= $BIGNUMS[0]{'num'}) { } |
|
|
38 |
0 |
elsif ($number > 19 and $number < 100) { } |
|
448
|
0 |
5 |
if (length($number) - length(int $number) - 1 < 1) { } |
|
460
|
2 |
14 |
if $number < 1 |
|
469
|
88 |
719 |
if ($number >= $BIGNUMS[$j - 1]{'num'} and $number <= $BIGNUMS[$j]{'num'}) |
|
473
|
24 |
64 |
$cat <= 2 ? : |
|
474
|
33 |
31 |
exists $DIGITS{$cat} ? : |
|
475
|
31 |
33 |
if (@w > 2) |
|
476
|
2 |
29 |
if $w[-2] eq $DIGITS{'2'} |
|
481
|
28 |
60 |
if ($cat >= 100 and $cat < 1000) |
|
483
|
8 |
18 |
if (@of and $rest != 0 and exists $DIGITS{$rest}) |
|
491
|
14 |
4 |
$BIGNUMS[$j - 1]{'fem'} ? : |
|
|
6 |
64 |
$cat == 2 ? : |
|
|
18 |
70 |
$cat == 1 ? : |
|
493
|
74 |
14 |
if ($number > 0) |
|
494
|
34 |
40 |
if $BIGNUMS[$j]{'num'} > 1000 |
|
505
|
2 |
23 |
$cat == 6 ? : |
|
|
13 |
25 |
$cat == 2 ? : |
|
|
32 |
6 |
$number % 10 != 0 ? : |
|
511
|
34 |
0 |
@words ? : |
|
|
117 |
34 |
wantarray ? : |