File Coverage

blib/lib/Games/Word/Phraselist.pm
Criterion Covered Total %
statement 12 16 75.0
branch n/a
condition n/a
subroutine 5 7 71.4
pod 5 5 100.0
total 22 28 78.5


line stmt bran cond sub pod time code
1             package Games::Word::Phraselist;
2              
3             our $DATE = '2014-08-10'; # DATE
4             our $VERSION = '0.04'; # VERSION
5              
6 1     1   1061 use 5.010001;
  1         3  
  1         54  
7 1     1   1007 use parent qw(Games::Word::Wordlist);
  1         413  
  1         5  
8              
9 1     1 1 60 sub phrases { my $self = shift; $self->words(@_) }
  1         12  
10 0     0 1 0 sub random_phrase { my $self = shift; $self->random_word(@_) }
  0         0  
11 2     2 1 2641 sub is_phrase { my $self = shift; $self->is_word(@_) }
  2         18  
12 0     0 1 0 sub each_phrase { my $self = shift; $self->each_word(@_) }
  0         0  
13 1     1 1 1313 sub phrases_like { my $self = shift; $self->words_like(@_) }
  1         21  
14              
15             1;
16             # ABSTRACT: Manage a list of phrases
17              
18             __END__