1##
2## Somali tables
3##
4
5package Date::Language::Somali;
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(Axad Isniin Salaaso Arbaco Khamiis Jimco Sabti);
13@MoY = (
14"Bisha Koobaad",
15"Bisha Labaad",
16"Bisha Saddexaad",
17"Bisha Afraad",
18"Bisha Shanaad",
19"Bisha Lixaad",
20"Bisha Todobaad",
21"Bisha Sideedaad",
22"Bisha Sagaalaad",
23"Bisha Tobnaad",
24"Bisha Kow iyo Tobnaad",
25"Bisha Laba iyo Tobnaad"
26);
27@DoWs = map { substr($_,0,3) } @DoW;
28@MoYs = (
29"Kob",
30"Lab",
31"Sad",
32"Afr",
33"Sha",
34"Lix",
35"Tod",
36"Sid",
37"Sag",
38"Tob",
39"KIT",
40"LIT"
41);
42@AMPM = qw(SN GN);
43
44@Dsuf = (qw(th st nd rd th th th th th th)) x 3;
45@Dsuf[11,12,13] = qw(th th th);
46@Dsuf[30,31] = qw(th st);
47
48@MoY{@MoY}  = (0 .. scalar(@MoY));
49@MoY{@MoYs} = (0 .. scalar(@MoYs));
50@DoW{@DoW}  = (0 .. scalar(@DoW));
51@DoW{@DoWs} = (0 .. scalar(@DoWs));
52
53# Formatting routines
54
55sub format_a { $DoWs[$_[0]->[6]] }
56sub format_A { $DoW[$_[0]->[6]] }
57sub format_b { $MoYs[$_[0]->[4]] }
58sub format_B { $MoY[$_[0]->[4]] }
59sub format_h { $MoYs[$_[0]->[4]] }
60sub format_p { $_[0]->[2] >= 12 ?  $AMPM[1] : $AMPM[0] }
61
621;
63