view release on metacpan or  search on metacpan

t/lib/Local/Test/Exception.pm  view on Meta::CPAN

package Local::Test::Exception;

our $VERSION = '0.001';

# Support Exporter < 5.57
require Exporter;
our @ISA       = qw(Exporter);    ## no critic (ClassHierarchies::ProhibitExplicitISA)
our @EXPORT_OK = qw(exception);

sub exception(&) {
    my ($code) = @_;

    my $e;
    {
        local $@;    ## no critic (Variables::RequireInitializationForLocalVars)
        if ( !eval { $code->(); 1; } ) {
            $e = $@;
        }
    }