summaryrefslogtreecommitdiffstats
path: root/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/XML/Parser/Style/Subs.pm
diff options
context:
space:
mode:
Diffstat (limited to 'chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/XML/Parser/Style/Subs.pm')
-rw-r--r--chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/XML/Parser/Style/Subs.pm58
1 files changed, 0 insertions, 58 deletions
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/XML/Parser/Style/Subs.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/XML/Parser/Style/Subs.pm
deleted file mode 100644
index 15a21439e8e..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/XML/Parser/Style/Subs.pm
+++ /dev/null
@@ -1,58 +0,0 @@
-# $Id: Subs.pm,v 1.1 2003/07/27 16:07:49 matt Exp $
-
-package XML::Parser::Style::Subs;
-
-sub Start {
- no strict 'refs';
- my $expat = shift;
- my $tag = shift;
- my $sub = $expat->{Pkg} . "::$tag";
- eval { &$sub($expat, $tag, @_) };
-}
-
-sub End {
- no strict 'refs';
- my $expat = shift;
- my $tag = shift;
- my $sub = $expat->{Pkg} . "::${tag}_";
- eval { &$sub($expat, $tag) };
-}
-
-1;
-__END__
-
-=head1 NAME
-
-XML::Parser::Style::Subs
-
-=head1 SYNOPSIS
-
- use XML::Parser;
- my $p = XML::Parser->new(Style => 'Subs', Pkg => 'MySubs');
- $p->parsefile('foo.xml');
-
- {
- package MySubs;
-
- sub foo {
- # start of foo tag
- }
-
- sub foo_ {
- # end of foo tag
- }
- }
-
-=head1 DESCRIPTION
-
-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
-with.
-
-Nothing special is returned by parse.
-
-=cut \ No newline at end of file