File Coverage

blib/lib/Crypt/XkcdPassword/Words/EN/Roget.pm
Criterion Covered Total %
statement 20 22 90.9
branch 1 2 50.0
condition n/a
subroutine 7 8 87.5
pod 0 2 0.0
total 28 34 82.3


line stmt bran cond sub pod time code
1 1     1   2336 use 5.008;
  1         5  
  1         46  
2 1     1   7 use strict;
  1         1  
  1         40  
3 1     1   7 use warnings;
  1         2  
  1         33  
4 1     1   6 use utf8;
  1         2  
  1         9  
5              
6             package Crypt::XkcdPassword::Words::EN::Roget;
7              
8             BEGIN {
9 1     1   77 $Crypt::XkcdPassword::Words::EN::Roget::AUTHORITY = 'cpan:TOBYINK';
10 1         34 $Crypt::XkcdPassword::Words::EN::Roget::VERSION = '0.009';
11             }
12              
13 1     1   6 use Moo;
  1         2  
  1         9  
14             with qw(Crypt::XkcdPassword::Words);
15              
16             sub description
17             {
18 0     0 0 0 "The 10,000 most commonly used words in English, filtered via Roget's thesaurus, with any words not found there removed.";
19             }
20              
21             my $tell;
22             sub filehandle
23             {
24 1 50   1 0 5 if (defined $tell)
25             {
26 0         0 seek(DATA, $tell, 0);
27             }
28             else
29             {
30 1         4 $tell = tell(DATA);
31             }
32            
33 1         3 \*DATA;
34             }
35              
36             __PACKAGE__
37             __DATA__