1##
2## Afar tables
3##
4
5package Date::Language::Afar;
6
7use Date::Language ();
8use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
9@ISA = qw(Date::Language);
10$VERSION = "0.99";
11
12@DoW = qw(Acaada Etleeni Talaata Arbaqa Kamiisi Gumqata Sabti);
13@MoY = (
14"Qunxa Garablu",
15"Kudo",
16"Ciggilta Kudo",
17"Agda Baxis",
18"Caxah Alsa",
19"Qasa Dirri",
20"Qado Dirri",
21"Liiqen",
22"Waysu",
23"Diteli",
24"Ximoli",
25"Kaxxa Garablu"
26);
27@DoWs = map { substr($_,0,3) } @DoW;
28@MoYs = map { substr($_,0,3) } @MoY;
29@AMPM = qw(saaku carra);
30
31@Dsuf = (qw(th st nd rd th th th th th th)) x 3;
32@Dsuf[11,12,13] = qw(th th th);
33@Dsuf[30,31] = qw(th st);
34
35@MoY{@MoY}  = (0 .. scalar(@MoY));
36@MoY{@MoYs} = (0 .. scalar(@MoYs));
37@DoW{@DoW}  = (0 .. scalar(@DoW));
38@DoW{@DoWs} = (0 .. scalar(@DoWs));
39
40# Formatting routines
41
42sub format_a { $DoWs[$_[0]->[6]] }
43sub format_A { $DoW[$_[0]->[6]] }
44sub format_b { $MoYs[$_[0]->[4]] }
45sub format_B { $MoY[$_[0]->[4]] }
46sub format_h { $MoYs[$_[0]->[4]] }
47sub format_p { $_[0]->[2] >= 12 ?  $AMPM[1] : $AMPM[0] }
48
491;
50