annotate Rule.pm @ 5:e91d6f908222 boosterpack

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