File Coverage

lib/Catan/Resource/Grain.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 18 19 94.7


line stmt bran cond sub pod time code
1             package Catan::Resource::Grain;
2             $Catan::Resource::Grain::VERSION = '0.02';
3 7     7   894 use strict;
  7         15  
  7         161  
4 7     7   33 use warnings;
  7         24  
  7         176  
5 7     7   647 use parent 'Catan::Resource';
  7         290  
  7         33  
6              
7             sub new
8             {
9 24     24 0 44 my ($class, $quantity) = @_;
10 24         71 my $self = $class->SUPER::new($quantity);
11 24         55 $self->{name} = 'Grain';
12 24         40 $self->{code} = 'G';
13 24         114 return $self;
14             }
15             1;
16              
17             __END__