Branch Coverage

blib/lib/Acme/AjiFry.pm
Criterion Covered Total %
branch 2 114 1.7


line true false branch
72 0 2 unless ($raw_string)
73 0 0 if $chomped
79 0 0 if $chomped
92 0 1 unless ($ajifry_word)
93 0 0 if $chomped
99 0 0 if $chomped
112 0 0 if (&List::Util::first(sub { $_ eq $element; } , @{$$hash{$key};}))
121 0 0 &List::Util::first(sub { $_ eq $key; } , @$list) ? :
131 0 0 if ($element_A eq $element_B)
143 0 0 if ($consonant eq 'a') { }
0 0 elsif ($consonant eq 'k') { }
0 0 elsif ($consonant eq 's') { }
0 0 elsif ($consonant eq 't') { }
0 0 elsif ($consonant eq 'n') { }
0 0 elsif ($consonant eq 'h') { }
0 0 elsif ($consonant eq 'm') { }
0 0 elsif ($consonant eq 'y') { }
0 0 elsif ($consonant eq 'r') { }
0 0 elsif ($consonant eq 'w') { }
182 0 0 if ($vowel eq 'a') { }
0 0 elsif ($vowel eq 'i') { }
0 0 elsif ($vowel eq 'u') { }
0 0 elsif ($vowel eq 'e') { }
0 0 elsif ($vowel eq 'o') { }
0 0 elsif ($vowel eq 'n') { }
209 0 0 if ($ajifry_word eq '食え') { }
0 0 elsif ($ajifry_word eq 'フライ') { }
0 0 elsif ($ajifry_word eq 'お刺身') { }
0 0 elsif ($ajifry_word eq 'アジ') { }
0 0 elsif ($ajifry_word eq 'ドボ') { }
0 0 elsif ($ajifry_word eq '山岡') { }
0 0 elsif ($ajifry_word eq '岡星') { }
0 0 elsif ($ajifry_word eq 'ゴク・・・' or $ajifry_word eq 'ゴク・・・' or $ajifry_word eq 'ゴク…') { }
0 0 elsif ($ajifry_word eq 'ああ') { }
0 0 elsif ($ajifry_word eq '雄山') { }
251 0 0 if ($ajifry_word eq '食え食え') { }
0 0 elsif ($ajifry_word eq 'ドボドボ') { }
0 0 elsif ($ajifry_word eq 'お刺身') { }
0 0 elsif ($ajifry_word eq 'むむ・・・' or $ajifry_word eq 'むむ・・・' or $ajifry_word eq 'むむ…') { }
0 0 elsif ($ajifry_word eq 'アジフライ') { }
284 0 0 unless ($vowel or $consonant)
289 0 0 if $self->_find_first($raw_char, ['ぁ', 'ぃ', 'ぅ', 'ぇ', 'ぉ', 'っ', 'ゃ', 'ゅ', 'ょ', 'ゎ'])
293 0 0 if $self->_find_first($raw_char, ['ぱ', 'ぴ', 'ぷ', 'ぺ', 'ぽ'])
294 0 0 if $self->_find_first($raw_char, ['が', 'ぎ', 'ぐ', 'げ', 'ご', 'ざ', 'じ', 'ず', 'ぜ', 'ぞ', 'だ', 'ぢ', 'づ', 'で', 'ど', 'ば', 'び', 'ぶ', 'べ', 'ぼ'])
305 0 0 unless ($ajifry_word)
310 0 0 if ($ajifry_word =~ s/^\x{4eac}\x{6975}//) { }
0 0 elsif ($ajifry_word =~ s/^\x{4e2d}\x{5ddd}//) { }
319 0 0 if ($ajifry_word =~ s/^(\x{98df}\x{3048}|\x{30d5}\x{30e9}\x{30a4}|\x{304a}\x{523a}\x{8eab}|\x{30a2}\x{30b8}|\x{30c9}\x{30dc}|\x{5c71}\x{5ca1}|\x{5ca1}\x{661f}|\x{30b4}\x{30af}\x{30fb}\x{30fb}\x{30fb}|\x{30b4}\x{30af}\x{ff65}\x{ff65}\x{ff65}|\x{30b4}\x{30af}\x{2026}|\x{3042}\x{3042}|\x{96c4}\x{5c71})//)
324 0 0 unless ($consonant)
330 0 0 if ($ajifry_word =~ s/^(\x{98df}\x{3048}\x{98df}\x{3048}|\x{30c9}\x{30dc}\x{30c9}\x{30dc}|\x{304a}\x{523a}\x{8eab}|\x{3080}\x{3080}\x{30fb}\x{30fb}\x{30fb}|\x{3080}\x{3080}\x{ff65}\x{ff65}\x{ff65}|\x{3080}\x{3080}\x{2026}|\x{30a2}\x{30b8}\x{30d5}\x{30e9}\x{30a4})//)
335 0 0 unless ($vowel)
343 0 0 if $ajifry_word =~ s/^(\x{9676}\x{4eba})//
345 0 0 if $ajifry_word =~ s/^(\x{793e}\x{4e3b})//
353 0 0 if ($is_p_sound) { }
0 0 elsif ($is_dullness) { }
0 0 elsif ($is_double_consonant and $consonant eq 't') { }
0 0 elsif ($is_double_consonant) { }