File Coverage

blib/lib/WebService/Client/Response.pm

Criterion	Covered	Total	%
statement	6	10	60.0
branch			n/a
condition			n/a
subroutine	2	4	50.0
pod	0	2	0.0
total	8	16	50.0

package WebService::Client::Response;
use Moo;

our $VERSION = '1.0001'; # VERSION

use JSON::MaybeXS ();

has res => (
    is => 'ro',
    isa => sub {
        die 'res must be a HTTP::Response object'
            unless shift->isa('HTTP::Response');
    },
    required => 1,
    handles => [qw(
        code
        content
        decoded_content
        is_error
        is_success
        status_line
    )],
);

has json => (
    is      => 'ro',
    lazy    => 1,
    default => sub { JSON::MaybeXS->new() },
);

sub data {
    my ($self) = @_;
    return $self->json->decode($self->decoded_content);
}

sub ok {
    my ($self) = @_;
    return $self->is_success;
}

1;

__END__