3 use Test::More tests => 1;
9 has 'name' => ( is => 'ro' );
11 sub DESTROY { shift->name }
13 local $SIG{__WARN__} = sub {};
14 __PACKAGE__->meta->make_immutable;
17 my $f = FooBar->new( name => 'SUSAN' );
19 is( $f->DESTROY, 'SUSAN', 'Did moose overload DESTROY?' );