1## 2## Tigrinya tables 3## 4 5package Date::Language::Tigrinya; 6 7use Date::Language (); 8use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION); 9@ISA = qw(Date::Language); 10$VERSION = "1.00"; 11 12@DoW = qw( 13"\x{U1230}\x{U1295}\x{U1260}\x{U1275}", 14"\x{U1230}\x{U1291}\x{U12ed}", 15"\x{U1230}\x{U1209}\x{U1235}", 16"\x{U1228}\x{U1261}\x{U12d5}", 17"\x{U1213}\x{U1219}\x{U1235}", 18"\x{U12d3}\x{U122d}\x{U1262}", 19"\x{U1240}\x{U12f3}\x{U121d}" 20); 21@MoY = qw( 22"\x{U1303}\x{U1295}\x{U12e9}\x{U12c8}\x{U122a}", 23"\x{U134c}\x{U1265}\x{U1229}\x{U12c8}\x{U122a}", 24"\x{U121b}\x{U122d}\x{U127d}", 25"\x{U12a4}\x{U1355}\x{U1228}\x{U120d}", 26"\x{U121c}\x{U12ed}", 27"\x{U1301}\x{U1295}", 28"\x{U1301}\x{U120b}\x{U12ed}", 29"\x{U12a6}\x{U1308}\x{U1235}\x{U1275}", 30"\x{U1234}\x{U1355}\x{U1274}\x{U121d}\x{U1260}\x{U122d}", 31"\x{U12a6}\x{U12ad}\x{U1270}\x{U12cd}\x{U1260}\x{U122d}", 32"\x{U1296}\x{U126c}\x{U121d}\x{U1260}\x{U122d}", 33"\x{U12f2}\x{U1234}\x{U121d}\x{U1260}\x{U122d}" 34); 35@DoWs = map { substr($_,0,3) } @DoW; 36@MoYs = map { substr($_,0,3) } @MoY; 37@AMPM = ( 38"\x{1295}/\x{1230}", 39"\x{12F5}/\x{1230}" 40); 41 42@Dsuf = ("\x{12ed}" x 31); 43 44@MoY{@MoY} = (0 .. scalar(@MoY)); 45@MoY{@MoYs} = (0 .. scalar(@MoYs)); 46@DoW{@DoW} = (0 .. scalar(@DoW)); 47@DoW{@DoWs} = (0 .. scalar(@DoWs)); 48 49# Formatting routines 50 51sub format_a { $DoWs[$_[0]->[6]] } 52sub format_A { $DoW[$_[0]->[6]] } 53sub format_b { $MoYs[$_[0]->[4]] } 54sub format_B { $MoY[$_[0]->[4]] } 55sub format_h { $MoYs[$_[0]->[4]] } 56sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] } 57 581; 59