7 my $role = Moose::Meta::Role->create(
8 'MyItem::Role::Equipment',
16 remove => sub { shift->is_worn(0) },
20 my $class = Moose::Meta::Class->create('MyItem::Armor::Helmet' =>
21 roles => ['MyItem::Role::Equipment'],
24 my $visored = $class->new_object(is_worn => 0);
25 ok(!$visored->is_worn, "attribute, accessor was consumed");
27 ok($visored->is_worn, "accessor was consumed");
29 ok(!$visored->is_worn, "method was consumed");
31 ok(!$role->is_anon_role, "the role is not anonymous");
33 my $composed_role = Moose::Meta::Role->create(
34 'MyItem::Role::Equipment2',
38 ok($composed_role->does_role('MyItem::Role::Equipment2'), "Role composed into role");