projects
/
gitmo/Moose.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
8dfc3d3c3e692fcf33a60b7666cbfd8e3e29e69f
[gitmo/Moose.git]
/
t
/
300_immutable
/
015_immutable_destroy.t
1
use strict;
2
use warnings;
3
use Test::More;
4
5
{
6
package FooBar;
7
use Moose;
8
9
has 'name' => ( is => 'ro' );
10
11
sub DESTROY { shift->name }
12
13
local $SIG{__WARN__} = sub {};
14
__PACKAGE__->meta->make_immutable;
15
}
16
17
my $f = FooBar->new( name => 'SUSAN' );
18
19
is( $f->DESTROY, 'SUSAN', 'Did moose overload DESTROY?' );
20
21
done_testing;