File Coverage

blib/lib/Exception/Class/Try/Catch.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	6	6	100.0
condition	3	3	100.0
subroutine	10	10	100.0
pod	0	1	0.0
total	52	53	98.1

# Copyright (c) 2017 by Pali

package Exception::Class::Try::Catch;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.2';

use Carp;
use Exception::Class::Base;
use Exporter 5.57 'import';
use Scalar::Util;
use Try::Catch qw(try);

$Carp::Internal{+__PACKAGE__} = 1;

our @EXPORT_OK = qw(try catch);
our @EXPORT = @EXPORT_OK;

sub catch (&) {
	my $block = $_[0];
	$_[0] = sub {
		my $error = $_[0];
		if (Scalar::Util::blessed($error) and not $error->isa('Exception::Class::Base')) {
			$error = $error->as_string() if $error->can('as_string');
			$error = "$error";
		}
		if (not Scalar::Util::blessed($error)) {
			$_[0] = $_ = Exception::Class::Base->new($error);
		}
		goto &$block;
	};
	goto &Try::Catch::catch;
}

1;
__END__