[gitmo/Moose.git] / t / 300_immutable / 005_multiple_demolish_inline.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 2;
use Test::Exception;


{
    package Foo;
    use Moose;

    has 'foo' => (is => 'rw', isa => 'Int');

    sub DEMOLISH { }
}

{
    package Bar;
    use Moose;

    extends qw(Foo);
    has 'bar' => (is => 'rw', isa => 'Int');

    sub DEMOLISH { }
}

lives_ok {
    Bar->new();
} 'Bar->new()';

lives_ok {
    my $bar = Bar->new();
    $bar->meta->make_immutable;
} 'Bar->meta->make_immutable';
Commit	Line	Data
ee7f68b6	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
7ff56534	6	use Test::More tests => 2;
ee7f68b6	7	use Test::Exception;
ee7f68b6	8
7ff56534	9
ee7f68b6	10
	11	{
	12	package Foo;
	13	use Moose;
	14
	15	has 'foo' => (is => 'rw', isa => 'Int');
	16
	17	sub DEMOLISH { }
	18	}
	19
	20	{
	21	package Bar;
	22	use Moose;
	23
	24	extends qw(Foo);
	25	has 'bar' => (is => 'rw', isa => 'Int');
	26
	27	sub DEMOLISH { }
	28	}
	29
	30	lives_ok {
	31	Bar->new();
	32	} 'Bar->new()';
	33
	34	lives_ok {
	35	my $bar = Bar->new();
	36	$bar->meta->make_immutable;
	37	} 'Bar->meta->make_immutable';