6 use Test::More tests => 6;
11 use_ok('Moose::Meta::Role');
16 our $VERSION = '0.01';
17 sub foo { 'FooRole::foo' }
27 my $foo_role = Moose::Meta::Role->initialize('FooRole');
29 lives_ok{ $meta->make_immutable } "Foo is imutable";
30 dies_ok{ $meta->add_role($foo_role) } "Add Role is locked";
31 lives_ok{ $meta->make_mutable } "Foo is mutable";
32 lives_ok{ $meta->add_role($foo_role) } "Add Role is unlocked";
37 Nothing here yet, but soon :)