File Coverage

lib/Catan/Map/Tile/Fields.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 Catan::Map::Tile::Fields;
2             $Catan::Map::Tile::Fields::VERSION = '0.02';
3 3     3   16 use strict;
  3     1   4  
  3         70  
  1         872  
  1         2  
  1         28  
4 3     3   13 use warnings;
  3     1   5  
  3         68  
  1         5  
  1         2  
  1         24  
5 3     3   15 use parent 'Catan::Map::Tile';
  3     1   3  
  3         15  
  1         5  
  1         2  
  1         4  
6 3     3   927 use Catan::Resource::Grain;
  3     1   72  
  3         310  
  1         72  
  1         1  
  1         295  
7              
8             sub new
9             {
10 16     16 1 29 my ($class, $q, $r, $number) = @_;
11 16         56 my $self = $class->SUPER::new($q, $r, $number);
12 16         29 $self->{name} = 'Fields';
13 16         31 $self->{code} = 'F';
14 16         44 return $self;
15             }
16 16     16 0 59 sub yields { Catan::Resource::Grain->new($_[1]) }
17             1;
18              
19             __END__