File Coverage

blib/lib/Locale/CLDR/NumberingSystems.pm
Criterion Covered Total %
statement 27 27 100.0
branch 2 2 100.0
condition n/a
subroutine 8 8 100.0
pod 0 1 0.0
total 37 38 97.3


line stmt bran cond sub pod time code
1             package Locale::CLDR::NumberingSystems;
2             # This file auto generated from Data\common\supplemental\numberingSystems.xml
3             # on Mon 6 Apr 3:14:51 pm GMT
4             # XML file generated 2014-02-13 11:57:02 -0600 (Thu, 13 Feb 2014)
5              
6 20     20   8100 use version;
  20         31  
  20         92  
7              
8             our $VERSION = version->declare('v0.27.0');
9              
10 20     20   1585 use v5.10;
  20         47  
  20         582  
11 20     20   73 use mro 'c3';
  20         27  
  20         107  
12 20     20   515 use utf8;
  20         26  
  20         92  
13 20     20   471 use if $^V ge v5.12.0, feature => 'unicode_strings';
  20         24  
  20         203  
14              
15 20     20   1519 use Moose::Role;
  20         29  
  20         98  
16              
17             has 'numbering_system' => (
18             is => 'ro',
19             isa => 'HashRef',
20             init_arg => undef,
21             default => sub { return {
22             'arab' => {
23             type => 'numeric',
24             data => [qw(Ù  Ù¡ Ù¢ Ù£ Ù¤ Ù¥ Ù¦ Ù§ Ù¨ Ù©)],
25             },
26             'arabext' => {
27             type => 'numeric',
28             data => [qw(Û° Û± Û² Û³ Û´ Ûµ Û¶ Û· Û¸ Û¹)],
29             },
30             'armn' => {
31             type => 'algorithmic',
32             data => 'armenian-upper',
33             },
34             'armnlow' => {
35             type => 'algorithmic',
36             data => 'armenian-lower',
37             },
38             'bali' => {
39             type => 'numeric',
40             data => [qw(᭐ á­‘ á­’ á­“ á­” á­• á­– á­— á­˜ á­™)],
41             },
42             'beng' => {
43             type => 'numeric',
44             data => [qw(০ ১ ২ ৩ ৪ ৫ ৬ ৭ ৮ ৯)],
45             },
46             'brah' => {
47             type => 'numeric',
48             data => [qw(𑁦 𑁧 𑁨 𑁩 𑁪 𑁫 𑁬 𑁭 𑁮 𑁯)],
49             },
50             'cakm' => {
51             type => 'numeric',
52             data => [qw(𑄶 ð‘„· 𑄸 ð‘„¹ 𑄺 ð‘„» ð‘„¼ ð‘„½ ð‘„¾ ð‘„¿)],
53             },
54             'cham' => {
55             type => 'numeric',
56             data => [qw(꩐ ê©‘ ê©’ ê©“ ê©” ê©• ê©– ê©— ꩘ ê©™)],
57             },
58             'deva' => {
59             type => 'numeric',
60             data => [qw(० १ २ ३ ४ ५ ६ ७ ८ ९)],
61             },
62             'ethi' => {
63             type => 'algorithmic',
64             data => 'ethiopic',
65             },
66             'fullwide' => {
67             type => 'numeric',
68             data => [qw(0 1 ï¼’ 3 ï¼” 5 ï¼– ï¼— 8 ï¼™)],
69             },
70             'geor' => {
71             type => 'algorithmic',
72             data => 'georgian',
73             },
74             'grek' => {
75             type => 'algorithmic',
76             data => 'greek-upper',
77             },
78             'greklow' => {
79             type => 'algorithmic',
80             data => 'greek-lower',
81             },
82             'gujr' => {
83             type => 'numeric',
84             data => [qw(૦ ૧ ૨ à«© ૪ à«« ૬ à«­ à«® ૯)],
85             },
86             'guru' => {
87             type => 'numeric',
88             data => [qw(੦ ੧ ੨ à©© ੪ à©« ੬ à©­ à©® ੯)],
89             },
90             'hanidays' => {
91             type => 'algorithmic',
92             data => 'zh/SpelloutRules/spellout-numbering-days',
93             },
94             'hanidec' => {
95             type => 'numeric',
96             data => [qw(〇 一 二 三 å›› 五 å…­ 七 å…« 九)],
97             },
98             'hans' => {
99             type => 'algorithmic',
100             data => 'zh/SpelloutRules/spellout-cardinal',
101             },
102             'hansfin' => {
103             type => 'algorithmic',
104             data => 'zh/SpelloutRules/spellout-cardinal-financial',
105             },
106             'hant' => {
107             type => 'algorithmic',
108             data => 'zh_Hant/SpelloutRules/spellout-cardinal',
109             },
110             'hantfin' => {
111             type => 'algorithmic',
112             data => 'zh_Hant/SpelloutRules/spellout-cardinal-financial',
113             },
114             'hebr' => {
115             type => 'algorithmic',
116             data => 'hebrew',
117             },
118             'java' => {
119             type => 'numeric',
120             data => [qw(꧐ ꧑ ꧒ ꧓ ꧔ ꧕ ꧖ ꧗ ꧘ ꧙)],
121             },
122             'jpan' => {
123             type => 'algorithmic',
124             data => 'ja/SpelloutRules/spellout-cardinal',
125             },
126             'jpanfin' => {
127             type => 'algorithmic',
128             data => 'ja/SpelloutRules/spellout-cardinal-financial',
129             },
130             'kali' => {
131             type => 'numeric',
132             data => [qw(꤀ ꤁ ꤂ ꤃ ꤄ ꤅ ꤆ ꤇ ꤈ ꤉)],
133             },
134             'khmr' => {
135             type => 'numeric',
136             data => [qw(០ ១ ២ ៣ ៤ ៥ ៦ ៧ ៨ ៩)],
137             },
138             'knda' => {
139             type => 'numeric',
140             data => [qw(೦ ೧ ೨ ೩ ೪ ೫ ೬ à³­ à³® ೯)],
141             },
142             'lana' => {
143             type => 'numeric',
144             data => [qw(᪀ ᪁ ᪂ ᪃ ᪄ ᪅ ᪆ ᪇ ᪈ ᪉)],
145             },
146             'lanatham' => {
147             type => 'numeric',
148             data => [qw(᪐ ᪑ ᪒ ᪓ ᪔ ᪕ ᪖ ᪗ ᪘ ᪙)],
149             },
150             'laoo' => {
151             type => 'numeric',
152             data => [qw(໐ ໑ à»’ ໓ à»” ໕ à»– à»— ໘ à»™)],
153             },
154             'latn' => {
155             type => 'numeric',
156             data => [qw(0 1 2 3 4 5 6 7 8 9)],
157             },
158             'lepc' => {
159             type => 'numeric',
160             data => [qw(á±€ ᱁ ᱂ ᱃ ᱄ á±… ᱆ ᱇ ᱈ ᱉)],
161             },
162             'limb' => {
163             type => 'numeric',
164             data => [qw(᥆ ᥇ ᥈ ᥉ ᥊ ᥋ ᥌ ᥍ ᥎ ᥏)],
165             },
166             'mlym' => {
167             type => 'numeric',
168             data => [qw(൦ ൧ ൨ ൩ ൪ ൫ ൬ ൭ ൮ ൯)],
169             },
170             'mong' => {
171             type => 'numeric',
172             data => [qw(᠐ á ‘ á ’ á “ á ” á • á – á — á ˜ á ™)],
173             },
174             'mtei' => {
175             type => 'numeric',
176             data => [qw(꯰ ꯱ ꯲ ꯳ ꯴ ꯵ ꯶ ꯷ ꯸ ꯹)],
177             },
178             'mymr' => {
179             type => 'numeric',
180             data => [qw(၀ ၁ ၂ ၃ ၄ ၅ ၆ ၇ ၈ ၉)],
181             },
182             'mymrshan' => {
183             type => 'numeric',
184             data => [qw(႐ á‚‘ á‚’ á‚“ á‚” á‚• á‚– á‚— ႘ á‚™)],
185             },
186             'nkoo' => {
187             type => 'numeric',
188             data => [qw(߀ ߁ ß‚ ߃ ß„ ß… ߆ ߇ ߈ ߉)],
189             },
190             'olck' => {
191             type => 'numeric',
192             data => [qw(᱐ ᱑ á±’ ᱓ á±” ᱕ á±– á±— ᱘ á±™)],
193             },
194             'orya' => {
195             type => 'numeric',
196             data => [qw(à­¦ à­§ à­¨ à­© à­ª à­« à­¬ à­­ à­® à­¯)],
197             },
198             'osma' => {
199             type => 'numeric',
200             data => [qw(𐒠 𐒡 𐒢 𐒣 𐒤 𐒥 𐒦 𐒧 𐒨 𐒩)],
201             },
202             'roman' => {
203             type => 'algorithmic',
204             data => 'roman-upper',
205             },
206             'romanlow' => {
207             type => 'algorithmic',
208             data => 'roman-lower',
209             },
210             'saur' => {
211             type => 'numeric',
212             data => [qw(꣐ ꣑ ꣒ ꣓ ꣔ ꣕ ꣖ ꣗ ꣘ ꣙)],
213             },
214             'shrd' => {
215             type => 'numeric',
216             data => [qw(𑇐 𑇑 𑇒 𑇓 𑇔 𑇕 𑇖 𑇗 𑇘 𑇙)],
217             },
218             'sora' => {
219             type => 'numeric',
220             data => [qw(𑃰 𑃱 𑃲 𑃳 𑃴 𑃵 𑃶 𑃷 𑃸 𑃹)],
221             },
222             'sund' => {
223             type => 'numeric',
224             data => [qw(á®° á®± ᮲ ᮳ á®´ ᮵ ᮶ á®· ᮸ ᮹)],
225             },
226             'takr' => {
227             type => 'numeric',
228             data => [qw(𑛀 𑛁 ð‘›‚ 𑛃 ð‘›„ ð‘›… 𑛆 𑛇 𑛈 𑛉)],
229             },
230             'talu' => {
231             type => 'numeric',
232             data => [qw(᧐ ᧑ ᧒ ᧓ ᧔ ᧕ ᧖ ᧗ ᧘ ᧙)],
233             },
234             'taml' => {
235             type => 'algorithmic',
236             data => 'tamil',
237             },
238             'tamldec' => {
239             type => 'numeric',
240             data => [qw(௦ ௧ ௨ ௩ ௪ ௫ ௬ ௭ ௮ ௯)],
241             },
242             'telu' => {
243             type => 'numeric',
244             data => [qw(౦ ౧ ౨ ౩ ౪ ౫ ౬ à±­ à±® ౯)],
245             },
246             'thai' => {
247             type => 'numeric',
248             data => [qw(๐ ๑ ๒ ๓ ๔ ๕ ๖ ๗ ๘ ๙)],
249             },
250             'tibt' => {
251             type => 'numeric',
252             data => [qw(༠ ༡ ༢ ༣ ༤ ༥ ༦ ༧ ༨ ༩)],
253             },
254             'vaii' => {
255             type => 'numeric',
256             data => [qw(꘠ ꘡ ꘢ ꘣ ꘤ ꘥ ꘦ ꘧ ꘨ ꘩)],
257             },
258             }},
259             );
260              
261             has '_default_numbering_system' => (
262             is => 'ro',
263             isa => 'Str',
264             init_arg => undef,
265             default => '',
266             traits => ['String'],
267             handles => {
268             _set_default_nu => 'append',
269             _clear_default_nu => 'clear',
270             _test_default_nu => 'length',
271             },
272             );
273              
274             sub default_numbering_system {
275 2254     2254 0 1779 my $self = shift;
276            
277 2254 100       71792 if($self->_test_default_nu) {
278 2249         53126 return $self->_default_numbering_system;
279             }
280             else {
281 5         22 my $numbering_system = $self->_find_bundle('default_numbering_system')->default_numbering_system;
282 5         166 $self->_set_default_nu($numbering_system);
283 5         18 return $numbering_system
284             }
285             }
286              
287 20     20   81323 no Moose::Role;
  20         36  
  20         81  
288              
289             1;
290              
291             # vim: tabstop=4