File Coverage

blib/lib/Locale/CLDR/Locales/En/Any/Cm.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::En::Any::Cm - Package for language English
4              
5             =cut
6              
7             package Locale::CLDR::Locales::En::Any::Cm;
8             # This file auto generated from Data\common\main\en_CM.xml
9             # on Sun 24 Apr 8:24:36 am GMT
10              
11 1     1   896 use version;
  1         1  
  1         7  
12              
13             our $VERSION = version->declare('v0.29.0');
14              
15 1     1   86 use v5.10.1;
  1         2  
16 1     1   3 use mro 'c3';
  1         1  
  1         7  
17 1     1   31 use utf8;
  1         1  
  1         7  
18 1     1   27 use if $^V ge v5.12.0, feature => 'unicode_strings';
  1         2  
  1         11  
19              
20 1     1   104 use Types::Standard qw( Str Int HashRef ArrayRef CodeRef RegexpRef );
  1         1  
  1         7  
21 1     1   662 use Moo;
  1         2  
  1         5  
22              
23             extends('Locale::CLDR::Locales::En::Any::001');
24             has 'day_period_data' => (
25             is => 'ro',
26             isa => CodeRef,
27             init_arg => undef,
28             default => sub { sub {
29             # Time in hhmm format
30             my ($self, $type, $time, $day_period_type) = @_;
31             $day_period_type //= 'default';
32             SWITCH:
33             for ($type) {
34             if ($_ eq 'gregorian') {
35             if($day_period_type eq 'default') {
36             return 'noon' if $time == 1200;
37             return 'midnight' if $time == 0;
38             return 'evening1' if $time >= 1800
39             && $time < 2100;
40             return 'night1' if $time >= 2100;
41             return 'night1' if $time < 600;
42             return 'afternoon1' if $time >= 1200
43             && $time < 1800;
44             return 'morning1' if $time >= 600
45             && $time < 1200;
46             }
47             if($day_period_type eq 'selection') {
48             return 'afternoon1' if $time >= 1200
49             && $time < 1800;
50             return 'morning1' if $time >= 600
51             && $time < 1200;
52             return 'night1' if $time >= 2100;
53             return 'night1' if $time < 600;
54             return 'evening1' if $time >= 1800
55             && $time < 2100;
56             }
57             last SWITCH;
58             }
59             }
60             } },
61             );
62              
63             around day_period_data => sub {
64             my ($orig, $self) = @_;
65             return $self->$orig;
66             };
67              
68             has 'eras' => (
69             is => 'ro',
70             isa => HashRef,
71             init_arg => undef,
72             default => sub { {
73             'gregorian' => {
74             },
75             } },
76             );
77              
78             has 'date_formats' => (
79             is => 'ro',
80             isa => HashRef,
81             init_arg => undef,
82             default => sub { {
83             'gregorian' => {
84             },
85             } },
86             );
87              
88             has 'time_formats' => (
89             is => 'ro',
90             isa => HashRef,
91             init_arg => undef,
92             default => sub { {
93             'gregorian' => {
94             'full' => q{HH:mm:ss zzzz},
95             'long' => q{HH:mm:ss z},
96             'medium' => q{HH:mm:ss},
97             'short' => q{HH:mm},
98             },
99             } },
100             );
101              
102             has 'datetime_formats' => (
103             is => 'ro',
104             isa => HashRef,
105             init_arg => undef,
106             default => sub { {
107             'gregorian' => {
108             },
109             } },
110             );
111              
112             has 'datetime_formats_available_formats' => (
113             is => 'ro',
114             isa => HashRef,
115             init_arg => undef,
116             default => sub { {
117             } },
118             );
119              
120             has 'datetime_formats_append_item' => (
121             is => 'ro',
122             isa => HashRef,
123             init_arg => undef,
124             default => sub { {
125             } },
126             );
127              
128             has 'datetime_formats_interval' => (
129             is => 'ro',
130             isa => HashRef,
131             init_arg => undef,
132             default => sub { {
133             } },
134             );
135              
136             has 'time_zone_names' => (
137             is => 'ro',
138             isa => HashRef,
139             init_arg => undef,
140             default => sub { {
141             'Africa_Central' => {
142             short => {
143             'standard' => q(CAT),
144             },
145             },
146             'Africa_Eastern' => {
147             short => {
148             'standard' => q(EAT),
149             },
150             },
151             'Africa_Southern' => {
152             short => {
153             'standard' => q(SAST),
154             },
155             },
156             'Africa_Western' => {
157             short => {
158             'daylight' => q(WAST),
159             'generic' => q(WAT),
160             'standard' => q(WAT),
161             },
162             },
163             } }
164             );
165 1     1   2242 no Moo;
  1         3  
  1         5  
166              
167             1;
168              
169             # vim: tabstop=4