6 use Test::More tests => 5;
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)' );
42 Foo->meta->make_immutable;
43 } 'Foo->meta->make_immutable';
45 is( Foo->meta->get_method('DESTROY')->package_name, 'Foo',
46 'Foo has a DESTROY method in the Bar class (not inherited)' );