File Coverage

blib/lib/Date/Language/Occitan.pm
Criterion Covered Total %
statement 16 18 88.8
branch 0 2 0.0
condition n/a
subroutine 8 10 80.0
pod 0 6 0.0
total 24 36 66.6


line stmt bran cond sub pod time code
1             ##
2             ## Occitan tables, contributed by Quentn PAGÈS
3             ##
4              
5             package Date::Language::Occitan;
6              
7 2     2   15 use strict;
  2         6  
  2         107  
8 2     2   31 use warnings;
  2         6  
  2         134  
9 2     2   13 use Date::Language ();
  2         6  
  2         87  
10 2     2   13 use base 'Date::Language';
  2         4  
  2         1431  
11              
12             our $VERSION = '2.35'; # VERSION: generated
13             # ABSTRACT: Occitan localization for Date::Format
14              
15             our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW);
16              
17             @DoW = qw(dimenge diluns dimars dimècres dijòus divendres dissabte);
18             @MoY = qw(genièr febrièr març abrial mai junh
19             julhet agost setembre octòbre novembre decembre);
20             @DoWs = map { substr($_,0,3) } @DoW;
21             @MoYs = map { substr($_,0,3) } @MoY;
22             $MoYs[6] = 'jul';
23             @AMPM = qw(AM PM);
24              
25             @Dsuf = ((qw(er e e e e e e e e e)) x 3, 'er');
26              
27             Date::Language::_build_lookups();
28              
29             # Formatting routines
30              
31 2     2 0 13 sub format_a { $DoWs[$_[0]->[6]] }
32 2     2 0 14 sub format_A { $DoW[$_[0]->[6]] }
33 2     2 0 13 sub format_b { $MoYs[$_[0]->[4]] }
34 2     2 0 14 sub format_B { $MoY[$_[0]->[4]] }
35 0     0 0   sub format_h { $MoYs[$_[0]->[4]] }
36 0 0   0 0   sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] }
37              
38             1;
39              
40             __END__