File Coverage

blib/lib/Opsview/REST/Exception.pm

Criterion	Covered	Total	%
statement	6	14	42.8
branch	0	8	0.0
condition			n/a
subroutine	2	3	66.6
pod			n/a
total	8	25	32.0

package Opsview::REST::Exception;
{
  $Opsview::REST::Exception::VERSION = '0.013';
}

use Moo;

use overload
    '""' => sub {
        my $error = join (' ', $_[0]->status, $_[0]->reason);
        my $msg = $_[0]->message; chomp $msg if $msg;
        my $dtl = $_[0]->detail;  chomp $dtl if $dtl;

        $error = join ': ', $error, $msg if ($msg);
        $error = join '; ', $error, $dtl if ($dtl);

        return "$error\n";
    },
    fallback => 1;


has [qw/status reason/] => (
    is       => 'ro',
    required => 1,
);

has [qw/message detail/] => (
    is       => 'ro',
    required => 0,
);

__PACKAGE__->meta->make_immutable;

1;

__END__