| line |
true |
false |
branch |
|
102
|
25 |
4 |
unless $num =~ /^(.+)[Ee](.+)$/ and @words = (&_handle_neg_dec($1), $Lingua::ID::Nums2Words::Exp_word, &_handle_neg_dec($2)) |
|
114
|
8 |
25 |
if $num < 0 |
|
121
|
25 |
0 |
unless $num =~ /^(.+)\Q$Lingua::ID::Nums2Words::Dec_char\E(.+)$/o and @words = (&_handle_int($1), $Lingua::ID::Nums2Words::Dec_word, &_handle_dec($2)) or $num =~ /^\Q$Lingua::ID::Nums2Words::Dec_char\E(.+)$/o and @words = ($Lingua::ID::Nums2Words::Digit_words{'0'}, $Lingua::ID::Nums2Words::Dec_word, &_handle_dec($1)) |
|
126
|
8 |
25 |
if $is_neg |
|
142
|
39 |
18 |
if $t > 0 |
|
147
|
1 |
32 |
unless join('', @words) =~ /\S/ |
|
162
|
20 |
27 |
if $n3 == 0 and $n2 == 0 and $n1 > 0 |
|
165
|
51 |
6 |
unless $n3 == 1 and @words = 'seratus' |
|
170
|
9 |
48 |
if $n2 == 1 |
|
173
|
7 |
50 |
if ($n2 > 1) |
|
175
|
7 |
0 |
if $n1 > 0 |
|
179
|
2 |
8 |
if $n3 > 0 and $n2 == 0 and $n1 > 0 |
|
181
|
39 |
18 |
if $n3 != 0 or $n2 != 0 or $n1 != 0 |
|
195
|
30 |
0 |
if exists $Lingua::ID::Nums2Words::Digit_words{$t} |
|
198
|
0 |
13 |
unless join('', @words) =~ /\S/ |
|
209
|
120 |
11 |
unless not length $w or $w eq 'se' or not @_ |