File Coverage

lib/Catan/Map/Tile/HarborOre.pm
Criterion Covered Total %
statement 23 23 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 1 1 100.0
total 31 31 100.0


line stmt bran cond sub pod time code
1             package Catan::Map::Tile::HarborOre;
2             $Catan::Map::Tile::HarborOre::VERSION = '0.03';
3 3     3   13 use strict;
  3     1   6  
  3         75  
  1         914  
  1         3  
  1         21  
4 3     3   13 use warnings;
  3     1   6  
  3         74  
  1         6  
  1         2  
  1         89  
5 3     3   13 use parent 'Catan::Map::Tile';
  3     1   5  
  3         15  
  1         6  
  1         1  
  1         8  
6              
7             sub new
8             {
9 6     6 1 14 my ($class, $q, $r, $number) = @_;
10 6         26 my $self = $class->SUPER::new($q, $r, $number);
11 6         19 $self->{name} = 'Ore Harbor';
12 6         13 $self->{code} = 'HRO';
13 6         13 return $self;
14             }
15             1;
16              
17             __END__