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

##</code><code>##

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

sub Start {
  no strict 'refs';
  my $expat = shift;
  my $tag = shift;
  my $sub = $expat->{Pkg} . "::$tag";
  $sub->($expat,$tag,@_) if defined &{$sub};
}

sub End {
  no strict 'refs';
  my $expat = shift;
  my $tag = shift;
  my $sub = $expat->{Pkg} . "::${tag}_";
  $sub->($expat,$tag) if defined &{$sub};
}

1;