File Coverage

blib/lib/Enbld/Exception.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	3	4	75.0
condition			n/a
subroutine	7	7	100.0
pod	0	2	0.0
total	34	37	91.8

package Enbld::Exception;

use strict;
use warnings;

use Carp;
use Data::Dumper;

use overload (
        q{""} => \&to_string,
        fallback => 1,
        );

sub new {
    my ( $class, $message, $param ) = @_;

    chomp( $message );

    if ( $param ) { $message .= "\n" . Dumper( $param ) };

    my $location = $ENV{HARNESS_ACTIVE} ? Carp::longmess() : Carp::shortmess();

    my $self = {
        message         =>  $message,
        caller_location =>  $location,
    };

    return bless $self, $class;
}

sub to_string {
    my $self = shift;

    return "ABORT:$self->{message}$self->{caller_location}";
}

1;