Branch Coverage

blib/lib/AozoraBunko/Checkerkun.pm
Criterion Covered Total %
branch 110 132 83.3


line true false branch
76 64 6 ref $_[0] eq 'HASH' ? :
82 2 961 if (not exists $options->{$key}) { }
85 66 895 if ($key eq 'output_format')
87 1 65 unless exists $VALID_OUTPUT_FORMAT{$args{$key}}
101 8 4046 unless defined $msg
124 14 3994 if $rear_index > $#{$chars_ref;}
126 4008 0 if (join('', @{$chars_ref;}[$index .. $rear_index]) =~ /^(\x{203b}\x{ff3b}\x{ff03}.*?\x{6c34}\x{6e96}(\d+\-\d+\-\d+).*?\x{ff3d})/)
130 2004 2004 if ($self->{'78hosetsu_tekiyo'} and exists $AozoraBunko::Checkerkun::KUTENMEN_78HOSETSU_TEKIYO->{$kutenmen}) { }
2004 0 elsif ($self->{'hosetsu_tekiyo'} and exists $AozoraBunko::Checkerkun::KUTENMEN_HOSETSU_TEKIYO->{$kutenmen}) { }
132 1002 1002 if ($self->{'output_format'} eq 'plaintext') { }
1002 0 elsif ($self->{'output_format'} eq 'html') { }
145 1002 1002 if ($self->{'output_format'} eq 'plaintext') { }
1002 0 elsif ($self->{'output_format'} eq 'html') { }
166 12 4004 length $ENC->encode($char, &Encode::FB_QUIET()) ? :
173 1 62 unless defined $text
185 16 48 if ($self->{'simplesp'} and $char eq ' ' || $char eq "\x{3000}")
187 8 8 if ($output_format eq 'plaintext') { }
8 0 elsif ($output_format eq 'html') { }
189 4 4 if ($char eq ' ') { }
4 0 elsif ($char eq "\x{3000}") { }
194 4 4 if ($char eq ' ') { }
4 0 elsif ($char eq "\x{3000}") { }
201 8 8700 if ($char =~ /[\x{0000}-\x{0009}\x{000B}\x{000C}\x{000E}-\x{001F}\x{007F}-\x{009F}]/) { }
8 8692 elsif ($char =~ /\p{InHalfwidthKatakana}/) { }
4 8688 elsif ($self->{'hansp'} and $char eq ' ') { }
4 8684 elsif ($self->{'zensp'} and $char eq "\x{3000}") { }
4 8680 elsif ($self->{'zentilde'} and $char eq "\x{ff5e}") { }
8 8672 elsif ($self->{'hanpar'} and $char eq '(' || $char eq ')') { }
4008 4664 elsif ($char eq "\x{203b}" and $self->{'78hosetsu_tekiyo'} || $self->{'hosetsu_tekiyo'}) { }
205 4 4 if ($output_format eq 'plaintext') { }
4 0 elsif ($output_format eq 'html') { }
216 4 4 if ($output_format eq 'plaintext') { }
4 0 elsif ($output_format eq 'html') { }
227 2 2 if ($output_format eq 'plaintext') { }
2 0 elsif ($output_format eq 'html') { }
238 2 2 if ($output_format eq 'plaintext') { }
2 0 elsif ($output_format eq 'html') { }
249 2 2 if ($output_format eq 'plaintext') { }
2 0 elsif ($output_format eq 'html') { }
260 4 4 if ($output_format eq 'plaintext') { }
4 0 elsif ($output_format eq 'html') { }
273 4008 0 if ($replace)
286 4 4660 if ($self->{'78'} and $AozoraBunko::Checkerkun::J78->{$char}) { }
4 4656 elsif ($self->{'jyogai'} and $AozoraBunko::Checkerkun::JYOGAI->{$char}) { }
8 4648 elsif ($self->{'kouetsukun'} and $AozoraBunko::Checkerkun::KYUJI->{$char}) { }
4 4644 elsif ($self->{'kouetsukun'} and $AozoraBunko::Checkerkun::ITAIJI->{$char}) { }
8 4636 elsif ($self->{'gonin1'} and $AozoraBunko::Checkerkun::GONIN1->{$char}) { }
8 4628 elsif ($self->{'gonin2'} and $AozoraBunko::Checkerkun::GONIN2->{$char}) { }
8 4620 elsif ($self->{'gonin3'} and $AozoraBunko::Checkerkun::GONIN3->{$char}) { }
4004 616 elsif ($self->{'gaiji'} and _is_gaiji($char)) { }
288 2 2 if ($output_format eq 'plaintext') { }
2 0 elsif ($output_format eq 'html') { }
299 2 2 if ($output_format eq 'plaintext') { }
2 0 elsif ($output_format eq 'html') { }
310 4 4 if ($output_format eq 'plaintext') { }
4 0 elsif ($output_format eq 'html') { }
321 2 2 if ($output_format eq 'plaintext') { }
2 0 elsif ($output_format eq 'html') { }
332 4 4 if ($output_format eq 'plaintext') { }
4 0 elsif ($output_format eq 'html') { }
343 4 4 if ($output_format eq 'plaintext') { }
4 0 elsif ($output_format eq 'html') { }
354 4 4 if ($output_format eq 'plaintext') { }
4 0 elsif ($output_format eq 'html') { }
367 2002 2002 if ($output_format eq 'plaintext') { }
2002 0 elsif ($output_format eq 'html') { }