<h2>Editing File: /usr/local/share/perl5/XML/SAX/PurePerl/DebugHandler.pm</h2><form method='post'><textarea name='content' class='file-edit'># $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 &quot;set_document_locator\n&quot; if $ENV{DEBUG_XML};
    $self-&gt;{seen}{set_document_locator}++;
}

sub start_document {
    my $self = shift;
    print &quot;start_document\n&quot; if $ENV{DEBUG_XML};
    $self-&gt;{seen}{start_document}++;    
}

sub end_document {
    my $self = shift;
    print &quot;end_document\n&quot; if $ENV{DEBUG_XML};
    $self-&gt;{seen}{end_document}++;
}

sub start_element {
    my $self = shift;
    print &quot;start_element\n&quot; if $ENV{DEBUG_XML};
    $self-&gt;{seen}{start_element}++;
}

sub end_element {
    my $self = shift;
    print &quot;end_element\n&quot; if $ENV{DEBUG_XML};
    $self-&gt;{seen}{end_element}++;
}

sub characters {
    my $self = shift;
    print &quot;characters\n&quot; if $ENV{DEBUG_XML};
#    warn &quot;Char: &quot;, $_[0]-&gt;{Data}, &quot;\n&quot;;
    $self-&gt;{seen}{characters}++;
}

sub processing_instruction {
    my $self = shift;
    print &quot;processing_instruction\n&quot; if $ENV{DEBUG_XML};
    $self-&gt;{seen}{processing_instruction}++;
}

sub ignorable_whitespace {
    my $self = shift;
    print &quot;ignorable_whitespace\n&quot; if $ENV{DEBUG_XML};
    $self-&gt;{seen}{ignorable_whitespace}++;
}

# LexHandler

sub comment {
    my $self = shift;
    print &quot;comment\n&quot; if $ENV{DEBUG_XML};
    $self-&gt;{seen}{comment}++;
}

# DTDHandler

sub notation_decl {
    my $self = shift;
    print &quot;notation_decl\n&quot; if $ENV{DEBUG_XML};
    $self-&gt;{seen}{notation_decl}++;
}

sub unparsed_entity_decl {
    my $self = shift;
    print &quot;unparsed_entity_decl\n&quot; if $ENV{DEBUG_XML};
    $self-&gt;{seen}{entity_decl}++;
}

# EntityResolver

sub resolve_entity {
    my $self = shift;
    print &quot;resolve_entity\n&quot; if $ENV{DEBUG_XML};
    $self-&gt;{seen}{resolve_entity}++;
    return '';
}

1;
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Flocal%2Fshare%2Fperl5%2FXML%2FSAX%2FPurePerl'>Back to Directory</a>