Branch Coverage

blib/lib/Acme/Pinoko.pm
Criterion Covered Total %
branch 4 80 5.0


line true false branch
40 0 2 ref $_[0] eq 'HASH' ? :
46 1 1 if (not exists $$options{$key}) { }
50 1 0 unless grep {$$options{'parser'} eq $_;} @PARSERS
65 0 0 unless defined $text
75 0 0 if ($$self{'parser_name'} eq 'Text::MeCab') { }
79 0 0 if (not $$self{'paser_config'}) { }
89 0 0 if (not $$self{'parser_config'}) { }
104 0 0 if ($$self{'parser_name'} eq 'Text::MeCab') { }
110 0 0 if ($text =~ /\s/)
122 0 0 if $node->stat == 2 or $node->stat == 3
129 0 0 if (not defined $pron or $pron eq '*') { }
131 0 0 if ($surface =~ /^\p{InKatakana}+$/) { }
168 0 0 if ($$poses_ref[$i] eq '記号' or $$poses_ref[$i] eq '補助記号' or $$prons_ref[$i] eq 'UNK' and $surf =~ /[^\p{InHalfwidthKatakana}]/ or $surf =~ /^[a-zA-Z\x{ff41}-\x{ff5a}\x{ff21}-\x{ff3a}0-9\x{ff10}-\x{ff19}]+$/) { }
0 0 elsif ($surf =~ /[^\p{InHiragana}]/) { }
179 0 0 if ($surf eq '手術' or $surf eq '笑' or $surf eq 'シーウーノ' or $surf eq 'アラマンチュ' or $surf eq 'シーウーノアラマンチュ' or $surf =~ /^\x{30a2}\x{30c3}\x{30c1}\x{30e7}\x{30f3}\x{30d6}\x{30ea}\x{30b1}\x{30fc}*/) { }
204 0 0 if ($surface =~ /[0-9\x{ff10}-\x{ff19}]*[\p{Han}\x{30b1}\x{30f6}]/) { }
207 0 0 if ($$self{'parser_name'} eq 'Text::MeCab') { }
213 0 0 if ($surface =~ /(?:\x{305a}|\x{3065})/) { }
223 0 0 if ($surface =~ /[\x{3042}-\x{304a}\x{3041}-\x{3049}\x{30a2}-\x{30aa}\x{30a1}-\x{30a9}]{1}/) { }
233 0 0 if ($regexp =~ /\(\.\+\)/)
241 0 0 if ($surface =~ /\p{Han}/) { }
246 0 0 if (not defined $pinoko_pron or $pron eq $pinoko_pron) { }
251 0 0 if ($surface =~ /[^\p{InHalfwidthKatakana}]/) { }
253 0 0 if ($surface =~ /^\p{InKatakana}+$/) { }
279 0 0 if ($pos eq '助詞' or $pos eq '語尾' or $pos eq '助動詞') { }
282 0 0 unless defined $next_pos
285 0 0 unless defined $next_surface
288 0 0 unless defined $next_next_surface
290 0 0 if (exists $HIRAGANA_INVALID_POS{$next_pos} or $next_surface eq '?' or $next_surface eq '?' or $next_pos eq '名詞' || $next_pos eq '記号' || $next_pos eq '補助記号' and not exists $TERMINATOR_CHAR{$next_surface} and $next_surface ne '・・' and not $next_surface eq '・' && $next_next_surface eq '・' and not $next_surface eq '・' && $next_next_surface eq '・' and not $next_surface =~ /^\x{ff57}+$/) { }
308 0 0 if ($pron eq 'わ') { }
0 0 elsif ($pron eq 'の') { }
0 0 elsif ($pron eq 'うよ') { }
0 0 elsif ($i != 0 and $pron eq 'よ' || $pron eq 'ね') { }
310 0 0 if (int rand 2 == 0) { }
315 0 0 if ($i != 0 and $$poses_ref[$i - 1] eq '名詞' and $next_surface eq '' || $next_surface =~ /\s/) { }
329 0 0 if ($pron eq 'よ') { }
331 0 0 if ($prev_surface eq 'わ' or $prev_surface eq 'だ') { }
0 0 elsif ($prev_surface ne 'の') { }
338 0 0 if ($prev_surface eq 'わ' or $prev_surface eq 'よ') { }
356 0 0 unless defined $_