File Coverage

blib/lib/Locale/CLDR/Locales/Fr/Any/Ma.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::Fr::Any::Ma - Package for language French
4              
5             =cut
6              
7             package Locale::CLDR::Locales::Fr::Any::Ma;
8             # This file auto generated from Data\common\main\fr_MA.xml
9             # on Sun 24 Apr 8:29:14 am GMT
10              
11 1     1   1641 use version;
  1         2  
  1         9  
12              
13             our $VERSION = version->declare('v0.29.0');
14              
15 1     1   134 use v5.10.1;
  1         4  
16 1     1   7 use mro 'c3';
  1         2  
  1         9  
17 1     1   69 use utf8;
  1         3  
  1         10  
18 1     1   51 use if $^V ge v5.12.0, feature => 'unicode_strings';
  1         3  
  1         21  
19              
20 1     1   164 use Types::Standard qw( Str Int HashRef ArrayRef CodeRef RegexpRef );
  1         2  
  1         11  
21 1     1   1179 use Moo;
  1         3  
  1         7  
22              
23             extends('Locale::CLDR::Locales::Fr::Any');
24             has 'number_symbols' => (
25             is => 'ro',
26             isa => HashRef,
27             init_arg => undef,
28             default => sub { {
29             'latn' => {
30             'group' => q(.),
31             },
32             } }
33             );
34              
35             has 'calendar_months' => (
36             is => 'ro',
37             isa => HashRef,
38             init_arg => undef,
39             default => sub { {
40             'gregorian' => {
41             'format' => {
42             abbreviated => {
43             nonleap => [
44             'jan.',
45             'fév.',
46             'mar.',
47             'avr.',
48             'mai',
49             'jui.',
50             'juil.',
51             'août',
52             'sept.',
53             'oct.',
54             'nov.',
55             'déc.'
56             ],
57             leap => [
58            
59             ],
60             },
61             },
62             'stand-alone' => {
63             abbreviated => {
64             nonleap => [
65             'jan.',
66             'fév.',
67             'mar.',
68             'avr.',
69             'mai',
70             'jui.',
71             'juil.',
72             'août',
73             'sept.',
74             'oct.',
75             'nov.',
76             'déc.'
77             ],
78             leap => [
79            
80             ],
81             },
82             },
83             },
84             } },
85             );
86              
87             has 'day_period_data' => (
88             is => 'ro',
89             isa => CodeRef,
90             init_arg => undef,
91             default => sub { sub {
92             # Time in hhmm format
93             my ($self, $type, $time, $day_period_type) = @_;
94             $day_period_type //= 'default';
95             SWITCH:
96             for ($type) {
97             if ($_ eq 'gregorian') {
98             if($day_period_type eq 'default') {
99             return 'midnight' if $time == 0;
100             return 'noon' if $time == 1200;
101             return 'evening1' if $time >= 1800
102             && $time < 2400;
103             return 'afternoon1' if $time >= 1200
104             && $time < 1800;
105             return 'morning1' if $time >= 400
106             && $time < 1200;
107             return 'night1' if $time >= 0
108             && $time < 400;
109             }
110             if($day_period_type eq 'selection') {
111             return 'evening1' if $time >= 1800
112             && $time < 2400;
113             return 'afternoon1' if $time >= 1200
114             && $time < 1800;
115             return 'morning1' if $time >= 400
116             && $time < 1200;
117             return 'night1' if $time >= 0
118             && $time < 400;
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             'format' => {
138             'wide' => {
139             'pm' => q{p.m.},
140             'am' => q{a.m.},
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   4324 no Moo;
  1         2  
  1         8  
212              
213             1;
214              
215             # vim: tabstop=4