[gitmo/Moose.git] / t / 300_immutable / 015_immutable_destroy.t

#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 1;

BEGIN {
    package FooBar;
    use Moose;

    has 'name' => (is => 'ro');

    sub DESTROY { shift->name }

    __PACKAGE__->meta->make_immutable;
}

my $f = FooBar->new(name => "SUSAN");

is($f->DESTROY, "SUSAN", "Did moose overload DESTROY?");
Commit	Line	Data
47e5ab1a	1	#!/usr/bin/perl
	2	use strict;
	3	use warnings;
	4	use Test::More tests => 1;
	5
	6	BEGIN {
	7	package FooBar;
	8	use Moose;
	9
	10	has 'name' => (is => 'ro');
	11
	12	sub DESTROY { shift->name }
	13
	14	__PACKAGE__->meta->make_immutable;
	15	}
	16
	17	my $f = FooBar->new(name => "SUSAN");
	18
	19	is($f->DESTROY, "SUSAN", "Did moose overload DESTROY?");