File Coverage

blib/lib/Date/Language/German.pm
Criterion Covered Total %
statement 22 22 100.0
branch 1 2 50.0
condition n/a
subroutine 12 12 100.0
pod 0 7 0.0
total 35 43 81.4


line stmt bran cond sub pod time code
1             ##
2             ## German tables
3             ##
4              
5             package Date::Language::German;
6              
7 3     3   20 use strict;
  3         6  
  3         159  
8 3     3   23 use warnings;
  3         6  
  3         183  
9 3     3   692 use utf8;
  3         310  
  3         21  
10              
11 3     3   489 use Date::Language::English ();
  3         6  
  3         90  
12              
13 3     3   16 use base 'Date::Language';
  3         5  
  3         1594  
14              
15             our $VERSION = '2.34'; # VERSION: generated
16             # ABSTRACT: German localization for Date::Format
17              
18             our @MoY = qw(Januar Februar März April Mai Juni
19             Juli August September Oktober November Dezember);
20             our @MoYs = qw(Jan Feb Mär Apr Mai Jun Jul Aug Sep Okt Nov Dez);
21             our @DoW = qw(Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag);
22             our @DoWs = qw(Son Mon Die Mit Don Fre Sam);
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 4     4 0 24 sub format_a { $DoWs[$_[0]->[6]] }
33 2     2 0 10 sub format_A { $DoW[$_[0]->[6]] }
34 4     4 0 20 sub format_b { $MoYs[$_[0]->[4]] }
35 2     2 0 11 sub format_B { $MoY[$_[0]->[4]] }
36 1     1 0 4 sub format_h { $MoYs[$_[0]->[4]] }
37 1 50   1 0 8 sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
38 1     1 0 5 sub format_o { sprintf("%2d.",$_[0]->[3]) }
39              
40             1;
41              
42             __END__