-#!/usr/bin/perl
use strict;
use warnings;
-use Test::More tests => 1;
+use Test::More;
-BEGIN {
+{
package FooBar;
use Moose;
- has 'name' => (is => 'ro');
+ has 'name' => ( is => 'ro' );
sub DESTROY { shift->name }
+ local $SIG{__WARN__} = sub {};
__PACKAGE__->meta->make_immutable;
}
-my $f = FooBar->new(name => "SUSAN");
+my $f = FooBar->new( name => 'SUSAN' );
-is($f->DESTROY, "SUSAN", "Did moose overload DESTROY?");
+is( $f->DESTROY, 'SUSAN', 'Did moose overload DESTROY?' );
+
+done_testing;