FM / Language

/usr/share/perl5/vendor_perl/Date/Language/

/usr/share/perl5/vendor_perl/Date/Language

Name	Size	Mode	Actions
Afar.pm	1032	0644	edit dl rm
Amharic.pm	1927	0644	edit dl rm
Austrian.pm	994	0644	edit dl rm
Brazilian.pm	966	0644	edit dl rm
Bulgarian.pm	2567	0644	edit dl rm
Chinese.pm	977	0644	edit dl rm
Chinese_GB.pm	918	0644	edit dl rm
Czech.pm	1411	0644	edit dl rm
Danish.pm	1035	0644	edit dl rm
Dutch.pm	1086	0644	edit dl rm
English.pm	973	0644	edit dl rm
Finnish.pm	1239	0644	edit dl rm
French.pm	992	0644	edit dl rm
Gedeo.pm	1064	0644	edit dl rm
German.pm	1040	0644	edit dl rm
Greek.pm	2826	0644	edit dl rm
Hungarian.pm	2133	0644	edit dl rm
Icelandic.pm	1037	0644	edit dl rm
Italian.pm	1006	0644	edit dl rm
Norwegian.pm	1004	0644	edit dl rm
Oromo.pm	999	0644	edit dl rm
Romanian.pm	892	0644	edit dl rm
Russian.pm	1384	0644	edit dl rm
Russian_cp1251.pm	1036	0644	edit dl rm
Russian_koi8r.pm	1034	0644	edit dl rm
Sidama.pm	980	0644	edit dl rm
Somali.pm	1155	0644	edit dl rm
Spanish.pm	922	0644	edit dl rm
Swedish.pm	1122	0644	edit dl rm
Tigrinya.pm	1434	0644	edit dl rm
TigrinyaEritrean.pm	1904	0644	edit dl rm
TigrinyaEthiopian.pm	1930	0644	edit dl rm
Turkish.pm	2079	0644	edit dl rm

Edit: /usr/share/perl5/vendor_perl/Date/Language/Gedeo.pm (1064B)

##
## Gedeo tables
##

package Date::Language::Gedeo;

use Date::Language ();
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
@ISA = qw(Date::Language);
$VERSION = "0.99";

@DoW = qw( Sanbbattaa Sanno Masano Roobe Hamusse Arbe Qiddamme);
@MoY = (
"Oritto",
"Birre'a",
"Onkkollessa",
"Saddasa",
"Arrasa",
"Qammo",
"Ella",
"Waacibajje",
"Canissa",
"Addolessa",
"Bittitotessa",
"Hegeya"
);
@DoWs = map { substr($_,0,3) } @DoW;
$DoWs[0] = "Snb";
$DoWs[1] = "Sno";
@MoYs = map { substr($_,0,3) } @MoY;
@AMPM = qw(gorsa warreti-udumma);

@Dsuf = (qw(th st nd rd th th th th th th)) x 3;
@Dsuf[11,12,13] = qw(th th th);
@Dsuf[30,31] = qw(th st);

@MoY{@MoY}  = (0 .. scalar(@MoY));
@MoY{@MoYs} = (0 .. scalar(@MoYs));
@DoW{@DoW}  = (0 .. scalar(@DoW));
@DoW{@DoWs} = (0 .. scalar(@DoWs));

# Formatting routines

sub format_a { $DoWs[$_[0]->[6]] }
sub format_A { $DoW[$_[0]->[6]] }
sub format_b { $MoYs[$_[0]->[4]] }
sub format_B { $MoY[$_[0]->[4]] }
sub format_h { $MoYs[$_[0]->[4]] }
sub format_p { $_[0]->[2] >= 12 ?  $AMPM[1] : $AMPM[0] }

## ## Gedeo tables ## package Date::Language::Gedeo; use Date::Language (); use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION); @ISA = qw(Date::Language); $VERSION = "0.99"; @DoW = qw( Sanbbattaa Sanno Masano Roobe Hamusse Arbe Qiddamme); @MoY = ( "Oritto", "Birre'a", "Onkkollessa", "Saddasa", "Arrasa", "Qammo", "Ella", "Waacibajje", "Canissa", "Addolessa", "Bittitotessa", "Hegeya" ); @DoWs = map { substr($_,0,3) } @DoW; $DoWs[0] = "Snb"; $DoWs[1] = "Sno"; @MoYs = map { substr($_,0,3) } @MoY; @AMPM = qw(gorsa warreti-udumma); @Dsuf = (qw(th st nd rd th th th th th th)) x 3; @Dsuf[11,12,13] = qw(th th th); @Dsuf[30,31] = qw(th st); @MoY{@MoY} = (0 .. scalar(@MoY)); @MoY{@MoYs} = (0 .. scalar(@MoYs)); @DoW{@DoW} = (0 .. scalar(@DoW)); @DoW{@DoWs} = (0 .. scalar(@DoWs)); # Formatting routines sub format_a { $DoWs[$_[0]->[6]] } sub format_A { $DoW[$_[0]->[6]] } sub format_b { $MoYs[$_[0]->[4]] } sub format_B { $MoY[$_[0]->[4]] } sub format_h { $MoYs[$_[0]->[4]] } sub format_p { $_[0]->[2] >= 12 ? $AMPM[1] : $AMPM[0] } 1;