t/030_roles/034_create_role.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More tests => 4;
   5 use Mouse ();
   6
   7 my $role = Mouse::Meta::Role->create(
   8     'MyItem::Role::Equipment',
   9     attributes => {
  10         is_worn => {
  11             is => 'rw',
  12             isa => 'Bool',
  13         },
  14     },
  15     methods => {
  16         remove => sub { shift->is_worn(0) },
  17     },
  18 );
  19
  20 my $class = Mouse::Meta::Class->create('MyItem::Armor::Helmet' =>
  21     roles => ['MyItem::Role::Equipment'],
  22 );
  23
  24 my $visored = $class->new_object(is_worn => 0);
  25 ok(!$visored->is_worn, "attribute, accessor was consumed");
  26 $visored->is_worn(1);
  27 ok($visored->is_worn, "accessor was consumed");
  28 $visored->remove;
  29 ok(!$visored->is_worn, "method was consumed");
  30
  31 ok(!$role->is_anon_role, "the role is not anonymous");
  32