our
$VERSION
= version->declare(
'v0.40.0'
);
use
if
$^V ge v5.12.0,
feature
=>
'unicode_strings'
;
extends
(
'Locale::CLDR::Locales::Sr::Latn'
);
has
'display_name_language'
=> (
is
=>
'ro'
,
isa
=> CodeRef,
init_arg
=>
undef
,
default
=>
sub
{
sub
{
my
%languages
= (
'bm'
=>
'bamanankan'
,
'bn'
=>
'bangla'
,
'ff'
=>
'fulah'
,
'gsw'
=>
'švajcarski nemački'
,
'ht'
=>
'haićanski kreolski'
,
'lo'
=>
'laoški'
,
'moh'
=>
'mohok'
,
'nqo'
=>
'n’ko'
,
'shi'
=>
'južni šilha'
,
'si'
=>
'sinhalski'
,
'tzm'
=>
'centralnoatlaski tamašek'
,
'xh'
=>
'isikosa'
,
'zgh'
=>
'standardni marokanski tamašek'
,
'zu'
=>
'isizulu'
,
);
if
(
@_
) {
return
$languages
{
$_
[0]};
}
return
\
%languages
;
}
},
);
has
'display_name_region'
=> (
is
=>
'ro'
,
isa
=> HashRef[Str],
init_arg
=>
undef
,
default
=>
sub
{
{
'CG'
=>
'Kongo'
,
'CV'
=>
'Kabo Verde'
,
'CZ'
=>
'Češka Republika'
,
'HK'
=>
'SAR Hongkong'
,
'KN'
=>
'Sveti Kits i Nevis'
,
'MO'
=>
'SAR Makao'
,
'PM'
=>
'Sveti Pjer i Mikelon'
,
'RE'
=>
'Reunion'
,
'UM'
=>
'Manja udaljena ostrva SAD'
,
'VC'
=>
'Sveti Vinsent i Grenadini'
,
}
},
);
has
'calendar_months'
=> (
is
=>
'ro'
,
isa
=> HashRef,
init_arg
=>
undef
,
default
=>
sub
{ {
'gregorian'
=> {
'format'
=> {
abbreviated
=> {
nonleap
=> [
undef
(),
undef
(),
'mart'
,
undef
(),
'maj'
,
'jun'
,
'jul'
,
undef
(),
'sept'
],
leap
=> [
],
},
},
'stand-alone'
=> {
abbreviated
=> {
nonleap
=> [
undef
(),
undef
(),
'mart'
,
undef
(),
'maj'
,
'jun'
,
'jul'
,
undef
(),
'sept'
],
leap
=> [
],
},
},
},
} },
);
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
'generic'
) {
if
(
$day_period_type
eq
'default'
) {
return
'midnight'
if
$time
== 0;
return
'noon'
if
$time
== 1200;
return
'afternoon1'
if
$time
>= 1200
&&
$time
< 1800;
return
'evening1'
if
$time
>= 1800
&&
$time
< 2100;
return
'morning1'
if
$time
>= 600
&&
$time
< 1200;
return
'night1'
if
$time
>= 2100;
return
'night1'
if
$time
< 600;
}
if
(
$day_period_type
eq
'selection'
) {
return
'afternoon1'
if
$time
>= 1200
&&
$time
< 1800;
return
'evening1'
if
$time
>= 1800
&&
$time
< 2100;
return
'morning1'
if
$time
>= 600
&&
$time
< 1200;
return
'night1'
if
$time
>= 2100;
return
'night1'
if
$time
< 600;
}
last
SWITCH;
}
if
(
$_
eq
'gregorian'
) {
if
(
$day_period_type
eq
'default'
) {
return
'midnight'
if
$time
== 0;
return
'noon'
if
$time
== 1200;
return
'afternoon1'
if
$time
>= 1200
&&
$time
< 1800;
return
'evening1'
if
$time
>= 1800
&&
$time
< 2100;
return
'morning1'
if
$time
>= 600
&&
$time
< 1200;
return
'night1'
if
$time
>= 2100;
return
'night1'
if
$time
< 600;
}
if
(
$day_period_type
eq
'selection'
) {
return
'afternoon1'
if
$time
>= 1200
&&
$time
< 1800;
return
'evening1'
if
$time
>= 1800
&&
$time
< 2100;
return
'morning1'
if
$time
>= 600
&&
$time
< 1200;
return
'night1'
if
$time
>= 2100;
return
'night1'
if
$time
< 600;
}
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{po pod.}
,
'evening1'
=>
q{uveče}
,
'midnight'
=>
q{ponoć}
,
'morning1'
=>
q{jutro}
,
'night1'
=>
q{noću}
,
'noon'
=>
q{podne}
,
},
'narrow'
=> {
'afternoon1'
=>
q{po pod.}
,
'evening1'
=>
q{veče}
,
'midnight'
=>
q{ponoć}
,
'morning1'
=>
q{jutro}
,
'night1'
=>
q{noć}
,
'noon'
=>
q{podne}
,
},
},
'stand-alone'
=> {
'narrow'
=> {
'am'
=>
q{a}
,
'pm'
=>
q{p}
,
},
},
},
} },
);
has
'eras'
=> (
is
=>
'ro'
,
isa
=> HashRef,
init_arg
=>
undef
,
default
=>
sub
{ {
'generic'
=> {
},
'gregorian'
=> {
},
} },
);
has
'date_formats'
=> (
is
=>
'ro'
,
isa
=> HashRef,
init_arg
=>
undef
,
default
=>
sub
{ {
'generic'
=> {
},
'gregorian'
=> {
},
} },
);
has
'time_formats'
=> (
is
=>
'ro'
,
isa
=> HashRef,
init_arg
=>
undef
,
default
=>
sub
{ {
'generic'
=> {
},
'gregorian'
=> {
},
} },
);
has
'datetime_formats'
=> (
is
=>
'ro'
,
isa
=> HashRef,
init_arg
=>
undef
,
default
=>
sub
{ {
'generic'
=> {
},
'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
{ {
'generic'
=> {
MMMEd
=> {
M
=>
q{E, d. MMM – E, d. MMM}
,
d
=>
q{E, d – E, d. MMM}
,
},
},
} },
);
no
Moo;
1;