File Coverage

blib/lib/Net/LCDproc/Error.pm

Criterion	Covered	Total	%
statement	12	22	54.5
branch	0	2	0.0
condition			n/a
subroutine	4	7	57.1
pod	1	3	33.3
total	17	34	50.0

package Net::LCDproc::Error;
$Net::LCDproc::Error::VERSION = '0.104';
#ABSTRACT: Error class

use v5.10.2;
use Data::Dumper qw//;
use Moo;
use namespace::clean;

extends 'Throwable::Error';

has class_name => (
    is => 'rw',

    #isa      => 'Str',
    required => 1,
    default  => sub { caller 11 },    # XXX: this seems fragile

);

has object => (
    is => 'ro',

    #isa       => 'Object',
    predicate => 'has_object',
);

sub short_msg {
    my $self = shift;
    return sprintf '[%s] %s', $self->class_name, $self->message;
}

sub dump_obj {
    my $self = shift;

    if ($self->has_object) {
        $Data::Dumper::Terse = 1;
        return Data::Dumper->Dump([$self->object]);
    }

    return 'No object was set by the throwing class';
}

sub throwf {
    my ($self, $msg_str, @args) = @_;
    $self->throw(message => sprintf $msg_str, @args);
    return;
}

1;

__END__