$context->exception("invalid attribute '".$attr->name."'")
unless $lax;
}
}
(%rv);
}
use JSON;
sub accept_childnodes {
my $self = shift;
my ( $childNodes, $context, $lax ) = pos
nt->type_constraint) {
if ( !$t_c->check($val) ) {
if ( ref $val ) {
$val = encode_json $val;
}
die "value '$val' failed type check";
}
}
( ( ( $element->has_x