| line |
true |
false |
branch |
|
133
|
47 |
22 |
if ($index + 1 < length $string) |
|
137
|
61 |
8 |
if (not $hepburn and $index < length $string) |
|
148
|
0 |
21 |
unless (utf8::is_utf8($string)) |
|
154
|
3 |
18 |
if ($$self{'strict'}) |
|
155
|
2 |
1 |
unless $string =~ /^\p{Hiragana}*$/ |
|
168
|
3 |
57 |
if ($$hr{'char'} eq 'ん') { } |
|
|
6 |
51 |
elsif ($$hr{'char'} eq 'っ') { } |
|
|
1 |
50 |
elsif ($$hr{'char'} eq 'ー') { } |
|
|
1 |
89 |
elsif ($$hr{'char'} =~ /[\x{3041}-\x{3049}]/ and $$self{'strict'}) { } |
|
170
|
3 |
0 |
$$next{'hepburn'} && $$next{'hepburn'} =~ /^[BMP]/ ? : |
|
179
|
6 |
0 |
if ($$next{'hepburn'}) |
|
180
|
4 |
2 |
$$next{'hepburn'} =~ /^CH/ ? : |
|
195
|
59 |
0 |
if (defined $$hr{'hepburn'}) { } |
|
196
|
34 |
25 |
if ($last_hepburn) |
|
198
|
31 |
3 |
if (length $h_test > 2) |
|
203
|
4 |
30 |
if (grep(($h_test eq $_), ('AA', 'II', 'UU', 'EE'))) |
|
209
|
6 |
28 |
if (grep(($h_test eq $_), ('OO', 'OU'))) |
|
210
|
3 |
3 |
$$self{'long_vowels_h'} ? : |
|
216
|
0 |
0 |
if ($$self{'strict'}) |