Select Code to Download

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

package XML::Parser::Style::DieSubs;

...
}

1;