File Coverage

lib/RPC/Switch/Client/Tiny/Error.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	20	22	90.9

# Error object for RPC::Switch::Client::Tiny
#
package RPC::Switch::Client::Tiny::Error;

use strict;
use warnings;

our $VERSION = 1.1;

sub new {
	my ($class, $type, $message, $extra) = @_;
	return bless({type => $type, message => $message, $extra ? %$extra : ()}, $class);
}
use overload 'fallback' => 1, '""' => 'stringify'; # allow to print object as "$err"

sub stringify {
	my ($self) = @_;
	return "$self->{type} error: $self->{message}";
}

1;

__END__