File Coverage

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


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