package DateTime::Locale::zh_Hant_HK;
use strict;
BEGIN
{
if ( $] >= 5.006 )
{
require utf8; utf8->import;
}
}
use DateTime::Locale::zh_Hant;
@DateTime::Locale::zh_Hant_HK::ISA = qw(DateTime::Locale::zh_Hant);
my @month_abbreviations = (
"1月",
"2月",
"3月",
"4月",
"5月",
"6月",
"7月",
"8月",
"9月",
"10月",
"11月",
"12月",
);
my $date_parts_order = "ymd";
sub month_abbreviations { \@month_abbreviations }
sub full_date_format { "\%\{ce_year\}年\%\{month\}月\%\{day\}日\ \%A" }
sub long_date_format { "\%\{ce_year\}年\%\{month\}月\%\{day\}日" }
sub medium_date_format { "\%\{ce_year\}年\%\{month\}月\%\{day\}日" }
sub short_date_format { "\%y年\%\{month\}月\%\{day\}日" }
sub medium_time_format { "\%p\%l\:\%M\:\%S" }
sub short_time_format { "\%p\%\{hour_12\}\:\%M" }
sub date_parts_order { $date_parts_order }
1;