File Coverage

blib/lib/Ambassador/API/V2/Error.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	24	24	100.0

package Ambassador::API::V2::Error;

use Moo;
use Types::Standard ':types';
with 'Ambassador::API::V2::Role::Response';

our $VERSION = '0.001';

use overload
    '""'     => \&as_string,
    fallback => 1;

has errors => (
    is  => 'lazy',
    isa => ArrayRef,
);

sub _build_errors {
    my $self = shift;

    return $self->response->{errors}{error};
}

sub _code_and_message {
    my $self = shift;

    return $self->code . ': ' . $self->message;
}

sub as_string {
    my $self = shift;

    return join '', map { "$_\n" } $self->_code_and_message, @{$self->errors};
}

1;

__END__