File Coverage

blib/lib/Date/Language/Danish.pm
Criterion Covered Total %
statement 22 24 91.6
branch 0 2 0.0
condition n/a
subroutine 10 12 83.3
pod 0 6 0.0
total 32 44 72.7


line stmt bran cond sub pod time code
1             ##
2             ## Danish tables
3             ##
4              
5             package Date::Language::Danish;
6              
7 3     3   22 use strict;
  3         6  
  3         149  
8 3     3   18 use warnings;
  3         5  
  3         205  
9 3     3   21 use utf8;
  3         6  
  3         20  
10 3     3   102 use Date::Language ();
  3         6  
  3         132  
11              
12 3     3   17 use base 'Date::Language';
  3         6  
  3         484  
13              
14 3     3   20 use Date::Language::English ();
  3         7  
  3         1067  
15              
16             our $VERSION = '2.35'; # VERSION: generated
17             # ABSTRACT: Danish localization for Date::Format
18              
19             our @MoY = qw(Januar Februar Marts April Maj Juni
20             Juli August September Oktober November December);
21             our @MoYs = qw(Jan Feb Mar Apr Maj Jun Jul Aug Sep Okt Nov Dec);
22             our @DoW = qw(Søndag Mandag Tirsdag Onsdag Torsdag Fredag Lørdag);
23             our @DoWs = qw(Søn Man Tir Ons Tor Fre Lør);
24              
25             our @AMPM = @{Date::Language::English::AMPM};
26             our @Dsuf = @{Date::Language::English::Dsuf};
27              
28             our ( %MoY, %DoW );
29             Date::Language::_build_lookups();
30              
31             # Formatting routines
32              
33 3     3 0 15 sub format_a { $DoWs[$_[0]->[6]] }
34 2     2 0 10 sub format_A { $DoW[$_[0]->[6]] }
35 3     3 0 12 sub format_b { $MoYs[$_[0]->[4]] }
36 2     2 0 10 sub format_B { $MoY[$_[0]->[4]] }
37 0     0 0   sub format_h { $MoYs[$_[0]->[4]] }
38 0 0   0 0   sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
39              
40             1;
41              
42             __END__