File Coverage

lib/Settlers/Resource/Ore.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 Settlers::Resource::Ore;
2             $Settlers::Resource::Ore::VERSION = '0.07';
3 7     7   1420 use strict;
  7         12  
  7         165  
4 7     7   34 use warnings;
  7         11  
  7         178  
5 7     7   1321 use parent 'Settlers::Resource';
  7         592  
  7         37  
6              
7             sub new
8             {
9 141     141 0 228 my ($class, $quantity) = @_;
10 141         365 my $self = $class->SUPER::new($quantity);
11 141         283 $self->{name} = 'Ore';
12 141         259 $self->{code} = 'O';
13 141         526 return $self;
14             }
15             1;
16              
17             __END__