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