SOAP-Lite
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
t/Issues/rt53375.t view on Meta::CPAN
use Test::More tests => 4;
use XML::Parser::Lite;
my $comment = '';
my $parser = new XML::Parser::Lite(
Handlers => {
Comment => sub { $comment .= $_[1]; },
}
);
my $xml = <<'EOT';
<?xml version="1.0" encoding="UTF-8"?>
<!-- seed-viewer -->
<test>
</test>
EOT
eval {
$parser->parse($xml);
};
ok(! $@);
is($comment, ' seed-viewer ');
$comment = '';
$xml = <<'EOT';
<?xml version="1.0" encoding="UTF-8"?>
<!-- seed_viewer -->
<test>
</test>
EOT
eval {
$parser->parse($xml);
};
ok(! $@);
is($comment, ' seed_viewer ');
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.638 second using v1.00-cache-2.02-grep-82fe00e-cpan-9f2165ba459b )