=encoding utf8 =head1 NAME Locale::CLDR::Locales::En::Latn::Dk - Package for language English =cut package Locale::CLDR::Locales::En::Latn::Dk; # This file auto generated from Data\common\main\en_DK.xml # on Fri 17 Jan 12:03:31 pm GMT use strict; use warnings; use version; our $VERSION = version->declare('v0.46.0'); use v5.12.0; use mro 'c3'; use utf8; use feature 'unicode_strings'; use Types::Standard qw( Str Int HashRef ArrayRef CodeRef RegexpRef ); use Moo; extends('Locale::CLDR::Locales::En::Latn::150'); has 'number_symbols' => ( is => 'ro', isa => HashRef, init_arg => undef, default => sub { { 'latn' => { 'decimal' => q(,), 'group' => q(.), 'superscriptingExponent' => q(·), 'timeSeparator' => q(.), }, } } ); has 'number_formats' => ( is => 'ro', isa => HashRef, init_arg => undef, default => sub { { percentFormat => { 'default' => { 'standard' => { 'default' => '#,##0 %', }, }, }, } }, ); has 'currencies' => ( is => 'ro', isa => HashRef, init_arg => undef, default => sub { { 'DKK' => { symbol => 'kr.', }, } }, ); has 'day_period_data' => ( is => 'ro', isa => CodeRef, init_arg => undef, default => sub { sub { # Time in hhmm format 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 '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' => { '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 { { 'generic' => { }, 'gregorian' => { }, } }, ); has 'datetime_formats_available_formats' => ( is => 'ro', isa => HashRef, init_arg => undef, default => sub { { 'generic' => { EHm => q{E HH.mm}, EHms => q{E HH.mm.ss}, Ehm => q{E h.mm a}, Ehms => q{E h.mm.ss a}, Hm => q{HH.mm}, Hms => q{HH.mm.ss}, Hmsv => q{HH.mm.ss v}, Hmv => q{HH.mm v}, hm => q{h.mm a}, hms => q{h.mm.ss a}, hmsv => q{h.mm.ss a v}, hmv => q{h.mm a v}, ms => q{mm.ss}, }, 'gregorian' => { EHm => q{E HH.mm}, EHms => q{E HH.mm.ss}, Ehm => q{E h.mm a}, Ehms => q{E h.mm.ss a}, Hm => q{HH.mm}, Hms => q{HH.mm.ss}, Hmsv => q{HH.mm.ss v}, Hmv => q{HH.mm v}, hm => q{h.mm a}, hms => q{h.mm.ss a}, hmsv => q{h.mm.ss a v}, hmv => q{h.mm a v}, ms => q{mm.ss}, }, } }, ); 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; # vim: tabstop=4