File Coverage

blib/lib/Games/Word/Wordlist/Country.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 22 22 100.0


line stmt bran cond sub pod time code
1             package Games::Word::Wordlist::Country;
2              
3             our $DATE = '2016-01-13'; # DATE
4             our $VERSION = '0.03'; # VERSION
5              
6 1     1   708 use 5.010001;
  1         4  
7 1     1   7 use strict;
  1         2  
  1         26  
8 1     1   6 use warnings;
  1         1  
  1         33  
9              
10 1     1   776 use parent qw(Games::Word::Wordlist);
  1         339  
  1         5  
11              
12 1     1   47703 use WordList::EN::CountryNames;
  1         1427  
  1         61  
13              
14             sub new {
15 1     1 1 30 bless Games::Word::Wordlist->new ([WordList::EN::CountryNames->new->all_words]), shift;
16             }
17              
18             1;
19              
20             # ABSTRACT: English names of countries of the world
21              
22              
23             __END__