| line |
true |
false |
branch |
|
69
|
0 |
13 |
if $DEBUG |
|
74
|
1 |
13 |
if $num >= '1000000000000000' |
|
78
|
13 |
0 |
unless $num =~ /^(.+)[Ee](.+)$/u and @words = (n2w2($1), $Exp_word, n2w2($2)) |
|
94
|
2 |
11 |
if $num < 0 |
|
102
|
13 |
0 |
unless $num =~ /^(.+)\Q$Dec_char\E(.+)$/ou and @words = (n2w3($1), $Dec_word, n2w5($2)) or $num =~ /^\Q$Dec_char\E(.+)$/ou and @words = ($Digit_words{'0'}, $Dec_word, n2w5($1)) |
|
107
|
2 |
11 |
if $is_neg |
|
126
|
17 |
8 |
if $t > 0 |
|
131
|
1 |
12 |
unless join("", @words) =~ /\S/u |
|
150
|
6 |
10 |
if $n3 == 0 and $n2 == 0 and $n1 > 0 |
|
153
|
22 |
3 |
unless $n3 == 1 and @words = "seratus" |
|
158
|
1 |
24 |
if $n2 == 1 |
|
161
|
7 |
18 |
if ($n2 > 1) |
|
163
|
6 |
1 |
if $n1 > 0 |
|
167
|
0 |
9 |
if $n3 > 0 and $n2 == 0 and $n1 > 0 |
|
169
|
17 |
8 |
if $n3 != 0 or $n2 != 0 or $n1 != 0 |
|
178
|
1 |
4 |
if $num >= '1000000000000000' |
|
187
|
22 |
0 |
if exists $Digit_words{$t} |
|
190
|
0 |
4 |
unless join("", @words) =~ /\S/u |
|
203
|
68 |
8 |
unless not length $w or $w eq "se" or not @a |