File Coverage

blib/lib/Net/RabbitMQ/Management/API/Result.pm

Criterion	Covered	Total	%
statement	9	12	75.0
branch	1	2	50.0
condition			n/a
subroutine	3	4	75.0
pod			n/a
total	13	18	72.2

package Net::RabbitMQ::Management::API::Result;
{
  $Net::RabbitMQ::Management::API::Result::VERSION = '0.01';
}

# ABSTRACT: RabbitMQ Management API result object

use Moo;

use JSON::Any;


has 'response' => (
    handles => {
        code        => 'code',
        raw_content => 'content',
        request     => 'request',
        success     => 'is_success',
    },
    is       => 'ro',
    isa      => sub { die 'must be a HTTP::Response, but is ' . ref $_[0] unless ref $_[0] eq 'HTTP::Response' },
    required => 1,
);


has 'content' => (
    builder => '_build_content',
    clearer => 'clear_content',
    is      => 'ro',
    lazy    => 1,
);

has '_json' => (
    builder => '_build__json',
    is      => 'ro',
    isa     => sub { die 'must be a JSON::Any, but is ' . ref $_[0] unless ref $_[0] eq 'JSON::Any' },
    lazy    => 1,
);


sub _build__json {
    my ($self) = @_;
    return JSON::Any->new;
}

sub _build_content {
    my ($self) = @_;
    if ( $self->raw_content ) {
        return $self->_json->decode( $self->raw_content );
    }
    return {};
}

1;

__END__