Select Code to Download

        _hp   => $arg{hp} || rand (10) + 2

sub damage {
    my ($self, $hits) = @_;

    $self->{_hp} - $hits;

use strict;
use warnings;
...

$joe->damage($henry->attack ());
$henry->damage($joe->attack ());

Henry attacks for 1.....
1 damage
Joe attacks for 1.....
1 damage