File Coverage

examples/MyErrorHandler.pm

Criterion	Covered	Total	%
statement	0	17	0.0
branch			n/a
condition			n/a
subroutine	0	4	0.0
pod	0	4	0.0
total	0	25	0.0

# An example of simple SAX ErrorHandler

package MyErrorHandler;

sub new {
    my $type = shift;
    return bless {}, $type;
}

sub warning {
    my ($self, $exception) = @_;

    print "\n";
    print "->Exception: $exception->{Exception}\n";
    print "->Message: $exception->{Message}\n";
    print "->LineNumber: $exception->{LineNumber}\n";
}

sub error {
    my ($self, $exception) = @_;

    print "\n";
    print "->Exception: $exception->{Exception}\n";
    print "->Message: $exception->{Message}\n";
    print "->LineNumber: $exception->{LineNumber}\n";
}

sub fatal_error {
    my ($self, $exception) = @_;

    print "\n";
    print "->Exception: $exception->{Exception}\n";
    print "->Message: $exception->{Message}\n";
    print "->LineNumber: $exception->{LineNumber}\n";
}

1;