[gitmo/Moose.git] / t / 300_immutable / 003_immutable_meta_class.t

#!/usr/bin/perl

use strict;
use warnings;

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


{
    package My::Meta;

    use Moose;

    extends 'Moose::Meta::Class';

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

lives_ok {
    My::Meta->meta()->make_immutable(debug => 0)
} '... can make a meta class immutable';
Commit	Line	Data
475042d0	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
7ff56534	6	use Test::More tests => 1;
475042d0	7	use Test::Exception;
475042d0	8
7ff56534	9
475042d0	10
	11	{
	12	package My::Meta;
	13
	14	use Moose;
	15
	16	extends 'Moose::Meta::Class';
	17
d03bd989	18	has 'meta_size' => (
688fcdda	19	is => 'rw',
	20	isa => 'Int',
	21	);
475042d0	22	}
475042d0	23
d03bd989	24	lives_ok {
d03bd989	25	My::Meta->meta()->make_immutable(debug => 0)
688fcdda	26	} '... can make a meta class immutable';
475042d0	27