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