File Coverage

lib/Settlers/Map/Tile/Sea.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 Settlers::Map::Tile::Sea;
2             $Settlers::Map::Tile::Sea::VERSION = '0.07';
3 3     3   14 use strict;
  3     1   4  
  3         80  
  1         854  
  1         2  
  1         21  
4 3     3   16 use warnings;
  3     1   4  
  3         80  
  1         5  
  1         2  
  1         23  
5 3     3   14 use parent 'Settlers::Map::Tile';
  3     1   6  
  3         14  
  1         5  
  1         2  
  1         4  
6              
7             sub new
8             {
9 108     108 1 160 my ($class, $q, $r, $number) = @_;
10 108         279 my $self = $class->SUPER::new($q, $r, $number);
11 108         189 $self->{name} = 'Sea';
12 108         177 $self->{code} = 'S';
13 108         213 return $self;
14             }
15             1;
16              
17             __END__