File Coverage

blib/lib/API/Client/Exception.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	20	20	100.0

# Client Exception Class
package API::Client::Exception;

use namespace::autoclean -except => 'has';

use Data::Object::Class;
use Data::Object::Class::Syntax;
use Data::Object::Signatures;

use Data::Object::Library qw(
    InstanceOf
    Int
    Str
);

extends 'Data::Object::Exception';

our $VERSION = '0.02'; # VERSION

our $MESSAGE = "%s response received while processing request %s %s";

# ATTRIBUTES

has code   => ro;
has method => ro;
has tx     => ro;
has url    => ro;

# CONSTRAINTS

req code   => Int;
req method => Str;
req tx     => InstanceOf['Mojo::Transaction'];
req url    => InstanceOf['Mojo::URL'];

# MODIFIERS

alt message => lazy;

# DEFAULTS

def message => method {

    sprintf "$MESSAGE\n", map "@{[$self->$_]}", qw(code method url);

};

1;