use Scalar::Util 'blessed', 'weaken';
-our $VERSION = '0.80';
+our $VERSION = '0.87';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use base 'Moose::Meta::Method',
- 'Class::MOP::Method::Generated';
+ 'Class::MOP::Method::Inlined';
sub new {
my $class = shift;
warn $source if $self->options->{debug};
- my $code = $self->_compile_code(
+ my ( $code, $e ) = $self->_compile_code(
environment => {},
code => $source,
- ) or $self->throw_error("Could not eval the destructor :\n\n$source\n\nbecause :\n\n$@", error => $@, data => $source);
+ );
+
+ $self->throw_error(
+ "Could not eval the destructor :\n\n$source\n\nbecause :\n\n$e",
+ error => $e, data => $source )
+ if $e;
$self->{'body'} = $code;
}