File Coverage

blib/lib/Date/Language/Dutch.pm
Criterion Covered Total %
statement 16 19 84.2
branch 0 2 0.0
condition n/a
subroutine 8 11 72.7
pod 0 7 0.0
total 24 39 61.5


line stmt bran cond sub pod time code
1             ##
2             ## Dutch tables
3             ## Contributed by Johannes la Poutre
4             ##
5              
6             package Date::Language::Dutch;
7              
8 3     3   22 use strict;
  3         7  
  3         108  
9 3     3   12 use warnings;
  3         5  
  3         195  
10 3     3   16 use Date::Language ();
  3         4  
  3         88  
11 3     3   14 use base 'Date::Language';
  3         4  
  3         1499  
12              
13             our $VERSION = '2.35'; # VERSION: generated
14             # ABSTRACT: Dutch localization for Date::Format
15              
16             our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW);
17              
18             @MoY = qw(januari februari maart april mei juni juli
19             augustus september oktober november december);
20             @MoYs = map(substr($_, 0, 3), @MoY);
21             $MoYs[2] = 'mrt'; # mrt is more common (Frank Maas)
22             @DoW = map($_ . "dag", qw(zon maan dins woens donder vrij zater));
23             @DoWs = map(substr($_, 0, 2), @DoW);
24              
25             # these aren't normally used...
26             @AMPM = qw(VM NM);
27             @Dsuf = ('e') x 31;
28              
29              
30             Date::Language::_build_lookups();
31              
32             # Formatting routines
33              
34 3     3 0 17 sub format_a { $DoWs[$_[0]->[6]] }
35 2     2 0 12 sub format_A { $DoW[$_[0]->[6]] }
36 3     3 0 13 sub format_b { $MoYs[$_[0]->[4]] }
37 2     2 0 10 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 0     0 0   sub format_o { sprintf("%2de",$_[0]->[3]) }
41              
42             1;
43              
44             __END__