| line |
true |
false |
branch |
|
72
|
0 |
13 |
if $DEBUG |
|
77
|
1 |
13 |
if $num >= '1000000000000000' |
|
81
|
13 |
0 |
unless $num =~ /^(.+)[Ee](.+)$/u and @words = (n2w2($1), $Exp_word, n2w2($2)) |
|
97
|
2 |
11 |
if $num < 0 |
|
105
|
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)) |
|
110
|
2 |
11 |
if $is_neg |
|
129
|
17 |
8 |
if $t > 0 |
|
134
|
1 |
12 |
unless join("", @words) =~ /\S/u |
|
153
|
6 |
10 |
if $n3 == 0 and $n2 == 0 and $n1 > 0 |
|
156
|
22 |
3 |
unless $n3 == 1 and @words = "seratus" |
|
161
|
1 |
24 |
if $n2 == 1 |
|
164
|
7 |
18 |
if ($n2 > 1) |
|
166
|
6 |
1 |
if $n1 > 0 |
|
170
|
0 |
9 |
if $n3 > 0 and $n2 == 0 and $n1 > 0 |
|
172
|
17 |
8 |
if $n3 != 0 or $n2 != 0 or $n1 != 0 |
|
181
|
1 |
4 |
if $num >= '1000000000000000' |
|
190
|
22 |
0 |
if exists $Digit_words{$t} |
|
193
|
0 |
4 |
unless join("", @words) =~ /\S/u |
|
206
|
68 |
8 |
unless not length $w or $w eq "se" or not @a |
|
219
|
0 |
0 |
if not defined $number && $number =~ /\A\d+\z/msux or $number < 1 or $number > '999999999999' |
|
227
|
0 |
0 |
if $number == 1 |