Commit | Line | Data |
3fea05b9 |
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; |