File Coverage

blib/lib/Sub/Exception.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	1	2	50.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	31	32	96.8

package Sub::Exception;
use strict;
use warnings;

our $VERSION = '0.01';

sub import {
    my ($class, %args) = @_;

    my $caller = caller;

    while (my ($fn, $handler) = each %args) {
        $class->export(
            name          => $fn,
            error_handler => $handler,
            package       => $caller,
        );
    }
}

sub export {
    my ($class, %args) = @_;

    my $name          = $args{name};
    my $error_handler = $args{error_handler},
    my $pkg           = $args{package};

    no strict 'refs';
    *{"$pkg\::$name"} = sub (&) {
        my ($sub) = @_;

        eval {
            $sub->();
        };
        if ($@) {
            $error_handler->($_ = $@);
        }
    };
}

1;

__END__