File Coverage

blib/lib/Date/Language/Norwegian.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             ## Norwegian tables
3             ##
4              
5             package Date::Language::Norwegian;
6              
7 2     2   14 use strict;
  2         4  
  2         76  
8 2     2   8 use warnings;
  2         4  
  2         124  
9 2     2   15 use utf8;
  2         4  
  2         13  
10 2     2   62 use Date::Language ();
  2         19  
  2         57  
11              
12 2     2   10 use base 'Date::Language';
  2         3  
  2         305  
13 2     2   16 use Date::Language::English ();
  2         4  
  2         902  
14              
15             our $VERSION = '2.34'; # VERSION: generated
16             # ABSTRACT: Norwegian localization for Date::Format
17              
18             our @MoY = qw(Januar Februar Mars April Mai Juni
19             Juli August September Oktober November Desember);
20             our @MoYs = qw(Jan Feb Mar Apr Mai Jun Jul Aug Sep Okt Nov Des);
21             our @DoW = qw(Søndag Mandag Tirsdag Onsdag Torsdag Fredag Lørdag);
22             our @DoWs = qw(Søn Man Tir Ons Tor Fre Lør);
23              
24             our @AMPM = @{Date::Language::English::AMPM};
25             our @Dsuf = @{Date::Language::English::Dsuf};
26              
27             our ( %MoY, %DoW );
28             Date::Language::_build_lookups();
29              
30             # Formatting routines
31              
32 2     2 0 12 sub format_a { $DoWs[$_[0]->[6]] }
33 1     1 0 6 sub format_A { $DoW[$_[0]->[6]] }
34 2     2 0 8 sub format_b { $MoYs[$_[0]->[4]] }
35 1     1 0 7 sub format_B { $MoY[$_[0]->[4]] }
36 0     0 0   sub format_h { $MoYs[$_[0]->[4]] }
37 0 0   0 0   sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
38              
39             1;
40              
41             __END__