package
AliasModule;
our $VERSION = '0.000001';
use 5.014;
use warnings;
use Lexical::Failure
fail => 'error',
ON_FAILURE => 'on_error';
our $DIE_LINE = -1;
sub import {
my (undef, undef, $errors) = @_;
on_error($errors);
}
sub dont_succeed {
$DIE_LINE = __FILE__ . ' line ' . (__LINE__ + 1);
error "Didn't succeed";
return 'This value should never be returned';
}
# Module implementation here
1; # Magic true value required at end of module