use Carp 'confess';
use Scalar::Util 'blessed';
-our $VERSION = '0.80';
+our $VERSION = '0.88';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
$code .= "\$$package_name\:\:AUTHORITY = '" . $authority . "';"
if defined $authority;
- eval $code;
- confess "creation of $package_name failed : $@" if $@;
+ my $e = do {
+ local $@;
+ local $SIG{__DIE__};
+ eval $code;
+ $@;
+ };
+ confess "creation of $package_name failed : $e" if $e;
}
1;