local-lib5/lib/perl5/XML/SAX/PurePerl/DebugHandler.pm

   1 # $Id: DebugHandler.pm,v 1.3 2001-11-24 17:47:53 matt Exp $
   2
   3 package XML::SAX::PurePerl::DebugHandler;
   4
   5 use strict;
   6
   7 sub new {
   8     my $class = shift;
   9     my %opts = @_;
  10     return bless \%opts, $class;
  11 }
  12
  13 # DocumentHandler
  14
  15 sub set_document_locator {
  16     my $self = shift;
  17     print "set_document_locator\n" if $ENV{DEBUG_XML};
  18     $self->{seen}{set_document_locator}++;
  19 }
  20
  21 sub start_document {
  22     my $self = shift;
  23     print "start_document\n" if $ENV{DEBUG_XML};
  24     $self->{seen}{start_document}++;
  25 }
  26
  27 sub end_document {
  28     my $self = shift;
  29     print "end_document\n" if $ENV{DEBUG_XML};
  30     $self->{seen}{end_document}++;
  31 }
  32
  33 sub start_element {
  34     my $self = shift;
  35     print "start_element\n" if $ENV{DEBUG_XML};
  36     $self->{seen}{start_element}++;
  37 }
  38
  39 sub end_element {
  40     my $self = shift;
  41     print "end_element\n" if $ENV{DEBUG_XML};
  42     $self->{seen}{end_element}++;
  43 }
  44
  45 sub characters {
  46     my $self = shift;
  47     print "characters\n" if $ENV{DEBUG_XML};
  48 #    warn "Char: ", $_[0]->{Data}, "\n";
  49     $self->{seen}{characters}++;
  50 }
  51
  52 sub processing_instruction {
  53     my $self = shift;
  54     print "processing_instruction\n" if $ENV{DEBUG_XML};
  55     $self->{seen}{processing_instruction}++;
  56 }
  57
  58 sub ignorable_whitespace {
  59     my $self = shift;
  60     print "ignorable_whitespace\n" if $ENV{DEBUG_XML};
  61     $self->{seen}{ignorable_whitespace}++;
  62 }
  63
  64 # LexHandler
  65
  66 sub comment {
  67     my $self = shift;
  68     print "comment\n" if $ENV{DEBUG_XML};
  69     $self->{seen}{comment}++;
  70 }
  71
  72 # DTDHandler
  73
  74 sub notation_decl {
  75     my $self = shift;
  76     print "notation_decl\n" if $ENV{DEBUG_XML};
  77     $self->{seen}{notation_decl}++;
  78 }
  79
  80 sub unparsed_entity_decl {
  81     my $self = shift;
  82     print "unparsed_entity_decl\n" if $ENV{DEBUG_XML};
  83     $self->{seen}{entity_decl}++;
  84 }
  85
  86 # EntityResolver
  87
  88 sub resolve_entity {
  89     my $self = shift;
  90     print "resolve_entity\n" if $ENV{DEBUG_XML};
  91     $self->{seen}{resolve_entity}++;
  92     return '';
  93 }
  94
  95 1;