# $Id: Subs.pm,v 1.1 2003/07/27 16:07:49 matt Exp $
package XML
::Parser
::Style
::Subs
;
my $sub = $expat->{Pkg
} . "::$tag";
eval { &$sub($expat, $tag, @_) };
my $sub = $expat->{Pkg
} . "::${tag}_";
eval { &$sub($expat, $tag) };
my $p = XML::Parser->new(Style => 'Subs', Pkg => 'MySubs');
$p->parsefile('foo.xml');
Each time an element starts, a sub by that name in the package specified
by the Pkg option is called with the same parameters that the Start
handler gets called with.
Each time an element ends, a sub with that name appended with an underscore
("_"), is called with the same parameters that the End handler gets called
Nothing special is returned by parse.