39 |
$self->result->layer_applicable ('charset'); |
$self->result->layer_applicable ('charset'); |
40 |
my $char_checker = sub ($) { |
my $char_checker = sub ($) { |
41 |
require Whatpm::Charset::UnicodeChecker; |
require Whatpm::Charset::UnicodeChecker; |
42 |
return Whatpm::Charset::UnicodeChecker->new_handle ($_[0]); |
return Whatpm::Charset::UnicodeChecker->new_handle ($_[0], 'html5'); |
43 |
}; # $char_checker |
}; # $char_checker |
44 |
|
|
45 |
my $dom = Message::DOM::DOMImplementation->new; |
my $dom = Message::DOM::DOMImplementation->new; |