my $sub = $expat->{Pkg} . "::$tag";
eval { &$sub($expat, $tag, @_) };