view release on metacpan or  search on metacpan

t/503-error-died-within-keyword.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More;

BEGIN {
    use_ok('BEGIN::Lift');

    BEGIN::Lift::install(
        ('main', 'double') => sub {
            die('Died within (' . (caller(0))[3] . ')');
        }
    );
}

our $EXCEPTION;

BEGIN {
    eval q{
        double(10);
        1;