File Coverage

blib/lib/Locale/CLDR/Locales/Fr/Latn/Ht.pm
Criterion Covered Total %
statement 29 29 100.0
branch n/a
condition n/a
subroutine 10 10 100.0
pod n/a
total 39 39 100.0


line stmt bran cond sub pod time code
1             =encoding utf8
2              
3             =head1 NAME
4              
5             Locale::CLDR::Locales::Fr::Latn::Ht - Package for language French
6              
7             =cut
8              
9             package Locale::CLDR::Locales::Fr::Latn::Ht;
10             # This file auto generated from Data\common\main\fr_HT.xml
11             # on Fri 17 Jan 12:03:31 pm GMT
12              
13 1     1   2178 use strict;
  1         2  
  1         42  
14 1     1   6 use warnings;
  1         2  
  1         94  
15 1     1   8 use version;
  1         2  
  1         8  
16              
17             our $VERSION = version->declare('v0.46.0');
18              
19 1     1   164 use v5.12.0;
  1         5  
20 1     1   6 use mro 'c3';
  1         2  
  1         8  
21 1     1   47 use utf8;
  1         2  
  1         28  
22 1     1   39 use feature 'unicode_strings';
  1         2  
  1         163  
23 1     1   7 use Types::Standard qw( Str Int HashRef ArrayRef CodeRef RegexpRef );
  1         2  
  1         8  
24 1     1   2894 use Moo;
  1         4  
  1         7  
25              
26             extends('Locale::CLDR::Locales::Fr::Latn');
27             has 'units' => (
28             is => 'ro',
29             isa => HashRef[HashRef[HashRef[Str]]],
30             init_arg => undef,
31             default => sub { {
32             'long' => {
33             # Long Unit Identifier
34             'area-hectare' => {
35             'name' => q(carreau),
36             'one' => q({0}carreau),
37             'other' => q({0}carreaux),
38             },
39             # Core Unit Identifier
40             'hectare' => {
41             'name' => q(carreau),
42             'one' => q({0}carreau),
43             'other' => q({0}carreaux),
44             },
45             # Long Unit Identifier
46             'volume-cubic-centimeter' => {
47             'per' => q({0} pour chaque centimetre cube),
48             },
49             # Core Unit Identifier
50             'cubic-centimeter' => {
51             'per' => q({0} pour chaque centimetre cube),
52             },
53             # Long Unit Identifier
54             'volume-cubic-meter' => {
55             'per' => q({0} pour chaque metre cube),
56             },
57             # Core Unit Identifier
58             'cubic-meter' => {
59             'per' => q({0} pour chaque metre cube),
60             },
61             },
62             'narrow' => {
63             # Long Unit Identifier
64             'mass-gram' => {
65             'name' => q(gr.),
66             },
67             # Core Unit Identifier
68             'gram' => {
69             'name' => q(gr.),
70             },
71             },
72             'short' => {
73             # Long Unit Identifier
74             'duration-century' => {
75             'name' => q(sec),
76             },
77             # Core Unit Identifier
78             'century' => {
79             'name' => q(sec),
80             },
81             # Long Unit Identifier
82             'mass-carat' => {
83             'name' => q(kr),
84             'one' => q({0}kr),
85             'other' => q({0}kr),
86             },
87             # Core Unit Identifier
88             'carat' => {
89             'name' => q(kr),
90             'one' => q({0}kr),
91             'other' => q({0}kr),
92             },
93             # Long Unit Identifier
94             'mass-gram' => {
95             'one' => q({0}gr),
96             'other' => q({0}gr),
97             },
98             # Core Unit Identifier
99             'gram' => {
100             'one' => q({0}gr),
101             'other' => q({0}gr),
102             },
103             },
104             } }
105             );
106              
107             has 'currencies' => (
108             is => 'ro',
109             isa => HashRef,
110             init_arg => undef,
111             default => sub { {
112             'HTG' => {
113             symbol => 'G',
114             },
115             } },
116             );
117              
118              
119             has 'day_period_data' => (
120             is => 'ro',
121             isa => CodeRef,
122             init_arg => undef,
123             default => sub { sub {
124             # Time in hhmm format
125             my ($self, $type, $time, $day_period_type) = @_;
126             $day_period_type //= 'default';
127             SWITCH:
128             for ($type) {
129             if ($_ eq 'gregorian') {
130             if($day_period_type eq 'default') {
131             return 'midnight' if $time == 0;
132             return 'noon' if $time == 1200;
133             return 'afternoon1' if $time >= 1200
134             && $time < 1800;
135             return 'evening1' if $time >= 1800
136             && $time < 2400;
137             return 'morning1' if $time >= 400
138             && $time < 1200;
139             return 'night1' if $time >= 0
140             && $time < 400;
141             }
142             if($day_period_type eq 'selection') {
143             return 'afternoon1' if $time >= 1200
144             && $time < 1800;
145             return 'evening1' if $time >= 1800
146             && $time < 2400;
147             return 'morning1' if $time >= 400
148             && $time < 1200;
149             return 'night1' if $time >= 0
150             && $time < 400;
151             }
152             last SWITCH;
153             }
154             }
155             } },
156             );
157              
158             around day_period_data => sub {
159             my ($orig, $self) = @_;
160             return $self->$orig;
161             };
162              
163             has 'day_periods' => (
164             is => 'ro',
165             isa => HashRef,
166             init_arg => undef,
167             default => sub { {
168             'gregorian' => {
169             'format' => {
170             'wide' => {
171             'afternoon1' => q{de l’après-midi},
172             'evening1' => q{du soir},
173             'midnight' => q{minuit},
174             'morning1' => q{du matin},
175             'night1' => q{de la nuit},
176             'noon' => q{midi},
177             },
178             },
179             },
180             } },
181             );
182              
183             has 'eras' => (
184             is => 'ro',
185             isa => HashRef,
186             init_arg => undef,
187             default => sub { {
188             'gregorian' => {
189             },
190             } },
191             );
192              
193             has 'date_formats' => (
194             is => 'ro',
195             isa => HashRef,
196             init_arg => undef,
197             default => sub { {
198             'gregorian' => {
199             },
200             } },
201             );
202              
203             has 'time_formats' => (
204             is => 'ro',
205             isa => HashRef,
206             init_arg => undef,
207             default => sub { {
208             'gregorian' => {
209             },
210             } },
211             );
212              
213             has 'datetime_formats' => (
214             is => 'ro',
215             isa => HashRef,
216             init_arg => undef,
217             default => sub { {
218             'gregorian' => {
219             },
220             } },
221             );
222              
223             has 'datetime_formats_available_formats' => (
224             is => 'ro',
225             isa => HashRef,
226             init_arg => undef,
227             default => sub { {
228             } },
229             );
230              
231             has 'datetime_formats_append_item' => (
232             is => 'ro',
233             isa => HashRef,
234             init_arg => undef,
235             default => sub { {
236             } },
237             );
238              
239             has 'datetime_formats_interval' => (
240             is => 'ro',
241             isa => HashRef,
242             init_arg => undef,
243             default => sub { {
244             } },
245             );
246              
247 1     1   1891 no Moo;
  1         3  
  1         7  
248              
249             1;
250              
251             # vim: tabstop=4