| line |
true |
false |
branch |
|
130
|
0 |
68 |
unless defined $input |
|
136
|
48 |
20 |
if ($input =~ /^-?[0-9]+\.?[0-9]*$/) { } |
|
|
18 |
2 |
elsif ($input =~ /^-?[\x{e50}-\x{e59}]+\.?[\x{e50}-\x{e59}]*$/) { } |
|
175
|
12 |
1 |
unless (defined $$self{'thai'}) |
|
199
|
12 |
61 |
unless (defined $$self{'arabic'}) |
|
242
|
0 |
60 |
unless defined $output_mode |
|
244
|
0 |
60 |
unless defined $$SPELLING_OUTPUT_MODES{$output_mode} |
|
246
|
0 |
60 |
unless defined $informal |
|
254
|
0 |
60 |
if length $integer > 13 |
|
262
|
0 |
60 |
if (defined $sign and $sign eq '-') |
|
268
|
4 |
56 |
if (length $integer > 7) |
|
279
|
0 |
60 |
if (defined $decimals and $decimals ne '') |
|
289
|
30 |
30 |
$output_mode eq 'thai' ? : |
|
314
|
0 |
64 |
if length $integer > 7 |
|
324
|
132 |
84 |
if $digit eq '0' and $integer ne '0' |
|
327
|
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') { } |
|
335
|
6 |
10 |
if ($digit eq '1') { } |
|
|
6 |
4 |
elsif ($digit eq '2') { } |