Mercurial > boosterpack

view Rule.pm @ 5:e91d6f908222 boosterpack

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r7] finished!
author robert
date Tue, 08 Sep 2009 06:55:23 -0400
parents d7dd496a4fa6
children 8c6d2ce90677
line wrap: on
line source
     1 package Rule;



     2 use List::Util qw(first max maxstr min minstr reduce shuffle sum);



     3 



     4 sub new



     5 {



     6 	my $class = shift;



     7 	



     8 	my $hashREF = 



     9 	{



    10 		_rarity_map => {"Rare" , 1 , "Uncommon" , 3 , "Common" , 6},



    11 		_sets  => ("Base Set")



    12 		



    13 		



    14 		



    15 	};



    16 	



    17 	$objectREF = bless($hashREF, $class);



    18 	



    19 	return $objectREF;	



    20 	



    21 }



    22 



    23 



    24 sub getRarityMap { return @_[0]->{'_rarity_map'}; };



    25 sub getSets { return @_[0]->{'_sets'}; }



    26 



    27 



    28 sub setRarityMap { $_[0]->{_rarity_map} = $_[1]; }



    29 sub setSets { $_[0]->{_sets} = $_[1]; }



    30 



    31 



    32 1;