File Coverage

blib/lib/Spike/Error.pm

Criterion	Covered	Total	%
statement	18	25	72.0
branch	0	2	0.0
condition	0	6	0.0
subroutine	6	9	66.6
pod	0	2	0.0
total	24	44	54.5

package Spike::Error;

use strict;
use warnings;

use base qw(Spike::Object);

sub throw { die ref $_[0] ? $_[0] : shift->new(@_) }

sub new {
    my ($proto, $text, $value) = splice @_, 0, 3;
    my $class = ref $proto || $proto;

    return $class->SUPER::new(@_, text => $text, value => $value);
}

__PACKAGE__->mk_ro_accessors(qw(text value));

package Spike::Error::HTTP;

use base qw(Spike::Error);

use HTTP::Status;

sub new {
    my ($proto, $status) = splice @_, 0, 2;
    my $class = ref $proto || $proto;

    return $class->SUPER::new(
        HTTP::Status::status_message($status),
        $status,
        headers => [ @_ ],
    );
}

__PACKAGE__->mk_ro_accessors(qw(headers));

package Spike::Error::HTTP_OK;

use base qw(Spike::Error);

1;