| line |
true |
false |
branch |
|
74
|
0 |
66 |
if $DEBUG |
|
82
|
0 |
6 |
if ($words =~ /(.+)\b$Exp_pat\b(.+)/u) { } |
|
87
|
0 |
0 |
if defined $num1 |
|
92
|
2 |
4 |
unless defined $num1 |
|
105
|
0 |
6 |
if ($words =~ /^[\s\t]*$Neg_pat\b(.+)/u) { } |
|
108
|
0 |
0 |
unless defined $num1 |
|
114
|
2 |
4 |
unless defined $num1 |
|
127
|
0 |
6 |
if ($words =~ /(.+)\b$Dec_pat\b(.+)/u) { } |
|
131
|
0 |
0 |
if defined $num1 |
|
137
|
2 |
4 |
unless defined $num1 |
|
153
|
2 |
4 |
if defined $words[0] and $words[0] eq "ERR" |
|
157
|
8 |
6 |
if (defined $Digits{$w}) { } |
|
|
0 |
6 |
elsif ($w eq 'belas') { } |
|
160
|
8 |
0 |
unless ($seen_digits and do {
push @nums, 10 * pop(@nums) + $Digits{$w}
}) |
|
165
|
0 |
0 |
unless $seen_digits |
|
172
|
0 |
6 |
unless @nums |
|
178
|
4 |
2 |
if ($aa > $Mults{$w}) |
|
197
|
0 |
0 |
if defined $words[0] and $words[0] eq "ERR" |
|
202
|
0 |
0 |
unless defined $Digits{$w} |
|
219
|
2 |
12 |
if ($w =~ /^se(.+)$/u and defined $Words{$1}) { } |
|
|
0 |
12 |
elsif ($w =~ /^(.+)(belas|puluh|ratus|ribu|juta|mil[iy]ard?|tril[iy]un)$/u and defined $Words{$1}) { } |
|
|
10 |
2 |
elsif (defined $Words{$w}) { } |