File Coverage

blib/lib/Ambassador/API/V2/Role/Response.pm

Criterion	Covered	Total	%
statement	23	24	95.8
branch	1	2	50.0
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	34	36	94.4

package Ambassador::API::V2::Role::Response;

use Moo::Role;
use Carp;
use Types::Standard ":types";
with 'Ambassador::API::V2::Role::HasJSON';

our $VERSION = '0.001';

has http_response => (
    is       => 'ro',
    isa      => HashRef,
    required => 1,
);

has response => (
    is       => 'lazy',
    isa      => HashRef,
    required => 1,
);

sub _build_response {
    my $self = shift;

    my $content = eval { $self->json->decode($self->http_response->{content}); };
    croak "Failed to decode @{[ $self->http_response->{content} ]}" if !$content;
    return $content->{response};
}

has code => (
    is       => 'lazy',
    isa      => Int,
    required => 1,
);

sub _build_code {
    my $self = shift;

    return $self->response->{code};
}

has message => (
    is       => 'lazy',
    isa      => Str,
    required => 1
);

sub _build_message {
    my $self = shift;

    return $self->response->{message};
}

sub new_from_response {
    my $class = shift;
    my $res   = shift;

    return $class->new(http_response => $res);
}

sub is_success {
    my $self = shift;

    return $self->code == 200;
}

1;

__END__