6 use Test::More tests => 5;
15 has 'foo' => (is => 'rw', isa => 'Int');
25 has 'bar' => (is => 'rw', isa => 'Int');
31 Foo->meta->make_immutable;
32 } 'Foo->meta->make_immutable';
34 is( Foo->meta->get_method('DESTROY')->package_name, 'Foo',
35 'Foo has a DESTROY method in the Foo class (not inherited)' );
42 Bar->meta->make_immutable;
43 } 'Bar->meta->make_immutable';
45 is( Bar->meta->get_method('DESTROY')->package_name, 'Bar',
46 'Bar has a DESTROY method in the Bar class (not inherited)' );