our
$VERSION
= version->declare(
'v0.34.3'
);
use
if
$^V ge v5.12.0,
feature
=>
'unicode_strings'
;
extends
(
'Locale::CLDR::Locales::Ar::Any'
);
has
'display_name_language'
=> (
is
=>
'ro'
,
isa
=> CodeRef,
init_arg
=>
undef
,
default
=>
sub
{
sub
{
my
%languages
= (
'arn'
=>
'المابودونجونية'
,
'gn'
=>
'الغورانية'
,
'hsb'
=>
'صوربيا العليا'
,
'lo'
=>
'اللاوو'
,
'sh'
=>
'الكرواتية الصربية'
,
'sma'
=>
'سامي الجنوبية'
,
'sw'
=>
'السواحيلية'
,
'sw_CD'
=>
'السواحيلية الكونغولية'
,
'ti'
=>
'التيغرينية'
,
);
if
(
@_
) {
return
$languages
{
$_
[0]};
}
return
\
%languages
;
}
},
);
has
'display_name_region'
=> (
is
=>
'ro'
,
isa
=> HashRef[Str],
init_arg
=>
undef
,
default
=>
sub
{
{
'EA'
=>
'سبتة ومليلية'
,
'MS'
=>
'مونتيسيرات'
,
'UY'
=>
'أوروغواي'
,
}
},
);
has
'characters'
=> (
is
=>
'ro'
,
isa
=> HashRef,
init_arg
=>
undef
,
default
=> $^V ge v5.18.0
?
eval
<<'EOT'
sub {
no warnings 'experimental::regex_sets';
return {
numbers => qr{[ \- , . % ‰ + 0 1 2 3 4 5 6 7 8 9]},
};
},
EOT
:
sub
{
return
{};
},
);
has
'default_numbering_system'
=> (
is
=>
'ro'
,
isa
=> Str,
init_arg
=>
undef
,
default
=>
'latn'
,
);
has
'number_symbols'
=> (
is
=>
'ro'
,
isa
=> HashRef,
init_arg
=>
undef
,
default
=>
sub
{ {
'latn'
=> {
'decimal'
=>
q(,)
,
'group'
=>
q(.)
,
},
} }
);
has
'day_period_data'
=> (
is
=>
'ro'
,
isa
=> CodeRef,
init_arg
=>
undef
,
default
=>
sub
{
sub
{
my
(
$self
,
$type
,
$time
,
$day_period_type
) =
@_
;
$day_period_type
//=
'default'
;
SWITCH:
for
(
$type
) {
if
(
$_
eq
'gregorian'
) {
if
(
$day_period_type
eq
'default'
) {
return
'afternoon1'
if
$time
>= 1200
&&
$time
< 1300;
return
'afternoon2'
if
$time
>= 1300
&&
$time
< 1800;
return
'evening1'
if
$time
>= 1800
&&
$time
< 2400;
return
'morning1'
if
$time
>= 300
&&
$time
< 600;
return
'morning2'
if
$time
>= 600
&&
$time
< 1200;
return
'night1'
if
$time
>= 0
&&
$time
< 100;
return
'night2'
if
$time
>= 100
&&
$time
< 300;
}
if
(
$day_period_type
eq
'selection'
) {
return
'afternoon1'
if
$time
>= 1200
&&
$time
< 1300;
return
'afternoon2'
if
$time
>= 1300
&&
$time
< 1800;
return
'evening1'
if
$time
>= 1800
&&
$time
< 2400;
return
'morning1'
if
$time
>= 300
&&
$time
< 600;
return
'morning2'
if
$time
>= 600
&&
$time
< 1200;
return
'night1'
if
$time
>= 0
&&
$time
< 100;
return
'night2'
if
$time
>= 100
&&
$time
< 300;
}
last
SWITCH;
}
}
} },
);
around
day_period_data
=>
sub
{
my
(
$orig
,
$self
) =
@_
;
return
$self
->
$orig
;
};
has
'day_periods'
=> (
is
=>
'ro'
,
isa
=> HashRef,
init_arg
=>
undef
,
default
=>
sub
{ {
'gregorian'
=> {
'format'
=> {
'abbreviated'
=> {
'afternoon1'
=>
q{ظهرًا}
,
'afternoon2'
=>
q{بعد الظهر}
,
'evening1'
=>
q{مساءً}
,
'morning1'
=>
q{فجرًا}
,
'morning2'
=>
q{ص}
,
'night1'
=>
q{منتصف الليل}
,
'night2'
=>
q{ل}
,
},
},
},
} },
);
has
'eras'
=> (
is
=>
'ro'
,
isa
=> HashRef,
init_arg
=>
undef
,
default
=>
sub
{ {
'gregorian'
=> {
},
} },
);
has
'date_formats'
=> (
is
=>
'ro'
,
isa
=> HashRef,
init_arg
=>
undef
,
default
=>
sub
{ {
'gregorian'
=> {
},
} },
);
has
'time_formats'
=> (
is
=>
'ro'
,
isa
=> HashRef,
init_arg
=>
undef
,
default
=>
sub
{ {
'gregorian'
=> {
},
} },
);
has
'datetime_formats'
=> (
is
=>
'ro'
,
isa
=> HashRef,
init_arg
=>
undef
,
default
=>
sub
{ {
'gregorian'
=> {
},
} },
);
has
'datetime_formats_available_formats'
=> (
is
=>
'ro'
,
isa
=> HashRef,
init_arg
=>
undef
,
default
=>
sub
{ {
} },
);
has
'datetime_formats_append_item'
=> (
is
=>
'ro'
,
isa
=> HashRef,
init_arg
=>
undef
,
default
=>
sub
{ {
} },
);
has
'datetime_formats_interval'
=> (
is
=>
'ro'
,
isa
=> HashRef,
init_arg
=>
undef
,
default
=>
sub
{ {
} },
);
no
Moo;
1;