gistfile1.txt

use LibXML::Raw;
use LibXML::Parser::Context;
my $raw = xmlMemoryParserCtxt.new: :string<foo>;
my LibXML::Parser::Context $*XML-CONTEXT .= new: :$raw;
sub structured-error-cb($ctx, xmlError:D $err) {
    $*XML-CONTEXT.structured-error($err);
}
$*XML-CONTEXT.raw.SetStructuredErrorFunc: &structured-error-cb;
for 1..250 {
    $raw.ParseDocument;
    try { $*XML-CONTEXT.flush-errors;  }
}

warn "done";