line |
true |
false |
branch |
20
|
1 |
12 |
if ($kana eq $n) |
23
|
11 |
1 |
if (chouon($kana, $n)) |
25
|
10 |
1 |
if ($gotcha) |
46
|
1 |
10 |
if ($edits =~ /ii|dd|rr/) |
57
|
0 |
10 |
if ($debug) |
71
|
0 |
62 |
if ($debug) |
74
|
6 |
56 |
if ($edit eq 'r') { } |
|
5 |
51 |
elsif ($edit eq 'd') { } |
|
0 |
51 |
elsif ($edit eq 'i') { } |
|
51 |
0 |
elsif ($edit eq 'k') { } |
80
|
0 |
6 |
if ($debug) |
83
|
3 |
3 |
if ($k =~ /[\x{30fc}\x{30a3}\x{30a4}]/ and $q =~ /[\x{30fc}\x{30a3}\x{30a4}]/) |
88
|
2 |
1 |
if (ends_in_e(\@kana, $i)) |
91
|
3 |
0 |
if ($k eq 'ー' and $q eq 'イ' or $q eq 'ー' and $k eq 'イ') |
93
|
1 |
2 |
if (ends_in_i(\@kana, $i)) |
98
|
1 |
5 |
if ($k =~ /[\x{30fc}\x{30c3}]/ and $q =~ /[\x{30fc}\x{30c3}]/) |
105
|
2 |
4 |
if ($k eq 'ー' and $q eq 'ウ' or $q eq 'ー' and $k eq 'ウ') |
107
|
2 |
0 |
if (ends_in_ou(\@kana, $i)) |
124
|
3 |
0 |
if ($k eq 'ー' or $k eq '・' or $k eq 'ッ') |
132
|
5 |
0 |
if ($j < scalar @kana) |
134
|
0 |
5 |
unless (defined $q) |
137
|
2 |
3 |
if ($q =~ /[\x{30fc}\x{30a3}\x{30a4}]/) |
138
|
0 |
2 |
if (ends_in_e(\@kana, $i)) |
151
|
0 |
0 |
if ($k eq 'ー' or $k eq '・' or $k eq 'ッ') |
172
|
0 |
10 |
if ($i != scalar @kana) |
175
|
0 |
10 |
if ($j != scalar @nkana) |
187
|
5 |
0 |
if ($i >= 1) |
190
|
2 |
3 |
if ($prev =~ /e$/) |
203
|
2 |
0 |
if ($i >= 1) |
206
|
2 |
0 |
if ($prev =~ /[ou]$/) |
218
|
3 |
0 |
if ($i >= 1) |
221
|
1 |
2 |
if ($prev =~ /i$/) |
238
|
1 |
11 |
if ($mismatch) |
242
|
0 |
11 |
if ($mismatch) |
245
|
11 |
0 |
if ($found) |
270
|
110 |
18 |
if $$xa{$k} |
271
|
5 |
1 |
if ($k eq 'ー' or $k eq 'イ' or $k eq 'ィ' or $k eq '・' or $k eq 'ッ' or $k eq 'ウ') |
282
|
16 |
6 |
if ($ok) |