File Coverage

lib/Catan/Asset/City.pm
Criterion Covered Total %
statement 24 30 80.0
branch 0 2 0.0
condition 0 3 0.0
subroutine 8 12 66.6
pod 0 4 0.0
total 32 51 62.7


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