File Coverage

blib/lib/Bubblegum/Exception.pm

Criterion	Covered	Total	%
statement	12	19	63.1
branch	0	4	0.0
condition	0	3	0.0
subroutine	4	7	57.1
pod	0	3	0.0
total	16	36	44.4

# ABSTRACT: General Purpose Exception Class for Bubblegum
package Bubblegum::Exception;

use 5.10.0;

use Moo;

extends 'Throwable::Error';

use Data::Dumper ();
use Scalar::Util ();

our $VERSION = '0.45'; # VERSION

sub rethrow {
    die shift;
}

sub dumper {
    local $Data::Dumper::Terse = 1;
    return Data::Dumper::Dumper(shift);
}

sub caught {
    my($class, $e) = @_;
    return if ref $class;
    return unless Scalar::Util::blessed($e)
        && UNIVERSAL::isa($e, $class);
    return $e;
}

1;

__END__