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