rlm@0: package Rule;
rlm@0: use List::Util qw(first max maxstr min minstr reduce shuffle sum);
rlm@0: 
rlm@0: sub new
rlm@0: {
rlm@0: 	my $class = shift;
rlm@0: 	
rlm@0: 	my $hashREF = 
rlm@0: 	{
rlm@0: 		_rarity_map => {"Rare" , 1 , "Uncommon" , 3 , "Common" , 6},
rlm@0: 		_sets  => ("Base Set")
rlm@0: 		
rlm@0: 		
rlm@0: 		
rlm@0: 	};
rlm@0: 	
rlm@0: 	$objectREF = bless($hashREF, $class);
rlm@0: 	
rlm@0: 	return $objectREF;	
rlm@0: 	
rlm@0: }
rlm@0: 
rlm@0: 
rlm@0: sub getRarityMap { return @_[0]->{'_rarity_map'}; };
rlm@0: sub getSets { return @_[0]->{'_sets'}; }
rlm@0: 
rlm@0: 
rlm@0: sub setRarityMap { $_[0]->{_rarity_map} = $_[1]; }
rlm@0: sub setSets { $_[0]->{_sets} = $_[1]; }
rlm@0: 
rlm@0: 
rlm@0: 1;