Bug 2505 - Add commented use warnings where missing in the misc/ directory
[wip/koha-chris_n.git] / 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 }