use strict;
use warnings;
use XML::LibXML qw( );
my $xhtml = <<'__EOI__';
Test
Test
__EOI__
my $parser = XML::LibXML->new(
ext_ent_handler => sub {
use Data::Dumper;
local $Data::Dumper::Useqq = 1;
print(Dumper(\@_));
return "";
},
);
$parser->parse_string($xhtml);
####
$VAR1 = [
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd",
"-//W3C//DTD XHTML 1.0 Strict//EN"
];