Re^2: Perl OO newbie advice - object interaction

I think you're forgetting that the damage() method has to actually alter the object's hit-points:

sub damage {
  ...
  $self->{_hp} = $self->{_hp} - $hits;
  # or, more succinctly:
  # $self->{_hp} -= $hits;
}
[download]

Jeff japhy Pinyan, P.L., P.M., P.O.D, X.S.: Perl, regex, and perl hacker
How can we ever be the sold short or the cheated, we who for every service have long ago been overpaid? ~~ Meister Eckhart

Comment on Re^2: Perl OO newbie advice - object interaction Download Code