Make sure we always local-ize $@ and $SIG{__DIE__} for code evals.

[gitmo/Class-MOP.git] / t / 310_inline_structor.t

diff --git a/t/310_inline_structor.t b/t/310_inline_structor.t
index bbdcce8..efceb2f 100644 (file)
--- a/t/310_inline_structor.t
+++ b/t/310_inline_structor.t
@@ -202,13 +202,15 @@ use Class::MOP;
     sub _inline_destructor {
         my $self = shift;
 
-        my $code = $self->_eval_closure( {}, 'sub { }' );
+        my ( $code, $e ) = $self->_eval_closure( {}, 'sub { }' );
+        die $e if $e;
 
         $self->{body} = $code;
     }
 
     sub is_needed { 1 }
     sub associated_metaclass { $_[0]->{metaclass} }
+    sub body { $_[0]->{body} }
     sub _expected_method_class { 'Base::Class' }
 }