File Coverage

blib/lib/Locale/CLDR/Locales/De/Any/Li.pm
Criterion Covered Total %
statement 32 32 100.0
branch n/a
condition n/a
subroutine 11 11 100.0
pod n/a
total 43 43 100.0


line stmt bran cond sub pod time code
1             =encoding utf8
2              
3             =head1 NAME
4              
5             Locale::CLDR::Locales::De::Any::Li - Package for language German
6              
7             =cut
8              
9             package Locale::CLDR::Locales::De::Any::Li;
10             # This file auto generated from Data\common\main\de_LI.xml
11             # on Fri 13 Oct 9:11:53 am GMT
12              
13 1     1   859 use strict;
  1         3  
  1         24  
14 1     1   5 use warnings;
  1         1  
  1         20  
15 1     1   4 use version;
  1         2  
  1         4  
16              
17             our $VERSION = version->declare('v0.34.2');
18              
19 1     1   84 use v5.10.1;
  1         3  
20 1     1   4 use mro 'c3';
  1         2  
  1         4  
21 1     1   21 use utf8;
  1         2  
  1         4  
22 1     1   38 use if $^V ge v5.12.0, feature => 'unicode_strings';
  1         1  
  1         11  
23 1     1   80 use Types::Standard qw( Str Int HashRef ArrayRef CodeRef RegexpRef );
  1         2  
  1         5  
24 1     1   877 use Moo;
  1         2  
  1         4  
25              
26             extends('Locale::CLDR::Locales::De::Any');
27             has 'characters' => (
28             is => 'ro',
29             isa => HashRef,
30             init_arg => undef,
31             default => $^V ge v5.18.0
32             ? eval <<'EOT'
33             sub {
34             no warnings 'experimental::regex_sets';
35             return {
36             numbers => qr{[\- . ’ % ‰ + 0 1 2 3 4 5 6 7 8 9]},
37             };
38             },
39             EOT
40             : sub {
41             return {};
42             },
43 1     1   106 );
  1         2  
  1         66  
44              
45              
46             has 'number_symbols' => (
47             is => 'ro',
48             isa => HashRef,
49             init_arg => undef,
50             default => sub { {
51             'latn' => {
52             'decimal' => q(.),
53             'group' => q(’),
54             },
55             } }
56             );
57              
58             has 'number_formats' => (
59             is => 'ro',
60             isa => HashRef,
61             init_arg => undef,
62             default => sub { {
63             percentFormat => {
64             'default' => {
65             'standard' => {
66             'default' => '#,##0%',
67             },
68             },
69             },
70             } },
71             );
72              
73             has 'number_currency_formats' => (
74             is => 'ro',
75             isa => HashRef,
76             init_arg => undef,
77             default => sub { {
78             'latn' => {
79             'pattern' => {
80             'default' => {
81             'standard' => {
82             'positive' => '¤ #,##0.00',
83             },
84             },
85             },
86             },
87             } },
88             );
89              
90             has 'currencies' => (
91             is => 'ro',
92             isa => HashRef,
93             init_arg => undef,
94             default => sub { {
95             'EUR' => {
96             symbol => 'EUR',
97             },
98             } },
99             );
100              
101              
102             has 'day_period_data' => (
103             is => 'ro',
104             isa => CodeRef,
105             init_arg => undef,
106             default => sub { sub {
107             # Time in hhmm format
108             my ($self, $type, $time, $day_period_type) = @_;
109             $day_period_type //= 'default';
110             SWITCH:
111             for ($type) {
112             if ($_ eq 'gregorian') {
113             if($day_period_type eq 'default') {
114             return 'midnight' if $time == 0;
115             return 'afternoon1' if $time >= 1200
116             && $time < 1300;
117             return 'afternoon2' if $time >= 1300
118             && $time < 1800;
119             return 'evening1' if $time >= 1800
120             && $time < 2400;
121             return 'morning1' if $time >= 500
122             && $time < 1000;
123             return 'morning2' if $time >= 1000
124             && $time < 1200;
125             return 'night1' if $time >= 0
126             && $time < 500;
127             }
128             if($day_period_type eq 'selection') {
129             return 'afternoon1' if $time >= 1200
130             && $time < 1300;
131             return 'afternoon2' if $time >= 1300
132             && $time < 1800;
133             return 'evening1' if $time >= 1800
134             && $time < 2400;
135             return 'morning1' if $time >= 500
136             && $time < 1000;
137             return 'morning2' if $time >= 1000
138             && $time < 1200;
139             return 'night1' if $time >= 0
140             && $time < 500;
141             }
142             last SWITCH;
143             }
144             }
145             } },
146             );
147              
148             around day_period_data => sub {
149             my ($orig, $self) = @_;
150             return $self->$orig;
151             };
152              
153             has 'day_periods' => (
154             is => 'ro',
155             isa => HashRef,
156             init_arg => undef,
157             default => sub { {
158             'gregorian' => {
159             'stand-alone' => {
160             'narrow' => {
161             'am' => q{vm.},
162             'pm' => q{nm.},
163             },
164             },
165             },
166             } },
167             );
168              
169             has 'eras' => (
170             is => 'ro',
171             isa => HashRef,
172             init_arg => undef,
173             default => sub { {
174             'gregorian' => {
175             },
176             } },
177             );
178              
179             has 'date_formats' => (
180             is => 'ro',
181             isa => HashRef,
182             init_arg => undef,
183             default => sub { {
184             'gregorian' => {
185             },
186             } },
187             );
188              
189             has 'time_formats' => (
190             is => 'ro',
191             isa => HashRef,
192             init_arg => undef,
193             default => sub { {
194             'gregorian' => {
195             },
196             } },
197             );
198              
199             has 'datetime_formats' => (
200             is => 'ro',
201             isa => HashRef,
202             init_arg => undef,
203             default => sub { {
204             'gregorian' => {
205             },
206             } },
207             );
208              
209             has 'datetime_formats_available_formats' => (
210             is => 'ro',
211             isa => HashRef,
212             init_arg => undef,
213             default => sub { {
214             } },
215             );
216              
217             has 'datetime_formats_append_item' => (
218             is => 'ro',
219             isa => HashRef,
220             init_arg => undef,
221             default => sub { {
222             } },
223             );
224              
225             has 'datetime_formats_interval' => (
226             is => 'ro',
227             isa => HashRef,
228             init_arg => undef,
229             default => sub { {
230             } },
231             );
232              
233 1     1   1047 no Moo;
  1         2  
  1         4  
234              
235             1;
236              
237             # vim: tabstop=4