view release on metacpan or  search on metacpan

t/01_perl_build_built.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More;
use Perl::Build::Built;

sub exception(&) {
    my $code       = shift;
    my $prev_error = $@;
    my ( @ret, $error, $failed );
    {
        local $@;
        $failed = not eval {
            $@ = $prev_error;
            $code->();
            return 1;
        };