File Coverage

lib/Settlers/Map/Tile/Hills.pm
Criterion Covered Total %
statement 30 30 100.0
branch n/a
condition n/a
subroutine 10 10 100.0
pod 1 2 50.0
total 41 42 97.6


line stmt bran cond sub pod time code
1             package Settlers::Map::Tile::Hills;
2             $Settlers::Map::Tile::Hills::VERSION = '0.07';
3 3     3   15 use strict;
  3     1   5  
  3         73  
  1         855  
  1         3  
  1         20  
4 3     3   15 use warnings;
  3     1   3  
  3         77  
  1         5  
  1         3  
  1         24  
5 3     3   12 use parent 'Settlers::Map::Tile';
  3     1   6  
  3         1158  
  1         4  
  1         2  
  1         5  
6 3     3   905 use Settlers::Resource::Brick;
  3     1   18  
  3         311  
  1         57  
  1         2  
  1         273  
7              
8             sub new
9             {
10 18     18 1 36 my ($class, $q, $r, $number) = @_;
11 18         54 my $self = $class->SUPER::new($q, $r, $number);
12 18         36 $self->{name} = 'Hills';
13 18         26 $self->{code} = 'H';
14 18         37 return $self;
15             }
16 39     39 0 172 sub yields { Settlers::Resource::Brick->new($_[1]) }
17             1;
18              
19             __END__