misc/sax_parser_test.pl

   1 #!/usr/bin/perl
   2 #use strict;
   3 #use warnings; FIXME - Bug 2505
   4 use XML::SAX;
   5 my $parser = XML::SAX::ParserFactory->parser(
   6 Handler => MySAXHandler->new
   7 );
   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>");
  12
  13 package MySAXHandler;
  14
  15 use base qw(XML::SAX::Base);
  16 sub start_document {
  17  my ($self, $doc) = @_;
  18  # process document start event
  19 }
  20
  21 sub start_element {
  22  my ($self, $el) = @_;
  23  # process element start event
  24 }