| line |
true |
false |
branch |
|
101
|
25 |
4 |
unless $num =~ /^(.+)[Ee](.+)$/ and @words = (_handle_neg_dec $1, $Lingua::ID::Nums2Words::Exp_word, _handle_neg_dec $2) |
|
113
|
8 |
25 |
if $num < 0 |
|
116
|
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) |
|
125
|
8 |
25 |
if $is_neg |
|
141
|
39 |
18 |
if $t > 0 |
|
146
|
1 |
32 |
unless join('', @words) =~ /\S/ |
|
159
|
20 |
27 |
if $n3 == 0 and $n2 == 0 and $n1 > 0 |
|
163
|
51 |
6 |
unless $n3 == 1 and @words = 'seratus' |
|
166
|
9 |
48 |
if $n2 == 1 |
|
172
|
7 |
50 |
if ($n2 > 1) |
|
174
|
7 |
0 |
if $n1 > 0 |
|
177
|
2 |
8 |
if $n3 > 0 and $n2 == 0 and $n1 > 0 |
|
180
|
39 |
18 |
if $n3 != 0 or $n2 != 0 or $n1 != 0 |
|
193
|
30 |
0 |
if exists $Lingua::ID::Nums2Words::Digit_words{$t} |
|
197
|
0 |
13 |
unless join('', @words) =~ /\S/ |
|
208
|
120 |
11 |
unless not length $w or $w eq 'se' or not @_ |