Branch Coverage

blib/lib/HTML/HTML5/Parser/Charset/Info.pm
Criterion Covered Total %
branch 25 68 36.7


line true false branch
1091 0 2 unless ($HTML::HTML5::Parser::Charset::Info::HTMLCharset->{$name} or $HTML::HTML5::Parser::Charset::Info::IANACharset->{$name})
1106 0 0 unless ($HTML::HTML5::Parser::Charset::Info::IANACharset->{$name})
1144 713 0 $opt{'byte_buffer'} ? :
1157 0 713 if ($self->{'iana_names'}{'iso-2022-jp'}) { }
0 713 elsif ($self->{'xml_names'}{'iso-2022-jp'}) { }
1165 0 0 if (&Encode::find_encoding($obj->{'state_2440'}) and &Encode::find_encoding($obj->{'state_2442'}))
1178 0 0 if (&Encode::find_encoding($obj->{'state_2440'}) and &Encode::find_encoding($obj->{'state_2442'}))
1187 713 0 if ($e) { }
1189 0 713 unless ($self->{'category'} & 1)
1206 0 713 if ($name eq 'euc-jp-1997') { }
0 713 elsif ($name eq 'shift-jis-1997') { }
2 711 elsif ({'web-latin1', 1, 'web-latin1-us-ascii', 1, 'web-latin5', 1}->{$name}) { }
0 711 elsif ($name eq 'web-thai' or $name eq 'web-tis-620') { }
1219 713 0 if ($opt{'allow_error_reporting'})
1220 0 713 unless $self->{'perl_names'}
1222 2 713 unless $perl_status & 32
1223 0 713 if $perl_status & 16
1225 0 713 if $perl_status & 64 and not $opt{'allow_semiconforming'}
1229 713 0 if ($e and $e->name eq $perl_name)
1240 0 0 unless $self->{'perl_names'}
1242 0 0 if $perl_status & 32
1243 0 0 if $perl_status & 16
1245 0 0 if $perl_status & 64 and not $opt{'allow_semiconforming'}
1249 0 0 if ($e)
1254 0 0 if ($opt{'allow_fallback'})
1255 0 0 unless $self->{'perl_names'}
1257 0 0 unless $perl_status & 16 or $perl_status & 64
1267 0 0 if ($e)
1272 0 0 unless $self->{'iana_names'}
1275 0 0 if ($e)
1289 0 714 unless $self->{'iana_names'}
1291 4 1424 if ($name_status & 8) { }
710 714 elsif ($name_status & 4) { }
4 710 elsif ($name_status & 2) { }