File Coverage

blib/lib/XML/Liberal/Error.pm

Criterion	Covered	Total	%
statement	6	11	54.5
branch	0	4	0.0
condition	0	3	0.0
subroutine	2	3	66.6
pod	0	1	0.0
total	8	22	36.3

package XML::Liberal::Error;
use strict;

use base qw( Class::Accessor );

__PACKAGE__->mk_ro_accessors(qw( message line column location ));

sub summary {
    my $self = shift;

    my $line   = $self->line;
    my $column = $self->column;
    my $location = defined $line && defined $column ? "$line:$column"
                 : defined $line                    ? $line
                 :                                    'unknown location';
    return join ' at position ', $self->message, $location
}

1;
__END__