--- a/common/tools/raptor/XML/SAX/PurePerl/DebugHandler.pm	Fri Mar 05 16:16:43 2010 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,95 +0,0 @@
-# $Id: DebugHandler.pm,v 1.3 2001/11/24 17:47:53 matt Exp $
-
-package XML::SAX::PurePerl::DebugHandler;
-
-use strict;
-
-sub new {
-    my $class = shift;
-    my %opts = @_;
-    return bless \%opts, $class;
-}
-
-# DocumentHandler
-
-sub set_document_locator {
-    my $self = shift;
-    print "set_document_locator\n" if $ENV{DEBUG_XML};
-    $self->{seen}{set_document_locator}++;
-}
-
-sub start_document {
-    my $self = shift;
-    print "start_document\n" if $ENV{DEBUG_XML};
-    $self->{seen}{start_document}++;    
-}
-
-sub end_document {
-    my $self = shift;
-    print "end_document\n" if $ENV{DEBUG_XML};
-    $self->{seen}{end_document}++;
-}
-
-sub start_element {
-    my $self = shift;
-    print "start_element\n" if $ENV{DEBUG_XML};
-    $self->{seen}{start_element}++;
-}
-
-sub end_element {
-    my $self = shift;
-    print "end_element\n" if $ENV{DEBUG_XML};
-    $self->{seen}{end_element}++;
-}
-
-sub characters {
-    my $self = shift;
-    print "characters\n" if $ENV{DEBUG_XML};
-#    warn "Char: ", $_[0]->{Data}, "\n";
-    $self->{seen}{characters}++;
-}
-
-sub processing_instruction {
-    my $self = shift;
-    print "processing_instruction\n" if $ENV{DEBUG_XML};
-    $self->{seen}{processing_instruction}++;
-}
-
-sub ignorable_whitespace {
-    my $self = shift;
-    print "ignorable_whitespace\n" if $ENV{DEBUG_XML};
-    $self->{seen}{ignorable_whitespace}++;
-}
-
-# LexHandler
-
-sub comment {
-    my $self = shift;
-    print "comment\n" if $ENV{DEBUG_XML};
-    $self->{seen}{comment}++;
-}
-
-# DTDHandler
-
-sub notation_decl {
-    my $self = shift;
-    print "notation_decl\n" if $ENV{DEBUG_XML};
-    $self->{seen}{notation_decl}++;
-}
-
-sub unparsed_entity_decl {
-    my $self = shift;
-    print "unparsed_entity_decl\n" if $ENV{DEBUG_XML};
-    $self->{seen}{entity_decl}++;
-}
-
-# EntityResolver
-
-sub resolve_entity {
-    my $self = shift;
-    print "resolve_entity\n" if $ENV{DEBUG_XML};
-    $self->{seen}{resolve_entity}++;
-    return '';
-}
-
-1;