File Coverage

blib/lib/Crypt/XkcdPassword/Words/EN.pm
Criterion Covered Total %
statement 21 22 95.4
branch 2 2 100.0
condition n/a
subroutine 7 8 87.5
pod 0 2 0.0
total 30 34 88.2


line stmt bran cond sub pod time code
1 2     2   2131 use 5.008;
  2         6  
  2         86  
2 2     2   12 use strict;
  2         4  
  2         67  
3 2     2   10 use warnings;
  2         4  
  2         53  
4 2     2   11 use utf8;
  2         3  
  2         15  
5              
6             package Crypt::XkcdPassword::Words::EN;
7              
8             BEGIN {
9 2     2   109 $Crypt::XkcdPassword::Words::EN::AUTHORITY = 'cpan:TOBYINK';
10 2         43 $Crypt::XkcdPassword::Words::EN::VERSION = '0.009';
11             }
12              
13 2     2   11 use Moo;
  2         4  
  2         19  
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.";
19             }
20              
21             my $tell;
22             sub filehandle
23             {
24 7 100   7 0 22 if (defined $tell)
25             {
26 5         41 seek(DATA, $tell, 0);
27             }
28             else
29             {
30 2         6 $tell = tell(DATA);
31             }
32            
33 7         21 \*DATA;
34             }
35              
36             __PACKAGE__
37             __DATA__