File Coverage

blib/lib/Enbld/Exception.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	3	4	75.0
condition			n/a
subroutine	7	7	100.0
pod	0	3	0.0
total	33	37	89.1

package Enbld::Exception;

use strict;
use warnings;

use Carp;

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

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

    die $class->new( $message, $param );
}

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

    chomp( $message );

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

    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;