File Coverage

blib/lib/Async/Redis/Error.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	9	9	100.0
pod	0	4	0.0
total	31	38	81.5

package Async::Redis::Error;

use strict;
use warnings;
use 5.018;

use overload
    '""'     => 'stringify',
    bool     => sub { 1 },
    fallback => 1;

sub new {
    my ($class, %args) = @_;
    return bless \%args, $class;
}

sub message { shift->{message} }

sub stringify {
    my ($self) = @_;
    return $self->message // ref($self) . ' error';
}

sub throw {
    my $self = shift;
    $self = $self->new(@_) unless ref $self;
    die $self;
}

1;

__END__