File Coverage

blib/lib/Time/Elapsed/Lang/DA.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::DA;
2 1     1   5 use strict;
  1         2  
  1         34  
3 1     1   6 use warnings;
  1         1  
  1         30  
4 1     1   5 use utf8;
  1         8  
  1         6  
5 1     1   39 use vars qw( $VERSION );
  1         2  
  1         161  
6              
7             $VERSION = '0.32';
8              
9             sub singular {
10 1     1 1 7 return qw/
11             second sekund
12             minute minut
13             hour time
14             day dag
15             week uge
16             month måned
17             year år
18             /
19             }
20              
21             sub plural {
22 1     1 1 8 return qw/
23             second sekunder
24             minute minutter
25             hour timer
26             day dage
27             week uger
28             month måneder
29             year år
30             /
31             }
32              
33             sub other {
34 1     1 1 7 return qw/
35             and og
36             since siden
37             /,
38             zero => q{nul sekunder},
39             }
40              
41             1;
42              
43             __END__