— |
our $VERSION = version->declare( 'v0.34.4' );
use if $^V ge v5.12.0, feature => 'unicode_strings' ;
extends ( 'Locale::CLDR::Locales::De::Any' );
has 'display_name_language' => (
is => 'ro' ,
isa => CodeRef,
init_arg => undef ,
default => sub {
sub {
my %languages = (
'ar_001' => 'modernes Hocharabisch' ,
'car' => 'karibische Sprache' ,
'chb' => 'Chibcha-Sprache' ,
'del' => 'Delawarisch' ,
'fur' => 'Friulanisch' ,
'ha' => 'Hausa' ,
'haw' => 'Hawaiianisch' ,
'hmn' => 'Miao-Sprache' ,
'mus' => 'Muskogee-Sprache' ,
'niu' => 'Niueanisch' ,
'pag' => 'Pangasinensisch' ,
'sh' => 'Serbokroatisch' ,
'szl' => 'Schlesisch' ,
);
if ( @_ ) {
return $languages { $_ [0]};
}
return \ %languages ;
}
},
);
has 'display_name_region' => (
is => 'ro' ,
isa => HashRef[Str],
init_arg => undef ,
default => sub {
{
'SJ' => 'Svalbard und Jan Mayen' ,
}
},
);
has 'display_name_measurement_system' => (
is => 'ro' ,
isa => HashRef[Str],
init_arg => undef ,
default => sub {
{
'metric' => q{Internationales Maßsystem (SI)} ,
'UK' => q{Englisches Maßsystem} ,
'US' => q{Angloamerikanisches Maßsystem} ,
}
},
);
has 'characters' => (
is => 'ro' ,
isa => HashRef,
init_arg => undef ,
default => $^V ge v5.18.0
? eval <<'EOT'
sub {
no warnings 'experimental::regex_sets';
return {
index => ['A', 'Ä', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'Ö', 'P', 'Q', 'R', 'S', 'T', 'U', 'Ü', 'V', 'W', 'X', 'Y', 'Z'],
numbers => qr{[ \- , % ‰ + 0 1 2 3 4 5 6 7 8 9]},
};
},
EOT
: sub {
return { index => [ 'A' , 'Ä' , 'B' , 'C' , 'D' , 'E' , 'F' , 'G' , 'H' , 'I' , 'J' , 'K' , 'L' , 'M' , 'N' , 'O' , 'Ö' , 'P' , 'Q' , 'R' , 'S' , 'T' , 'U' , 'Ü' , 'V' , 'W' , 'X' , 'Y' , 'Z' ], };
},
);
has 'number_symbols' => (
is => 'ro' ,
isa => HashRef,
init_arg => undef ,
default => sub { {
'latn' => {
'currencyGroup' => q(.) ,
'group' => q( ) ,
},
} }
);
has 'number_currency_formats' => (
is => 'ro' ,
isa => HashRef,
init_arg => undef ,
default => sub { {
'latn' => {
'pattern' => {
'default' => {
'standard' => {
'positive' => '¤ #,##0.00' ,
},
},
},
},
} },
);
has 'calendar_months' => (
is => 'ro' ,
isa => HashRef,
init_arg => undef ,
default => sub { {
'gregorian' => {
'format' => {
abbreviated => {
nonleap => [
'Jän.' ,
'Feb.' ,
'März' ,
'Apr.' ,
'Mai' ,
'Juni' ,
'Juli' ,
'Aug.' ,
'Sep.' ,
'Okt.' ,
'Nov.' ,
'Dez.'
],
leap => [
],
},
wide => {
nonleap => [
'Jänner' ,
'Februar' ,
'März' ,
'April' ,
'Mai' ,
'Juni' ,
'Juli' ,
'August' ,
'September' ,
'Oktober' ,
'November' ,
'Dezember'
],
leap => [
],
},
},
'stand-alone' => {
abbreviated => {
nonleap => [
'Jän' ,
'Feb' ,
'Mär' ,
'Apr' ,
'Mai' ,
'Jun' ,
'Jul' ,
'Aug' ,
'Sep' ,
'Okt' ,
'Nov' ,
'Dez'
],
leap => [
],
},
wide => {
nonleap => [
'Jänner' ,
'Februar' ,
'März' ,
'April' ,
'Mai' ,
'Juni' ,
'Juli' ,
'August' ,
'September' ,
'Oktober' ,
'November' ,
'Dezember'
],
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 'gregorian' ) {
if ( $day_period_type eq 'default' ) {
return 'midnight' if $time == 0;
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 >= 500
&& $time < 1000;
return 'morning2' if $time >= 1000
&& $time < 1200;
return 'night1' if $time >= 0
&& $time < 500;
}
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 >= 500
&& $time < 1000;
return 'morning2' if $time >= 1000
&& $time < 1200;
return 'night1' if $time >= 0
&& $time < 500;
}
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' => {
'stand-alone' => {
'narrow' => {
'am' => q{vm.} ,
'pm' => q{nm.} ,
},
},
},
} },
);
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;
|