use strict; use warnings; use Test::More; BEGIN { plan skip_all => '5.10.1 required for this test, due to a perl bug' if $] < 5.010001; } use MooseX::Declare; eval q[ class BreakingClass { method causes_bus_error { delete my $foo; } } ]; pass('should not crash'); done_testing;