diff -r 8b87ea768cb8 -r 60053dab7e2a dummy_foundation/lib/XML/Handler/Subs.pm
--- a/dummy_foundation/lib/XML/Handler/Subs.pm	Wed Jun 03 18:33:51 2009 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,177 +0,0 @@
-#
-# Copyright (C) 1999 Ken MacLeod
-# XML::Handler::XMLWriter is free software; you can redistribute it and/or
-# modify it under the same terms as Perl itself.
-#
-# $Id: Subs.pm,v 1.2 1999/12/22 21:15:00 kmacleod Exp $
-#
-
-use strict;
-
-package XML::Handler::Subs;
-
-use UNIVERSAL;
-
-use vars qw{ $VERSION };
-
-# will be substituted by make-rel script
-$VERSION = "0.07";
-
-sub new {
-    my $type = shift;
-    my $self = ($#_ == 0) ? { %{ (shift) } } : { @_ };
-
-    return bless $self, $type;
-}
-
-sub start_document {
-    my ($self, $document) = @_;
-
-    $self->{Names} = [];
-    $self->{Nodes} = [];
-}
-
-sub end_document {
-    my ($self, $document) = @_;
-
-    delete $self->{Names};
-    delete $self->{Nodes};
-
-    return();
-}
-
-sub start_element {
-    my ($self, $element) = @_;
-
-    push @{$self->{Names}}, $element->{Name};
-    push @{$self->{Nodes}}, $element;
-
-    my $el_name = "s_" . $element->{Name};
-    $el_name =~ s/[^a-zA-Z0-9_]/_/g;
-    if ($self->can($el_name)) {
-	$self->$el_name($element);
-	return 1;
-    }
-
-    return 0;
-}
-
-sub end_element {
-    my ($self, $element) = @_;
-
-    my $called_sub = 0;
-    my $el_name = "e_" . $element->{Name};
-    $el_name =~ s/[^a-zA-Z0-9_]/_/g;
-    if ($self->can(${el_name})) {
-	$self->$el_name($element);
-	$called_sub = 1;
-    }
-
-    pop @{$self->{Names}};
-    pop @{$self->{Nodes}};
-
-    return $called_sub;
-}
-
-sub in_element {
-    my ($self, $name) = @_;
-
-    return ($self->{Names}[-1] eq $name);
-}
-
-sub within_element {
-    my ($self, $name) = @_;
-
-    my $count = 0;
-    foreach my $el_name (@{$self->{Names}}) {
-	$count ++ if ($el_name eq $name);
-    }
-
-    return $count;
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-XML::Handler::Subs - a PerlSAX handler base class for calling user-defined subs
-
-=head1 SYNOPSIS
-
- use XML::Handler::Subs;
-
- package MyHandlers;
- use vars qw{ @ISA };
-
- sub s_NAME { my ($self, $element) = @_ };
- sub e_NAME { my ($self, $element) = @_ };
-
- $self->{Names};    # an array of names
- $self->{Nodes};    # an array of $element nodes
-
- $handler = MyHandlers->new();
- $self->in_element($name);
- $self->within_element($name);
-
-=head1 DESCRIPTION
-
-C<XML::Handler::Subs> is a base class for PerlSAX handlers.
-C<XML::Handler::Subs> is subclassed to implement complete behavior and
-to add element-specific handling.
-
-Each time an element starts, a method by that name prefixed with `s_'
-is called with the element to be processed.  Each time an element
-ends, a method with that name prefixed with `e_' is called.  Any
-special characters in the element name are replaced by underscores.
-
-Subclassing XML::Handler::Subs in this way is similar to
-XML::Parser's Subs style.
-
-XML::Handler::Subs maintains a stack of element names,
-`C<$self->{Names}', and a stack of element nodes, `C<$self->{Nodes}>'
-that can be used by subclasses.  The current element is pushed on the
-stacks before calling an element-name start method and popped off the
-stacks after calling the element-name end method.  The
-`C<in_element()>' and `C<within_element()>' calls use these stacks.
-
-If the subclass implements `C<start_document()>', `C<end_document()>',
-`C<start_element()>', and `C<end_element()>', be sure to use
-`C<SUPER::>' to call the the superclass methods also.  See perlobj(1)
-for details on SUPER::.  `C<SUPER::start_element()>' and
-`C<SUPER::end_element()>' return 1 if an element-name method is
-called, they return 0 if no method was called.
-
-XML::Handler::Subs does not implement any other PerlSAX handlers.
-
-XML::Handler::Subs supports the following methods:
-
-=over 4
-
-=item new( I<OPTIONS> )
-
-A basic `C<new()>' method.  `C<new()>' takes a list of key, value
-pairs or a hash and creates and returns a hash with those options; the
-hash is blessed into the subclass.
-
-=item in_element($name)
-
-Returns true if `C<$name>' is equal to the name of the innermost
-currently opened element.
-
-=item within_element($name)
-
-Returns the number of times the `C<$name>' appears in Names.
-
-=back
-
-=head1 AUTHOR
-
-Ken MacLeod, ken@bitsko.slc.ut.us
-
-=head1 SEE ALSO
-
-perl(1), PerlSAX.pod(3)
-
-=cut