| 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) |