view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

use ExtUtils::MakeMaker;
WriteMakefile(
              'NAME'	     => 'Games::Euchre',
              'VERSION_FROM' => 'lib/Games/Euchre.pm',
              'PREREQ_PM'    => {
                   Games::Cards => '1.45',
                   List::Util   => '1.11', # needed for Scalar::Util
                   Scalar::Util => '1.11', # needed for weaken()
                },
              'PREREQ_PM'    => {Games::Cards => '1.45'},
              'EXE_FILES'    => ['scripts/euchre.pl'],
              ($] >= 5.005 ?
               (ABSTRACT_FROM => 'lib/Games/Euchre.pm',
                AUTHOR        => 'Chris Dolan <chrisdolan@sourceforge.net') : ()),
              );

lib/Games/Euchre/Player.pm  view on Meta::CPAN

=item setTeam TEAM

Record the Team instance that this player belongs to.

=cut

sub setTeam {
   my $self = shift;
   my $team = shift;
   $self->{team} = $team;
   weaken($self->{team}); # break anti-GC loop
   return $self;
}

=item getTeam

Return the Team instance to which this player belongs.

=cut

sub getTeam {