File Coverage

blib/lib/Date/Language/German.pm
Criterion Covered Total %
statement 16 16 100.0
branch 1 2 50.0
condition n/a
subroutine 10 10 100.0
pod 0 7 0.0
total 27 35 77.1


line stmt bran cond sub pod time code
1             ##
2             ## German tables
3             ##
4              
5             package Date::Language::German;
6              
7 2     2   15 use Date::Language ();
  2         4  
  2         68  
8 2     2   10 use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
  2         4  
  2         338  
9             @ISA = qw(Date::Language);
10             $VERSION = "1.02";
11              
12             @MoY = qw(Januar Februar März April Mai Juni
13             Juli August September Oktober November Dezember);
14             @MoYs = qw(Jan Feb Mär Apr Mai Jun Jul Aug Sep Okt Nov Dez);
15             @DoW = qw(Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag);
16             @DoWs = qw(Son Mon Die Mit Don Fre Sam);
17              
18 2     2   435 use Date::Language::English ();
  2         4  
  2         598  
19             @AMPM = @{Date::Language::English::AMPM};
20             @Dsuf = @{Date::Language::English::Dsuf};
21              
22             @MoY{@MoY} = (0 .. scalar(@MoY));
23             @MoY{@MoYs} = (0 .. scalar(@MoYs));
24             @DoW{@DoW} = (0 .. scalar(@DoW));
25             @DoW{@DoWs} = (0 .. scalar(@DoWs));
26              
27             # Formatting routines
28              
29 3     3 0 18 sub format_a { $DoWs[$_[0]->[6]] }
30 1     1 0 5 sub format_A { $DoW[$_[0]->[6]] }
31 3     3 0 14 sub format_b { $MoYs[$_[0]->[4]] }
32 1     1 0 5 sub format_B { $MoY[$_[0]->[4]] }
33 1     1 0 5 sub format_h { $MoYs[$_[0]->[4]] }
34 1 50   1 0 6 sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
35 1     1 0 7 sub format_o { sprintf("%2d.",$_[0]->[3]) }
36              
37             1;