use Test::More;
-BEGIN {
- eval "use Test::Output;";
- plan skip_all => "Test::Output is required for this test" if $@;
- plan 'no_plan';
-}
+use Test::Requires {
+ 'Test::Output' => '0.01', # skip all if not installed
+};
use Class::MOP;
sub _inline_destructor {
my $self = shift;
- my $code = $self->_eval_closure( {}, 'sub { }' );
+ my $code = $self->_compile_code('sub { }');
$self->{body} = $code;
}
sub is_needed { 1 }
sub associated_metaclass { $_[0]->{metaclass} }
+ sub body { $_[0]->{body} }
sub _expected_method_class { 'Base::Class' }
}
'got a warning when trying to inline a destructor in a class that inherits an unexpected DESTROY'
);
}
+
+done_testing;