File Coverage

lib/Settlers/Resource.pm

Criterion	Covered	Total	%
statement	15	16	93.7
branch	1	2	50.0
condition	2	2	100.0
subroutine	7	8	87.5
pod	0	6	0.0
total	25	34	73.5

package Settlers::Resource;
$Settlers::Resource::VERSION = '0.07';
use strict;
use warnings;

sub new
{
  my ($class, $quantity) = @_;
  $quantity ||= 0;
  die "quantity: $quantity must be an integer" unless $quantity =~ /^-?[0-9]+$/;
  return bless { quantity => $quantity }, $class;
}

sub quantity { $_[0]->{quantity} }
sub amount   { $_[0]->{quantity} }
sub name     { $_[0]->{name} }
sub code     { $_[0]->{code} }

# creates a new class with the amounts inverted - useful for balancing trades
sub invert
{
  my $class = ref $_[0];
  return $class->new( - $_[0]->amount );
}
1;

__END__