15 |
|
|
16 |
my $out = $self->output; |
my $out = $self->output; |
17 |
|
|
|
$self->result->layer_uncertain ('encode'); |
|
18 |
$self->result->layer_uncertain ('charset'); |
$self->result->layer_uncertain ('charset'); |
19 |
|
|
20 |
$out->start_section (role => 'parse-errors'); |
$out->start_section (role => 'parse-errors'); |
24 |
my $input = $self->input; |
my $input = $self->input; |
25 |
my $result = $self->result; |
my $result = $self->result; |
26 |
|
|
27 |
|
$self->result->layer_uncertain ('encode') unless $input->{is_char_string}; |
28 |
|
|
29 |
my $m = $input->{is_char_string} ? 'parse_char_string' : 'parse_byte_string'; |
my $m = $input->{is_char_string} ? 'parse_char_string' : 'parse_byte_string'; |
30 |
$self->{structure} = Whatpm::CacheManifest->$m |
$self->{structure} = Whatpm::CacheManifest->$m |
31 |
($input->{s}, $input->{uri}, $input->{base_uri}, sub { |
($input->{s}, $input->{uri}, $input->{base_uri}, sub { |