| line |
true |
false |
branch |
|
70
|
0 |
13 |
if $DEBUG |
|
75
|
1 |
13 |
if $num >= 1000000000000000 |
|
79
|
13 |
0 |
unless $num =~ /^(.+)[Ee](.+)$/ and @words = (n2w2($1), $Exp_word, n2w2($2)) |
|
95
|
2 |
11 |
if $num < 0 |
|
99
|
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)) |
|
108
|
2 |
11 |
if $is_neg |
|
128
|
17 |
8 |
if $t > 0 |
|
133
|
1 |
12 |
unless join('', @words) =~ /\S/ |
|
150
|
6 |
10 |
if $n3 == 0 and $n2 == 0 and $n1 > 0 |
|
154
|
22 |
3 |
unless $n3 == 1 and @words = 'seratus' |
|
157
|
1 |
24 |
if $n2 == 1 |
|
163
|
7 |
18 |
if ($n2 > 1) |
|
165
|
6 |
1 |
if $n1 > 0 |
|
168
|
0 |
9 |
if $n3 > 0 and $n2 == 0 and $n1 > 0 |
|
171
|
17 |
8 |
if $n3 != 0 or $n2 != 0 or $n1 != 0 |
|
180
|
1 |
4 |
if $num >= 1000000000000000 |
|
188
|
22 |
0 |
if exists $Digit_words{$t} |
|
192
|
0 |
4 |
unless join('', @words) =~ /\S/ |
|
205
|
68 |
8 |
unless not length $w or $w eq 'se' or not @a |