3 #use warnings; FIXME - Bug 2505
5 my $parser = XML
::SAX
::ParserFactory
->parser(
6 Handler
=> MySAXHandler
->new
8 binmode STDOUT
, ":utf8";
9 print "\x{65}\x{301}\n";
10 use Encode
; $parser->parse_string(encode_utf8
("<xml>\x{65}\x{301}</xml>"));
11 $parser->parse_string("<xml>\xEF\xBB\xBF\x{65}\x{301}</xml>");
15 use base
qw(XML::SAX::Base);
17 my ($self, $doc) = @_;
18 # process document start event
23 # process element start event