Branch Coverage

blib/lib/Encode/Korean/TransliteratorGenerator.pm
Criterion Covered Total %
branch 18 84 21.4


line true false branch
59 11 56 if (@_)
98 11 847 if (@_)
104 0 691 if (@_)
111 11 0 if (@_)
120 11 1166 if (@_)
129 8 0 if (@_)
148 8 0 if (@_)
157 10 0 if (@_)
167 11 0 if (@_)
176 12 0 if (@_)
184 10 0 if (@_)
196 0 209 if ($self->head->[$i] eq '' and $i != 11)
200 0 209 if (exists $$self{'HEADMAP'}{$self->head->[$i]}) { }
209 0 231 if ($self->body->[$i] eq '')
214 0 231 if (exists $$self{'BODYMAP'}{$self->body->[$i]}) { }
235 0 0 if $chk
243 0 0 if $chk
304 0 0 if ($self->enmode eq 'greedy' and $head == 11) { }
314 0 0 if ($head == 11) { }
331 0 0 if ($MODE{$self->enmode} == $GREEDY_SEP) { }
350 0 0 if (ord $c >= 44032 and ord $c <= 55203) { }
369 0 0 if ($w =~ /^[\x{AC00}-\x{D7A3}]+$/) { }
396 0 0 if ($sep ne '') { }
428 0 0 if ($_ eq substr($str, 0, length $_))
429 0 0 if ($found eq $NotFound) { }
0 0 elsif (length $found < length $_) { }
503 0 0 if ($body eq $NotFound) { }
0 0 elsif ($head eq $NotFound) { }
534 0 0 if ($head eq $NotFound and $body eq $NotFound) { }
0 0 elsif ($head ne $NotFound and $body eq $NotFound) { }
537 0 0 if ($right ne '')
541 0 0 if ($right ne '')
543 0 0 if ($head eq $NotFound)
546 0 0 if ($foot eq $NotFound or $foot eq $FILL) { }
0 0 elsif ($right eq '') { }
549 0 0 if ($right ne '')
556 0 0 if ($look_ahead_token eq $NotFound or $look_ahead_token eq $NAUGHT) { }
559 0 0 if ($right ne '')
564 0 0 if ($right ne '')
601 0 0 if ($_ eq substr($foot_p, length($foot_p) - length($_)))
602 0 0 if ($found eq $NotFound) { }
0 0 elsif (length $found < length $_) { }