File Coverage

blib/lib/Tatsumaki/Error.pm

Criterion	Covered	Total	%
statement	20	21	95.2
branch			n/a
condition			n/a
subroutine	7	8	87.5
pod	0	1	0.0
total	27	30	90.0

package Tatsumaki::Error;
use strict;
use Any::Moose;

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

package Tatsumaki::Error::ClientDisconnect;
use Any::Moose;
extends 'Tatsumaki::Error';

package Tatsumaki::Error::HTTP;
use Any::Moose;
use HTTP::Status;
extends 'Tatsumaki::Error';

use overload q("") => sub { $_[0]->message }, fallback => 1;
has code => (is => 'rw', isa => 'Int');
has message => (is => 'rw', isa => 'Str');

around BUILDARGS => sub {
    my $orig = shift;
    my($class, $code, $msg) = @_;
    $msg ||= HTTP::Status::status_message($code);
    $class->$orig(code => $code, message => $msg);
};

package Tatsumaki::Error;

1;