File Coverage

blib/lib/Crypt/XkcdPassword/Words/IT.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   1560 use 5.008;
  1         5  
  1         40  
2 1     1   6 use strict;
  1         2  
  1         34  
3 1     1   7 use warnings;
  1         3  
  1         30  
4 1     1   6 use utf8;
  1         2  
  1         8  
5              
6             package Crypt::XkcdPassword::Words::IT;
7              
8             BEGIN {
9 1     1   62 $Crypt::XkcdPassword::Words::IT::AUTHORITY = 'cpan:TOBYINK';
10 1         19 $Crypt::XkcdPassword::Words::IT::VERSION = '0.009';
11             }
12              
13 1     1   6 use Moo;
  1         2  
  1         10  
14             with qw(Crypt::XkcdPassword::Words);
15              
16             sub description
17             {
18 0     0 0 0 "The 20,000 most commonly used words in Italian.";
19             }
20              
21             my $tell;
22             sub filehandle
23             {
24 1 50   1 0 4 if (defined $tell)
25             {
26 0         0 seek(DATA, $tell, 0);
27             }
28             else
29             {
30 1         2 $tell = tell(DATA);
31             }
32            
33 1         3 \*DATA;
34             }
35              
36             __PACKAGE__
37             __DATA__