File Coverage

blib/lib/Apertur/SDK/Error.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	1	2	50.0
condition	3	6	50.0
subroutine	9	9	100.0
pod	5	5	100.0
total	38	42	90.4

package Apertur::SDK::Error;

use strict;
use warnings;

use overload
    '""'     => \&_stringify,
    fallback => 1;

sub new {
    my ($class, %args) = @_;
    return bless {
        status_code => $args{status_code} // 0,
        code        => $args{code}        // '',
        message     => $args{message}     // 'Unknown error',
    }, $class;
}

sub throw {
    my ($class, %args) = @_;
    die $class->new(%args);
}

sub status_code { return $_[0]->{status_code} }
sub code        { return $_[0]->{code} }
sub message     { return $_[0]->{message} }

sub _stringify {
    my ($self) = @_;
    my $class = ref $self;
    my $code  = $self->{code} ? " [$self->{code}]" : '';
    return "$class: $self->{status_code}$code $self->{message}";
}

1;

__END__