6 use Test::More tests => 3;
15 has 'foo' => (is => 'rw', isa => 'Int');
25 has 'bar' => (is => 'rw', isa => 'Int');
35 Bar->meta->make_immutable;
36 } 'Bar->meta->make_immutable';
38 is( Bar->meta->get_method('DESTROY')->package_name, 'Bar',
39 'Bar has a DESTROY method in the Bar class (not inherited)' );