File Coverage

blib/lib/OpenID/Lite/Role/ErrorHandler.pm

Criterion	Covered	Total	%
statement	7	7	100.0
branch			n/a
condition	1	2	50.0
subroutine	3	3	100.0
pod	0	2	0.0
total	11	14	78.5

package OpenID::Lite::Role::ErrorHandler;

use Any::Moose '::Role';

has '_errstr' => (
    is  => 'rw',
    isa => 'Str',
);

sub ERROR {
    my ( $self, $msg ) = @_;
    $self->_errstr( $msg || '' );
    return;
}

sub errstr {
    shift->_errstr;
}

1;