X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F310_inline_structor.t;h=efceb2ff575d90786f0731f9ff38c5ce857a5889;hb=e24b19fbbf5a62172dad0d8dfb86e03eed9a51c1;hp=bbdcce847c76292621ae6a10668bf2bcacdc0223;hpb=e4da508a1801f8bf4164d9f5ecbaf96cb343e5aa;p=gitmo%2FClass-MOP.git

diff --git a/t/310_inline_structor.t b/t/310_inline_structor.t
index bbdcce8..efceb2f 100644
--- 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' }
 }