File Coverage

blib/lib/PocketIO/Exception.pm

Criterion	Covered	Total	%
statement	20	21	95.2
branch	1	2	50.0
condition	1	2	50.0
subroutine	8	9	88.8
pod	0	5	0.0
total	30	39	76.9

package PocketIO::Exception;

use strict;
use warnings;

use overload '""' => sub { $_[0]->to_string }, fallback => 1;

require Carp;

sub new {
    my $class = shift;

    my $self = bless {@_}, $class;

    $self->{code} ||= 500;

    return $self;
}

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

sub throw {
    my $class = shift;
    my ($code, $message) = @_;

    $message = '' unless defined $message;

    Carp::croak($class->new(code => $code, message => $message));
}

*as_string = \&to_string;
sub to_string { $_[0]->message }

1;