— |
our $VERSION = version->declare( 'v0.34.4' );
use if $^V ge v5.12.0, feature => 'unicode_strings' ;
extends ( 'Locale::CLDR::Locales::En::Any::001' );
has 'number_symbols' => (
is => 'ro' ,
isa => HashRef,
init_arg => undef ,
default => sub { {
'latn' => {
'decimal' => q(,) ,
'group' => q(.) ,
},
} }
);
has 'number_currency_formats' => (
is => 'ro' ,
isa => HashRef,
init_arg => undef ,
default => sub { {
'latn' => {
'pattern' => {
'default' => {
'accounting' => {
'positive' => '#,##0.00 ¤' ,
},
'standard' => {
'positive' => '#,##0.00 ¤' ,
},
},
},
},
} },
);
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 '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 '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' => {
'full' => q{HH:mm:ss zzzz} ,
'long' => q{HH:mm:ss z} ,
'medium' => q{HH:mm:ss} ,
'short' => q{HH:mm} ,
},
} },
);
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 { {
} },
);
has 'time_zone_names' => (
is => 'ro' ,
isa => HashRef,
init_arg => undef ,
default => sub { {
'Europe_Central' => {
short => {
'daylight' => q#CEST# ,
'generic' => q#CET# ,
'standard' => q#CET# ,
},
},
'Europe_Eastern' => {
short => {
'daylight' => q#EEST# ,
'generic' => q#EET# ,
'standard' => q#EET# ,
},
},
'Europe_Western' => {
short => {
'daylight' => q#WEST# ,
'generic' => q#WET# ,
'standard' => q#WET# ,
},
},
} }
);
no Moo;
1;
|