File Coverage

blib/lib/WebService/BambooHR/Exception.pm

Criterion	Covered	Total	%
statement	11	11	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	15	16	93.7

package WebService::BambooHR::Exception;
$WebService::BambooHR::Exception::VERSION = '0.04';
use 5.006;
use Moo;
with 'Throwable';

use overload
    q{""}    => 'as_string',
    fallback => 1;

has message     => (is => 'ro');
has method      => (is => 'ro');
has code        => (is => 'ro');
has reason      => (is => 'ro');
has filename    => (is => 'ro');
has line_number => (is => 'ro');

sub as_string
{
    my $self = shift;
    return $self->method.'(): '
           .$self->message.' ('.$self->code.' '.$self->reason.') '
           .'file '.$self->filename.' on line '.$self->line_number."\n";
           ;
}

1;