4 use Test::More tests => 3;
7 my $role = Moose::Meta::Role->create(
8 'package' => '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->construct_instance(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");