XML validation: Difference between revisions

m
Line 195:
use 5.018_002;
use warnings;
use Carp;
use English qw( -no_match_vars );
use Try::Tiny;
use XML::LibXML;
Line 217 ⟶ 215:
for ( \$good_xml, \$bad_xml ) {
try {
$xmlschema->validate( ${$ARG_} );
}
finally {
if (@ARG_) {
say "Not valid: @ARG_";
}
else {
Anonymous user