| line |
true |
false |
branch |
|
81
|
0 |
31 |
unless exists $DIGIT{$script} |
|
83
|
0 |
31 |
if not defined $n && $n =~ /\A\d+\z/msux or $n < 1 or $n >= "1e+16" |
|
97
|
0 |
8 |
unless exists $DIGIT{$script} |
|
99
|
0 |
8 |
if not defined $n && $n =~ /\A\d+\z/msux or $n < 1 or $n >= "1e+16" |
|
103
|
3 |
5 |
if ($script eq "romaji") |
|
134
|
0 |
5 |
if (not defined $n or $n < 1 or $n >= "1e+16") |
|
147
|
2 |
7 |
if ($bix and @r) |
|
148
|
1 |
1 |
if ($bix == 3 and $b =~ /[1-9]0$|[18]$/u) { } |
|
164
|
0 |
9 |
if $n > 9999 or $n < 0 |
|
165
|
0 |
9 |
unless $n |
|
172
|
23 |
13 |
unless $digits[$i] |
|
200
|
39 |
7 |
if ($block) |
|
202
|
1 |
38 |
if ($bix == 3 and exists $CHO_IRREGULAR{$script}{$block}) { } |
|
208
|
3 |
35 |
if $bix > 0 |
|
224
|
0 |
38 |
unless $n |
|
232
|
11 |
27 |
if (my $th = int $n / 1000) |
|
233
|
6 |
5 |
if (exists $THOUSAND_IRREGULAR{$script}{$th}) { } |
|
|
5 |
0 |
elsif ($th == 1) { } |
|
246
|
14 |
24 |
if (my $h = int $n / 100) |
|
247
|
8 |
6 |
if (exists $HUNDRED_IRREGULAR{$script}{$h}) { } |
|
|
3 |
3 |
elsif ($h == 1) { } |
|
260
|
9 |
29 |
if (my $t = int $n / 10) |
|
261
|
5 |
4 |
if ($t == 1) { } |
|
271
|
15 |
23 |
if $n |
|
281
|
0 |
77 |
unless @{$parts_lr;} |
|
284
|
26 |
51 |
$script eq 'romaji' ? : |