our
$VERSION
= version->declare(
'v0.28.2'
);
use
if
$^V ge v5.12.0,
feature
=>
'unicode_strings'
;
extends
(
'Locale::CLDR::Locales::En::Any::150'
);
has
'number_symbols'
=> (
is
=>
'ro'
,
isa
=>
'HashRef'
,
init_arg
=>
undef
,
default
=>
sub
{ {
'latn'
=> {
'exponential'
=>
q(×10^)
,
'group'
=>
q( )
,
},
} }
);
has
'number_formats'
=> (
is
=>
'ro'
,
isa
=>
'HashRef'
,
init_arg
=>
undef
,
default
=>
sub
{ {
percentFormat
=> {
'default'
=> {
'standard'
=> {
''
=>
'#,##0 %'
,
},
},
},
} },
);
has
'currencies'
=> (
is
=>
'ro'
,
isa
=>
'HashRef'
,
init_arg
=>
undef
,
default
=>
sub
{ {
'SEK'
=> {
symbol
=>
'kr'
,
},
} },
);
has
'day_period_data'
=> (
traits
=> [
'Code'
],
is
=>
'ro'
,
isa
=>
'CodeRef'
,
init_arg
=>
undef
,
handles
=> {
call
=>
'execute_method'
},
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
'selection'
) {
return
'morning1'
if
$time
>= 600
&&
$time
< 1200;
return
'night1'
if
$time
>= 2100
&&
$time
< 2400;
return
'evening1'
if
$time
>= 1800
&&
$time
< 2100;
return
'afternoon1'
if
$time
>= 1200
&&
$time
< 1800;
}
if
(
$day_period_type
eq
'default'
) {
return
'noon'
if
$time
== 1200;
return
'afternoon1'
if
$time
> 1200
&&
$time
< 1800;
return
'evening1'
if
$time
>= 1800
&&
$time
< 2100;
return
'night1'
if
$time
>= 2100
&&
$time
< 2400;
return
'midnight'
if
$time
== 0;
return
'morning1'
if
$time
>= 600
&&
$time
< 1200;
}
last
SWITCH;
}
if
(
$_
eq
'generic'
) {
if
(
$day_period_type
eq
'selection'
) {
return
'morning1'
if
$time
>= 600
&&
$time
< 1200;
return
'night1'
if
$time
>= 2100
&&
$time
< 2400;
return
'evening1'
if
$time
>= 1800
&&
$time
< 2100;
return
'afternoon1'
if
$time
>= 1200
&&
$time
< 1800;
}
if
(
$day_period_type
eq
'default'
) {
return
'noon'
if
$time
== 1200;
return
'afternoon1'
if
$time
> 1200
&&
$time
< 1800;
return
'evening1'
if
$time
>= 1800
&&
$time
< 2100;
return
'night1'
if
$time
>= 2100
&&
$time
< 2400;
return
'midnight'
if
$time
== 0;
return
'morning1'
if
$time
>= 600
&&
$time
< 1200;
}
last
SWITCH;
}
}
} },
);
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'
=> {
'short'
=>
q{G y-MM-dd}
,
},
'gregorian'
=> {
'short'
=>
q{y-MM-dd}
,
},
} },
);
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
{ {
'gregorian'
=> {
yM
=>
q{y-MM}
,
yMEd
=>
q{E, y-MM-dd}
,
yMd
=>
q{y-MM-dd}
,
},
'generic'
=> {
yyyyM
=>
q{y-MM G}
,
yyyyMEd
=>
q{E y-MM-dd G}
,
yyyyMd
=>
q{y-MM-dd G}
,
},
} },
);
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
Moose;
__PACKAGE__->meta->make_immutable;
1;