package Elf;
sub named {
  my $class = shift;
  bless {
    Name => shift;
    Actions => Elf::Live::,
    Has => {},
  }, $class;
}

sub die {
  shift->{Actions} = Elf::Dead::;
}

sub can_attack { # delegate to actions
  shift->{Actions}->can_attack(@_);
}

sub enemy_of {
  shift->{Actions}->enemy_of(@_);
}

package Elf::Live;

sub can_attack { ... }

sub enemy_of { ... }

package Elf::Dead;

sub can_attack { ... }

sub enemy_of { ... }