webshell

Ghost Exploiter Team Official

C:/Program Files/Git/usr/share/perl5/vendor_perl/Date/Language/

File / Folder	Size	Action
.	-
Afar.pm	1.378KB	edt ren
Amharic.pm	2.261KB	edt ren
Arabic.pm	1.396KB	edt ren
Austrian.pm	1.745KB	edt ren
Brazilian.pm	1.33KB	edt ren
Bulgarian.pm	2.834KB	edt ren
Chinese.pm	1.334KB	edt ren
Chinese_GB.pm	2.077KB	edt ren
Czech.pm	1.779KB	edt ren
Danish.pm	1.344KB	edt ren
Dutch.pm	1.433KB	edt ren
English.pm	1.331KB	edt ren
Finnish.pm	1.586KB	edt ren
French.pm	1.389KB	edt ren
Gedeo.pm	1.412KB	edt ren
German.pm	1.736KB	edt ren
Greek.pm	1.963KB	edt ren
Hungarian.pm	2.568KB	edt ren
Icelandic.pm	1.406KB	edt ren
Italian.pm	1.363KB	edt ren
Norwegian.pm	1.356KB	edt ren
Occitan.pm	1.328KB	edt ren
Oromo.pm	1.349KB	edt ren
Portuguese.pm	1.358KB	edt ren
Romanian.pm	1.258KB	edt ren
Russian.pm	4.191KB	edt ren
Russian_cp1251.pm	2.623KB	edt ren
Russian_koi8r.pm	2.631KB	edt ren
Sidama.pm	1.333KB	edt ren
Somali.pm	1.504KB	edt ren
Spanish.pm	1.279KB	edt ren
Swedish.pm	1.438KB	edt ren
Tigrinya.pm	1.782KB	edt ren
TigrinyaEritrean.pm	2.241KB	edt ren
TigrinyaEthiopian.pm	2.295KB	edt ren
Turkish.pm	2.386KB	edt ren

##
## Tigrinya-Ethiopian tables
##

package Date::Language::TigrinyaEthiopian;

use strict;
use warnings;

use Date::Language ();
use base qw(Date::Language);

our $VERSION = '2.35'; # VERSION: generated
# ABSTRACT: TigrinyaEthiopian localization for Date::Format

our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW);

if ( $] >= 5.006 ) {
@DoW = (
"\x{1230}\x{1295}\x{1260}\x{1275}",
"\x{1230}\x{1291}\x{12ed}",
"\x{1230}\x{1209}\x{1235}",
"\x{1228}\x{1261}\x{12d5}",
"\x{1213}\x{1219}\x{1235}",
"\x{12d3}\x{122d}\x{1262}",
"\x{1240}\x{12f3}\x{121d}"
);
@MoY = (
"\x{1303}\x{1295}\x{12e9}\x{12c8}\x{122a}",
"\x{134c}\x{1265}\x{1229}\x{12c8}\x{122a}",
"\x{121b}\x{122d}\x{127d}",
"\x{12a4}\x{1355}\x{1228}\x{120d}",
"\x{121c}\x{12ed}",
"\x{1301}\x{1295}",
"\x{1301}\x{120b}\x{12ed}",
"\x{12a6}\x{1308}\x{1235}\x{1275}",
"\x{1234}\x{1355}\x{1274}\x{121d}\x{1260}\x{122d}",
"\x{12a6}\x{12ad}\x{1270}\x{12cd}\x{1260}\x{122d}",
"\x{1296}\x{126c}\x{121d}\x{1260}\x{122d}",
"\x{12f2}\x{1234}\x{121d}\x{1260}\x{122d}"
);
@DoWs = map { substr($_,0,3) } @DoW;
@MoYs = map { substr($_,0,3) } @MoY;
@AMPM = (
"\x{1295}/\x{1230}",
"\x{12F5}/\x{1230}"
);

@Dsuf = ("\x{12ed}" x 31);
}
else {
@DoW = (
"ሰንበት",
"ሰኑይ",
"ሰሉስ",
"ረቡዕ",
"ሓሙስ",
"ዓርቢ",
"ቀዳም"
);
@MoY = (
"ጃንዩወሪ",
"ፌብሩወሪ",
"ማርች",
"ኤፕረል",
"ሜይ",
"ጁን",
"ጁላይ",
"ኦገስት",
"ሴፕቴምበር",
"ኦክተውበር",
"ኖቬምበር",
"ዲሴምበር"
);
@DoWs = map { substr($_,0,9) } @DoW;
@MoYs = map { substr($_,0,9) } @MoY;
@AMPM = (
"ን/ሰ",
"ድ/ሰ"
);

@Dsuf = ("ይ" x 31);
}

Date::Language::_build_lookups();

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

__END__

=pod

=encoding UTF-8

=head1 NAME

Date::Language::TigrinyaEthiopian - TigrinyaEthiopian localization for Date::Format

=head1 VERSION

version 2.35

=head1 AUTHOR

Graham <gbarr@pobox.com>

=head1 COPYRIGHT AND LICENSE

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut

<=Back