File Coverage

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