rlmcintyre: BoosterPack/.svn/text-base/Rule.pm.svn-base annotate

initial committ. what was I thinking?

rev	line source
rlm@0	1 package Rule;
rlm@0	2 use List::Util qw(first max maxstr min minstr reduce shuffle sum);
rlm@0	3
rlm@0	4 sub new
rlm@0	5 {
rlm@0	6 my $class = shift;
rlm@0	7
rlm@0	8 my $hashREF =
rlm@0	9 {
rlm@0	10 _rarity_map => {"Rare" , 1 , "Uncommon" , 3 , "Common" , 6},
rlm@0	11 _sets => ("Base Set")
rlm@0	12
rlm@0	13
rlm@0	14
rlm@0	15 };
rlm@0	16
rlm@0	17 $objectREF = bless($hashREF, $class);
rlm@0	18
rlm@0	19 return $objectREF;
rlm@0	20
rlm@0	21 }
rlm@0	22
rlm@0	23
rlm@0	24 sub getRarityMap { return @_[0]->{'_rarity_map'}; };
rlm@0	25 sub getSets { return @_[0]->{'_sets'}; }
rlm@0	26
rlm@0	27
rlm@0	28 sub setRarityMap { $_[0]->{_rarity_map} = $_[1]; }
rlm@0	29 sub setSets { $_[0]->{_sets} = $_[1]; }
rlm@0	30
rlm@0	31
rlm@0	32 1;

Mercurial > rlmcintyre