1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
|
package Locale::Codes::Constants;
# Copyright (C) 2001 Canon Research Centre Europe (CRE).
# Copyright (C) 2002-2009 Neil Bowers
# Copyright (c) 2010-2015 Sullivan Beck
# This program is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
use strict;
use warnings;
require Exporter;
#-----------------------------------------------------------------------
# Public Global Variables
#-----------------------------------------------------------------------
our($VERSION,@ISA,@EXPORT);
our(%ALL_CODESETS);
$VERSION='3.34';
@ISA = qw(Exporter);
@EXPORT = qw(LOCALE_CODE_ALPHA_2
LOCALE_CODE_ALPHA_3
LOCALE_CODE_NUMERIC
LOCALE_CODE_DOM
LOCALE_LANG_ALPHA_2
LOCALE_LANG_ALPHA_3
LOCALE_LANG_TERM
LOCALE_CURR_ALPHA
LOCALE_CURR_NUMERIC
LOCALE_SCRIPT_ALPHA
LOCALE_SCRIPT_NUMERIC
LOCALE_LANGEXT_ALPHA
LOCALE_LANGVAR_ALPHA
LOCALE_LANGFAM_ALPHA
%ALL_CODESETS
);
#-----------------------------------------------------------------------
# Constants
#-----------------------------------------------------------------------
use constant LOCALE_CODE_ALPHA_2 => 'alpha-2';
use constant LOCALE_CODE_ALPHA_3 => 'alpha-3';
use constant LOCALE_CODE_NUMERIC => 'numeric';
use constant LOCALE_CODE_DOM => 'dom';
$ALL_CODESETS{'country'} = {
'default' => 'alpha-2',
'codesets' => { 'alpha-2' => ['lc'],
'alpha-3' => ['lc'],
'numeric' => ['numeric',3],
'dom' => ['lc'],
}
};
use constant LOCALE_LANG_ALPHA_2 => 'alpha-2';
use constant LOCALE_LANG_ALPHA_3 => 'alpha-3';
use constant LOCALE_LANG_TERM => 'term';
$ALL_CODESETS{'language'} = {
'default' => 'alpha-2',
'codesets' => { 'alpha-2' => ['lc'],
'alpha-3' => ['lc'],
'term' => ['lc'],
}
};
use constant LOCALE_CURR_ALPHA => 'alpha';
use constant LOCALE_CURR_NUMERIC => 'num';
$ALL_CODESETS{'currency'} = {
'default' => 'alpha',
'codesets' => { 'alpha' => ['uc'],
'num' => ['numeric',3],
}
};
use constant LOCALE_SCRIPT_ALPHA => 'alpha';
use constant LOCALE_SCRIPT_NUMERIC => 'num';
$ALL_CODESETS{'script'} = {
'default' => 'alpha',
'codesets' => { 'alpha' => ['ucfirst'],
'num' => ['numeric',3],
}
};
use constant LOCALE_LANGEXT_ALPHA => 'alpha';
$ALL_CODESETS{'langext'} = {
'default' => 'alpha',
'codesets' => { 'alpha' => ['lc'],
}
};
use constant LOCALE_LANGVAR_ALPHA => 'alpha';
$ALL_CODESETS{'langvar'} = {
'default' => 'alpha',
'codesets' => { 'alpha' => ['lc'],
}
};
use constant LOCALE_LANGFAM_ALPHA => 'alpha';
$ALL_CODESETS{'langfam'} = {
'default' => 'alpha',
'codesets' => { 'alpha' => ['lc'],
}
};
1;
# Local Variables:
# mode: cperl
# indent-tabs-mode: nil
# cperl-indent-level: 3
# cperl-continued-statement-offset: 2
# cperl-continued-brace-offset: 0
# cperl-brace-offset: 0
# cperl-brace-imaginary-offset: 0
# cperl-label-offset: -2
# End:
|