| line |
true |
false |
branch |
|
129
|
0 |
68 |
unless defined $input |
|
135
|
48 |
20 |
if ($input =~ /^-?[0-9]+\.?[0-9]*$/) { } |
|
|
18 |
2 |
elsif ($input =~ /^-?[\x{e50}-\x{e59}]+\.?[\x{e50}-\x{e59}]*$/) { } |
|
174
|
12 |
1 |
unless (defined $self->{'thai'}) |
|
198
|
12 |
61 |
unless (defined $self->{'arabic'}) |
|
241
|
0 |
60 |
unless defined $output_mode |
|
244
|
0 |
60 |
unless defined $Lingua::TH::Numbers::SPELLING_OUTPUT_MODES->{$output_mode} |
|
245
|
0 |
60 |
unless defined $informal |
|
253
|
0 |
60 |
if length $integer > 13 |
|
261
|
0 |
60 |
if (defined $sign and $sign eq '-') |
|
267
|
4 |
56 |
if (length $integer > 7) |
|
278
|
0 |
60 |
if (defined $decimals and $decimals ne '') |
|
288
|
30 |
30 |
$output_mode eq 'thai' ? : |
|
313
|
0 |
64 |
if length $integer > 7 |
|
323
|
132 |
84 |
if $digit eq '0' and $integer ne '0' |
|
326
|
4 |
80 |
if ($power_of_ten == 0 and $digit eq '1' and $integer ne '1') { } |
|
|
16 |
64 |
elsif ($power_of_ten == 1) { } |
|
|
14 |
50 |
elsif ($is_informal and $power_of_ten >= 2 and $digit eq '1') { } |
|
334
|
6 |
10 |
if ($digit eq '1') { } |
|
|
6 |
4 |
elsif ($digit eq '2') { } |