home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / xampp / xampp-perl-addon-1.4.9-installer.exe / DebugHandler.pm < prev    next >
Encoding:
Perl POD Document  |  2001-11-24  |  2.0 KB  |  96 lines
  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;
  96.