--- a/dummy_foundation/lib/XML/Handler/PrintEvents.pm Wed Jun 03 18:33:51 2009 +0100
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,67 +0,0 @@
-#
-# This PerlSAX handler prints out all the PerlSAX events/callbacks
-# it receives. Very useful when debugging.
-#
-
-package XML::Handler::PrintEvents;
-use strict;
-use XML::Filter::SAXT;
-
-my @EXTRA_HANDLERS = ( 'ignorable_whitespace' );
-
-sub new
-{
- my ($class, %options) = @_;
- bless \%options, $class;
-}
-
-sub print_event
-{
- my ($self, $event_name, $event) = @_;
-
- printf "%-22s ", $event_name;
- if (defined $event)
- {
- print join (", ", map { "$_ => [" .
- (defined $event->{$_} ? $event->{$_} : "(undef)")
- . "]" } keys %$event);
- }
- print "\n";
-}
-
-#
-# This generates the PerlSAX handler methods for PrintEvents.
-# They basically forward the event to print_event() while adding the callback
-# (event) name.
-#
-for my $cb (@EXTRA_HANDLERS, map { @{$_} } values %XML::Filter::SAXT::SAX_HANDLERS)
-{
- eval "sub $cb { shift->print_event ('$cb', \@_) }";
-}
-
-1; # package return code
-
-__END__
-
-=head1 NAME
-
-XML::Handler::PrintEvents - Prints PerlSAX events (for debugging)
-
-=head1 SYNOPSIS
-
-use XML::Handler::PrintEvents;
-
-my $pr = new XML::Handler::PrintEvents;
-
-=head1 DESCRIPTION
-
-This PerlSAX handler prints the PerlSAX events it receives to STDOUT.
-It can be useful when debugging PerlSAX filters.
-It supports all PerlSAX handler including ignorable_whitespace.
-
-=head1 AUTHOR
-
-Send bug reports, hints, tips, suggestions to Enno Derksen at
-<F<enno@att.com>>.
-
-=cut