File Coverage

blib/lib/Time/Elapsed/Lang/EN.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 3 3 100.0
total 21 21 100.0


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