| line |
true |
false |
branch |
|
69
|
0 |
13 |
if $DEBUG |
|
74
|
1 |
13 |
if $num >= '1000000000000000' |
|
78
|
13 |
0 |
unless $num =~ /^(.+)[Ee](.+)$/ and @words = (n2w2($1), $Exp_word, n2w2($2)) |
|
94
|
2 |
11 |
if $num < 0 |
|
102
|
13 |
0 |
unless $num =~ /^(.+)\Q$Dec_char\E(.+)$/o and @words = (n2w3($1), $Dec_word, n2w5($2)) or $num =~ /^\Q$Dec_char\E(.+)$/o and @words = ($Digit_words{'0'}, $Dec_word, n2w5($1)) |
|
107
|
2 |
11 |
if $is_neg |
|
127
|
17 |
8 |
if $t > 0 |
|
132
|
1 |
12 |
unless join("", @words) =~ /\S/ |
|
151
|
6 |
10 |
if $n3 == 0 and $n2 == 0 and $n1 > 0 |
|
154
|
22 |
3 |
unless $n3 == 1 and @words = "seratus" |
|
159
|
1 |
24 |
if $n2 == 1 |
|
162
|
7 |
18 |
if ($n2 > 1) |
|
164
|
6 |
1 |
if $n1 > 0 |
|
168
|
0 |
9 |
if $n3 > 0 and $n2 == 0 and $n1 > 0 |
|
170
|
17 |
8 |
if $n3 != 0 or $n2 != 0 or $n1 != 0 |
|
179
|
1 |
4 |
if $num >= '1000000000000000' |
|
188
|
22 |
0 |
if exists $Digit_words{$t} |
|
191
|
0 |
4 |
unless join("", @words) =~ /\S/ |
|
204
|
68 |
8 |
unless not length $w or $w eq "se" or not @a |