view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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

66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
=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 {