Branch Coverage

blib/lib/AozoraBunko/Tools/Checkerkun.pm
Criterion Covered Total %
branch 45 48 93.7


line true false branch
64 29 6 ref $_[0] eq 'HASH' ? :
70 2 369 if (not exists $options->{$key}) { }
96 7 1997 if $rear_index > $#{$chars_ref;}
98 2004 0 if (join('', @{$chars_ref;}[$index .. $rear_index]) =~ /^(\x{ff3b}\x{ff03}.*?\x{6c34}\x{6e96}(\d+\-\d+\-\d+).*?\x{ff3d})/)
103 1002 1002 if ($self->{'78hosetsu_tekiyo'} and exists $AozoraBunko::Tools::Checkerkun::KUTENMEN_78HOSETSU_TEKIYO->{$kutenmen}) { }
1002 0 elsif ($self->{'hosetsu_tekiyo'} and exists $AozoraBunko::Tools::Checkerkun::KUTENMEN_HOSETSU_TEKIYO->{$kutenmen}) { }
123 2002 8 if $@
131 1 29 unless defined $text
141 32 4288 if ($self->{'simplesp'})
143 4 28 if $char eq ' '
144 4 28 if $char eq "\x{3000}"
149 2 4318 if ($char =~ /[\x{0000}-\x{0009}\x{000B}\x{000C}\x{000E}-\x{001F}\x{007F}-\x{009F}]/) { }
2 4316 elsif ($char =~ /\p{InHalfwidthKatakana}/) { }
2 4314 elsif ($self->{'hansp'} and $char =~ / /) { }
2 4312 elsif ($self->{'zensp'} and $char eq "\x{3000}") { }
4 4308 elsif ($self->{'hanpar'} and $char eq '(' || $char eq ')') { }
2004 2304 elsif ($char eq "\x{203b}" and $self->{'78hosetsu_tekiyo'} || $self->{'hosetsu_tekiyo'}) { }
174 2004 0 if ($replace)
183 2 2302 if ($self->{'78'} and $AozoraBunko::Tools::Checkerkun::J78->{$char}) { }
2 2300 elsif ($self->{'jyogai'} and $AozoraBunko::Tools::Checkerkun::JYOGAI->{$char}) { }
4 2296 elsif ($self->{'gonin1'} and $AozoraBunko::Tools::Checkerkun::GONIN1->{$char}) { }
4 2292 elsif ($self->{'gonin2'} and $AozoraBunko::Tools::Checkerkun::GONIN2->{$char}) { }
4 2288 elsif ($self->{'gonin3'} and $AozoraBunko::Tools::Checkerkun::GONIN3->{$char}) { }
205 2002 314 if $self->{'gaiji'} and _is_gaiji($char)