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