# An example of simple SAX ErrorHandler
package MyErrorHandler;
sub new {
my $type = shift;
return bless {}, $type;
}
sub warning {
my ($self, $exception) = @_;
print "<SAX Warning>\n";
print "->Exception: $exception->{Exception}\n";
print "->Message: $exception->{Message}\n";
print "->LineNumber: $exception->{LineNumber}\n";
}
sub error {
my ($self, $exception) = @_;
print "<SAX Error>\n";
print "->Exception: $exception->{Exception}\n";
print "->Message: $exception->{Message}\n";
print "->LineNumber: $exception->{LineNumber}\n";
}
sub fatal_error {
my ($self, $exception) = @_;
print "<SAX Fatal Error>\n";
print "->Exception: $exception->{Exception}\n";
print "->Message: $exception->{Message}\n";
print "->LineNumber: $exception->{LineNumber}\n";
}
1;