File Manager

X7ROOT File Manager

Current Path: /usr/local/share/perl5/Date/Language

usr / local / share / perl5 / Date / Language /

?? ..
?? Afar.pm(1.01 KB)
?? Amharic.pm(1.88 KB)
?? Austrian.pm(994 B)
?? Brazilian.pm(966 B)
?? Bulgarian.pm(2.51 KB)
?? Chinese.pm(977 B)
?? Chinese_GB.pm(918 B)
?? Czech.pm(1.38 KB)
?? Danish.pm(1.01 KB)
?? Dutch.pm(1.06 KB)
?? English.pm(973 B)
?? Finnish.pm(1.21 KB)
?? French.pm(1020 B)
?? Gedeo.pm(1.04 KB)
?? German.pm(1.02 KB)
?? Greek.pm(2.76 KB)
?? Hungarian.pm(2.08 KB)
?? Icelandic.pm(1.01 KB)
?? Italian.pm(1006 B)
?? Norwegian.pm(1004 B)
?? Occitan.pm(964 B)
?? Oromo.pm(999 B)
?? Romanian.pm(892 B)
?? Russian.pm(1.35 KB)
?? Russian_cp1251.pm(1.01 KB)
?? Russian_koi8r.pm(1.01 KB)
?? Sidama.pm(980 B)
?? Somali.pm(1.13 KB)
?? Spanish.pm(922 B)
?? Swedish.pm(1.1 KB)
?? Tigrinya.pm(1.4 KB)
?? TigrinyaEritrean.pm(1.86 KB)
?? TigrinyaEthiopian.pm(1.88 KB)
?? Turkish.pm(2.03 KB)

Editing: Somali.pm

##
## Somali tables
##

package Date::Language::Somali;

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(Axad Isniin Salaaso Arbaco Khamiis Jimco Sabti);
@MoY = (
"Bisha Koobaad",
"Bisha Labaad",
"Bisha Saddexaad",
"Bisha Afraad",
"Bisha Shanaad",
"Bisha Lixaad",
"Bisha Todobaad",
"Bisha Sideedaad",
"Bisha Sagaalaad",
"Bisha Tobnaad",
"Bisha Kow iyo Tobnaad",
"Bisha Laba iyo Tobnaad"
);
@DoWs = map { substr($_,0,3) } @DoW;
@MoYs = (
"Kob",
"Lab",
"Sad",
"Afr",
"Sha",
"Lix",
"Tod",
"Sid",
"Sag",
"Tob",
"KIT",
"LIT"
);
@AMPM = qw(SN GN);

@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] }

X7ROOT File Manager

Editing: Somali.pm

Upload File

Create Folder