use strict; use warnings; use Test; BEGIN { plan tests => 4 } use XML::SAX::PurePerl; my $handler = AttrHandler->new(); ok($handler); my $parser = XML::SAX::PurePerl->new(Handler => $handler); ok($parser); $parser->parse_string('<code amp="&amp;" x3E="&#x3E;" num="&#65;" />'); ok(1); # parser didn't die my $expected = "amp=& num=A x3E=> "; ok($handler->attributes, $expected); exit; package AttrHandler; use base 'XML::SAX::Base'; sub start_document { shift->{_buf} = ''; } sub attributes { shift->{_buf}; } sub start_element { my($self, $data) = @_; my $attr = $data->{Attributes}; foreach (sort keys %$attr) { $self->{_buf} .= "$attr->{$_}->{LocalName}=$attr->{$_}->{Value} "; } }