t/030_roles/034_create_role.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More tests => 3;
   5 use Moose ();
   6
   7 my $role = Moose::Meta::Role->create(
   8     'package' => '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 = Moose::Meta::Class->create('MyItem::Armor::Helmet' =>
  21     roles => ['MyItem::Role::Equipment'],
  22 );
  23
  24 my $visored = $class->construct_instance(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