Select Code to Download

#!/usr/bin/perl -w
use strict;
...
push @pl, Player->new(name => Bob, strategy => conservative);
my $hand = Hand->new( players, \@pl );
$hand->play();

sub new {
    my ($class, %arg) = @_;
...
        $this_player->out(); # this doesn't
    }
}

Can't locate object method "out" via package "Player=HASH(0x1012ac74)"
+ (perhaps you forgot to load "Player=HASH(0x1012ac74)"?) at Hand.pm l
+ine 63.