1.1 --- a/Rule.pm	Thu Sep 10 08:01:18 2009 -0400
     1.2 +++ b/Rule.pm	Fri Mar 19 07:28:10 2010 -0400
     1.3 @@ -1,32 +1,34 @@
     1.4 -package Rule;
     1.5 -use List::Util qw(first max maxstr min minstr reduce shuffle sum);
     1.6 -
     1.7 -sub new
     1.8 -{
     1.9 -	my $class = shift;
    1.10 -	
    1.11 -	my $hashREF = 
    1.12 -	{
    1.13 -		_rarity_map => {"Rare" , 1 , "Uncommon" , 3 , "Common" , 6},
    1.14 -		_sets  => ("Base Set")
    1.15 -		
    1.16 -		
    1.17 -		
    1.18 -	};
    1.19 -	
    1.20 -	$objectREF = bless($hashREF, $class);
    1.21 -	
    1.22 -	return $objectREF;	
    1.23 -	
    1.24 -}
    1.25 -
    1.26 -
    1.27 -sub getRarityMap { return @_[0]->{'_rarity_map'}; };
    1.28 -sub getSets { return @_[0]->{'_sets'}; }
    1.29 -
    1.30 -
    1.31 -sub setRarityMap { $_[0]->{_rarity_map} = $_[1]; }
    1.32 -sub setSets { $_[0]->{_sets} = $_[1]; }
    1.33 -
    1.34 -
    1.35 -1; 
    1.36 \ No newline at end of file
    1.37 +#!/usr/bin/perl
    1.38 +
    1.39 +package Rule;
    1.40 +use List::Util qw(first max maxstr min minstr reduce shuffle sum);
    1.41 +
    1.42 +sub new
    1.43 +{
    1.44 +	my $class = shift;
    1.45 +	
    1.46 +	my $hashREF = 
    1.47 +	{
    1.48 +		_rarity_map => {"Rare" , 1 , "Uncommon" , 3 , "Common" , 6},
    1.49 +		_sets  => ("Base Set")
    1.50 +		
    1.51 +		
    1.52 +		
    1.53 +	};
    1.54 +	
    1.55 +	$objectREF = bless($hashREF, $class);
    1.56 +	
    1.57 +	return $objectREF;	
    1.58 +	
    1.59 +}
    1.60 +
    1.61 +
    1.62 +sub getRarityMap { return @_[0]->{'_rarity_map'}; };
    1.63 +sub getSets { return @_[0]->{'_sets'}; }
    1.64 +
    1.65 +
    1.66 +sub setRarityMap { $_[0]->{_rarity_map} = $_[1]; }
    1.67 +sub setSets { $_[0]->{_sets} = $_[1]; }
    1.68 +
    1.69 +
    1.70 +1;