File Coverage

lib/Settlers/Asset/City.pm
Criterion Covered Total %
statement 29 30 96.6
branch 1 2 50.0
condition 1 3 33.3
subroutine 11 12 91.6
pod 0 4 0.0
total 42 51 82.3


line stmt bran cond sub pod time code
1             package Settlers::Asset::City;
2             $Settlers::Asset::City::VERSION = '0.07';
3 4     4   20 use strict;
  4     1   7  
  4         94  
  1         991  
  1         2  
  1         23  
4 4     4   19 use warnings;
  4     1   5  
  4         89  
  1         6  
  1         2  
  1         25  
5 4     4   418 use Settlers::Resource::Ore;
  4     1   7  
  4         113  
  1         5  
  1         2  
  1         29  
6 4     4   20 use Settlers::Resource::Grain;
  4     1   6  
  4         609  
  1         5  
  1         2  
  1         397  
7              
8             sub new
9             {
10 5     5 0 9 my ($class, $location) = @_;
11              
12 5 50 33     12 die __PACKAGE__ . 'new requires a location argument'
13             unless $location && $location->isa('Settlers::Map::Intersection');
14              
15 5         23 return bless {
16             location => $location,
17             code => 'C',
18             }, $class;
19             }
20              
21 0     0 0 0 sub code { $_[0]->{code} }
22 926     926 0 2585 sub location { $_[0]->{location} }
23              
24             sub cost
25             {
26             return [
27 6     6 0 27 Settlers::Resource::Ore->new(-3),
28             Settlers::Resource::Grain->new(-2),
29             ];
30             }
31             1;
32              
33             __END__