3 use Test::More tests => 1;
7 if (not eval { require Moose; 1 }) {
8 skip 'test requires moose', 1;
16 has 'name' => ( is => 'ro' );
18 sub DESTROY { shift->name }
20 __PACKAGE__->meta->make_immutable;
23 my $f = FooBar->new( name => 'SUSAN' );
25 is( $f->DESTROY, 'SUSAN', 'Did Class::MOP::Class overload DESTROY?' );