96 lines
1.8 KiB
Perl
96 lines
1.8 KiB
Perl
# $Id$
|
|
|
|
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;
|