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) { } |