File Coverage

blib/lib/XML/FOAF/ErrorHandler.pm

Criterion	Covered	Total	%
statement	6	14	42.8
branch	0	6	0.0
condition	0	2	0.0
subroutine	2	5	40.0
pod	0	3	0.0
total	8	30	26.6

package XML::FOAF::ErrorHandler;
use strict;

use vars qw( $ERROR );

sub new    { bless {}, shift }
sub error  {
    my $msg = $_[1] || '';
    $msg .= "\n" unless $msg =~ /\n$/;
    if (ref($_[0])) {
        $_[0]->{_errstr} = $msg;
    } else {
        $ERROR = $msg;
    }
    return;
 }
sub errstr { ref($_[0]) ? $_[0]->{_errstr} : $ERROR }

1;