File Coverage

blib/lib/Date/Language/Austrian.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             ## Austrian tables
3             ##
4              
5             package Date::Language::Austrian;
6              
7 2     2   13 use strict;
  2         4  
  2         72  
8 2     2   8 use warnings;
  2         3  
  2         99  
9 2     2   11 use utf8;
  2         4  
  2         10  
10              
11 2     2   54 use Date::Language ();
  2         3  
  2         31  
12 2     2   408 use Date::Language::English ();
  2         4  
  2         94  
13              
14             our $VERSION = '2.34'; # VERSION: generated
15             # ABSTRACT: Austrian localization for Date::Format
16              
17 2     2   13 use base 'Date::Language';
  2         3  
  2         690  
18              
19             our @MoY = qw(Jänner Feber März April Mai Juni
20             Juli August September Oktober November Dezember);
21             our @MoYs = qw(Jän Feb Mär Apr Mai Jun Jul Aug Sep Oct Nov Dez);
22             our @DoW = qw(Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag);
23             our @DoWs = qw(Son Mon Die Mit Don Fre Sam);
24              
25              
26             our @AMPM = @{Date::Language::English::AMPM};
27             our @Dsuf = @{Date::Language::English::Dsuf};
28              
29             our ( %MoY, %DoW );
30             Date::Language::_build_lookups();
31              
32             # Formatting routines
33              
34 2     2 0 9 sub format_a { $DoWs[$_[0]->[6]] }
35 1     1 0 4 sub format_A { $DoW[$_[0]->[6]] }
36 2     2 0 7 sub format_b { $MoYs[$_[0]->[4]] }
37 1     1 0 5 sub format_B { $MoY[$_[0]->[4]] }
38 0     0 0   sub format_h { $MoYs[$_[0]->[4]] }
39 0 0   0 0   sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
40              
41             1;
42              
43             __END__