Mercurial > boosterpack

     1 #!/usr/bin/perl

     2 

     3 package Rule;

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

     5 

     6 sub new

     7 {

     8 	my $class = shift;

     9 	

    10 	my $hashREF = 

    11 	{

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

    13 		_sets  => ("Base Set")

    14 		

    15 		

    16 		

    17 	};

    18 	

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

    20 	

    21 	return $objectREF;	

    22 	

    23 }

    24 

    25 

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

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

    28 

    29 

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

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

    32 

    33 

    34 1;
author	rlm
date	Fri, 19 Mar 2010 07:28:10 -0400
parents	d7dd496a4fa6
children