| 13 |
|
|
| 14 |
my $out = $self->output; |
my $out = $self->output; |
| 15 |
|
|
|
$self->result->layer_uncertain ('encode'); |
|
| 16 |
$self->result->layer_uncertain ('charset'); |
$self->result->layer_uncertain ('charset'); |
| 17 |
|
|
| 18 |
$out->start_section (role => 'parse-errors'); |
$out->start_section (role => 'parse-errors'); |
| 44 |
my $s = \$input->{s}; |
my $s = \$input->{s}; |
| 45 |
my $charset; |
my $charset; |
| 46 |
unless ($input->{is_char_string}) { |
unless ($input->{is_char_string}) { |
| 47 |
|
$self->result->layer_uncertain ('encode'); |
| 48 |
require Encode; |
require Encode; |
| 49 |
if (defined $input->{charset}) {## TODO: IANA->Perl |
if (defined $input->{charset}) {## TODO: IANA->Perl |
| 50 |
$charset = $input->{charset}; |
$charset = $input->{charset}; |