File Coverage

lib/Catan/Map/Tile/Pastures.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::Pastures;
2             $Catan::Map::Tile::Pastures::VERSION = '0.03';
3 3     3   17 use strict;
  3     1   5  
  3         94  
  1         723  
  1         2  
  1         20  
4 3     3   17 use warnings;
  3     1   5  
  3         86  
  1         4  
  1         3  
  1         32  
5 3     3   14 use parent 'Catan::Map::Tile';
  3     1   5  
  3         16  
  1         4  
  1         3  
  1         4  
6 3     3   1073 use Catan::Resource::Wool;
  3     1   8  
  3         342  
  1         54  
  1         2  
  1         154  
7              
8             sub new
9             {
10 24     24 1 40 my ($class, $q, $r, $number) = @_;
11 24         71 my $self = $class->SUPER::new($q, $r, $number);
12 24         48 $self->{name} = 'Pastures';
13 24         34 $self->{code} = 'P';
14 24         48 return $self;
15             }
16 39     39 0 180 sub yields { Catan::Resource::Wool->new($_[1]) }
17             1;
18              
19             __END__