Re: Removing a role

On Fri, 10 Feb 2012 18:07:58 +0200
ynon perek <[email protected]> wrote:

> Is it also possible to remove a role from an instance ?

While it would seemingly make sense to (ab)use the roles/traits system
for something like this, it probably is a better idea to have an
attribute that contains a list of abilities that the instance could use
to determine its actions.

has abilities => (
  is => 'ro',
  traits => [qw/Hash/],
  isa => 'HashRef',
  default => sub { +{} },
  handles => {
    has_ability => 'exists',
    get_ability => 'get',
    set_ability => 'set',
  }
);

...

sub deal_damage {
  my ($self) = @_;
  return $self->base_damage + ($self->has_ability('Strong') ?
    $self->get_ability : 0);
}

# attack
$badguy->set_ability('Strong' => 5);
 
$target->receive_damage($badguy->deal_damage);


Doing it this way also makes it easier to serialize (like making save
file).


-- 

Nicholas Perez
XMPP/Email: [email protected]
http://search.cpan.org/~nperez/
http://github.com/nperez