File Coverage

blib/lib/Time/Elapsed/Lang/EN.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 3 3 100.0
total 25 25 100.0


line stmt bran cond sub pod time code
1             package Time::Elapsed::Lang::EN;
2 1     1   5 use strict;
  1         3  
  1         33  
3 1     1   5 use warnings;
  1         1  
  1         27  
4 1     1   4 use utf8;
  1         2  
  1         7  
5 1     1   22 use vars qw( $VERSION );
  1         2  
  1         115  
6              
7             $VERSION = '0.31';
8              
9             sub singular {
10 1     1 1 9 return qw/
11             second second
12             minute minute
13             hour hour
14             day day
15             week week
16             month month
17             year year
18             /
19             }
20              
21             sub plural {
22 1     1 1 7 return qw/
23             second seconds
24             minute minutes
25             hour hours
26             day days
27             week weeks
28             month months
29             year years
30             /
31             }
32              
33             sub other {
34 1     1 1 8 return qw/
35             and and
36             ago ago
37             /,
38             zero => q{zero seconds},
39             }
40              
41             1;
42              
43             __END__