File Coverage

examples/MyErrorHandler.pm

Criterion	Covered	Total	%
statement	2	8	25.0
branch			n/a
condition			n/a
subroutine	1	4	25.0
pod	0	4	0.0
total	3	16	18.7

# An example of simple SAX error handler
# XML::Directory throws fatal errors only

package MyErrorHandler;

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

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

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

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

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

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

    print "Fatal Error: $exception->{Message}\n";
}

1;