14 has 'foo' => (is => 'rw', isa => 'Int');
24 has 'bar' => (is => 'rw', isa => 'Int');
31 }, undef, 'Bar->new()' );
34 Bar->meta->make_immutable;
35 }, undef, 'Bar->meta->make_immutable' );
37 is( Bar->meta->get_method('DESTROY')->package_name, 'Bar',
38 'Bar has a DESTROY method in the Bar class (not inherited)' );
41 Foo->meta->make_immutable;
42 }, undef, 'Foo->meta->make_immutable' );
44 is( Foo->meta->get_method('DESTROY')->package_name, 'Foo',
45 'Foo has a DESTROY method in the Bar class (not inherited)' );