File Coverage

lib/Catan/Asset/Road.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 Catan::Asset::Road;
2             $Catan::Asset::Road::VERSION = '0.03';
3 4     4   19 use strict;
  4     1   7  
  4         95  
  1         700  
  1         9  
  1         20  
4 4     4   19 use warnings;
  4     1   8  
  4         94  
  1         5  
  1         1  
  1         35  
5 4     4   351 use Catan::Resource::Brick;
  4     1   23  
  4         107  
  1         5  
  1         2  
  1         17  
6 4     4   389 use Catan::Resource::Lumber;
  4     1   7  
  4         705  
  1         5  
  1         2  
  1         216  
7              
8             sub new
9             {
10 30     30 0 55 my ($class, $path) = @_;
11 30 50 33     92 die "$class new require a path argument"
12             unless $path && $path->isa('Catan::Map::Path');
13              
14 30         152 return bless {
15             location => $path,
16             code => 'R',
17             }, $class;
18             }
19              
20 0     0 0 0 sub code { $_[0]->{code} }
21 60189     60189 0 151711 sub location { $_[0]->{location} }
22              
23             sub cost
24             {
25             return [
26 18     18 0 85 Catan::Resource::Brick->new(-1),
27             Catan::Resource::Lumber->new(-1),
28             ];
29             }
30             1;
31              
32             __END__