line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Locale::CLDR::EraBoundries; |
2
|
|
|
|
|
|
|
# This file auto generated from Data.xml |
3
|
|
|
|
|
|
|
# on Fri 10 Jul 3:10:24 pm GMT |
4
|
|
|
|
|
|
|
# XML file generated 2015-02-25 23:47:56 -0600 (Wed, 25 Feb 2015) |
5
|
|
|
|
|
|
|
|
6
|
20
|
|
|
20
|
|
13052
|
use version; |
|
20
|
|
|
|
|
37
|
|
|
20
|
|
|
|
|
153
|
|
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
our $VERSION = version->declare('v0.27.2'); |
9
|
|
|
|
|
|
|
|
10
|
20
|
|
|
20
|
|
2373
|
use v5.10; |
|
20
|
|
|
|
|
63
|
|
|
20
|
|
|
|
|
831
|
|
11
|
20
|
|
|
20
|
|
105
|
use mro 'c3'; |
|
20
|
|
|
|
|
33
|
|
|
20
|
|
|
|
|
165
|
|
12
|
20
|
|
|
20
|
|
760
|
use utf8; |
|
20
|
|
|
|
|
69
|
|
|
20
|
|
|
|
|
153
|
|
13
|
20
|
|
|
20
|
|
781
|
use if $^V ge v5.12.0, feature => 'unicode_strings'; |
|
20
|
|
|
|
|
36
|
|
|
20
|
|
|
|
|
347
|
|
14
|
|
|
|
|
|
|
|
15
|
20
|
|
|
20
|
|
2645
|
use Moose::Role; |
|
20
|
|
|
|
|
40
|
|
|
20
|
|
|
|
|
182
|
|
16
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
has '_era_boundry' => ( |
18
|
|
|
|
|
|
|
is => 'ro', |
19
|
|
|
|
|
|
|
isa => 'CodeRef', |
20
|
|
|
|
|
|
|
traits => ['Code'], |
21
|
|
|
|
|
|
|
handles => { era_boundry => 'execute_method' }, |
22
|
|
|
|
|
|
|
init_arg => undef, |
23
|
|
|
|
|
|
|
default => sub { sub { |
24
|
|
|
|
|
|
|
my ($self, $type, $date) = @_; |
25
|
|
|
|
|
|
|
# $date in yyyymmdd format |
26
|
|
|
|
|
|
|
my $return = -1; |
27
|
|
|
|
|
|
|
SWITCH: |
28
|
|
|
|
|
|
|
for ($type) { |
29
|
|
|
|
|
|
|
if ($_ eq 'gregorian') { |
30
|
|
|
|
|
|
|
$return = 0 if $date <= 1231; |
31
|
|
|
|
|
|
|
$return = 1 if $date >= 10101; |
32
|
|
|
|
|
|
|
last SWITCH |
33
|
|
|
|
|
|
|
} |
34
|
|
|
|
|
|
|
if ($_ eq 'generic') { |
35
|
|
|
|
|
|
|
last SWITCH |
36
|
|
|
|
|
|
|
} |
37
|
|
|
|
|
|
|
if ($_ eq 'japanese') { |
38
|
|
|
|
|
|
|
$return = 0 if $date >= 6450619; |
39
|
|
|
|
|
|
|
$return = 1 if $date >= 6500215; |
40
|
|
|
|
|
|
|
$return = 2 if $date >= 6720101; |
41
|
|
|
|
|
|
|
$return = 3 if $date >= 6860720; |
42
|
|
|
|
|
|
|
$return = 4 if $date >= 7010321; |
43
|
|
|
|
|
|
|
$return = 5 if $date >= 7040510; |
44
|
|
|
|
|
|
|
$return = 6 if $date >= 7080111; |
45
|
|
|
|
|
|
|
$return = 7 if $date >= 7150902; |
46
|
|
|
|
|
|
|
$return = 8 if $date >= 7171117; |
47
|
|
|
|
|
|
|
$return = 9 if $date >= 7240204; |
48
|
|
|
|
|
|
|
$return = 10 if $date >= 7290805; |
49
|
|
|
|
|
|
|
$return = 11 if $date >= 7490414; |
50
|
|
|
|
|
|
|
$return = 12 if $date >= 7490702; |
51
|
|
|
|
|
|
|
$return = 13 if $date >= 7570818; |
52
|
|
|
|
|
|
|
$return = 14 if $date >= 7650107; |
53
|
|
|
|
|
|
|
$return = 15 if $date >= 7670816; |
54
|
|
|
|
|
|
|
$return = 16 if $date >= 7701001; |
55
|
|
|
|
|
|
|
$return = 17 if $date >= 7810101; |
56
|
|
|
|
|
|
|
$return = 18 if $date >= 7820819; |
57
|
|
|
|
|
|
|
$return = 19 if $date >= 8060518; |
58
|
|
|
|
|
|
|
$return = 20 if $date >= 8100919; |
59
|
|
|
|
|
|
|
$return = 21 if $date >= 8240105; |
60
|
|
|
|
|
|
|
$return = 22 if $date >= 8340103; |
61
|
|
|
|
|
|
|
$return = 23 if $date >= 8480613; |
62
|
|
|
|
|
|
|
$return = 24 if $date >= 8510428; |
63
|
|
|
|
|
|
|
$return = 25 if $date >= 8541130; |
64
|
|
|
|
|
|
|
$return = 26 if $date >= 8570221; |
65
|
|
|
|
|
|
|
$return = 27 if $date >= 8590415; |
66
|
|
|
|
|
|
|
$return = 28 if $date >= 8770416; |
67
|
|
|
|
|
|
|
$return = 29 if $date >= 8850221; |
68
|
|
|
|
|
|
|
$return = 30 if $date >= 8890427; |
69
|
|
|
|
|
|
|
$return = 31 if $date >= 8980426; |
70
|
|
|
|
|
|
|
$return = 32 if $date >= 9010715; |
71
|
|
|
|
|
|
|
$return = 33 if $date >= 9230411; |
72
|
|
|
|
|
|
|
$return = 34 if $date >= 9310426; |
73
|
|
|
|
|
|
|
$return = 35 if $date >= 9380522; |
74
|
|
|
|
|
|
|
$return = 36 if $date >= 9470422; |
75
|
|
|
|
|
|
|
$return = 37 if $date >= 9571027; |
76
|
|
|
|
|
|
|
$return = 38 if $date >= 9610216; |
77
|
|
|
|
|
|
|
$return = 39 if $date >= 9640710; |
78
|
|
|
|
|
|
|
$return = 40 if $date >= 9680813; |
79
|
|
|
|
|
|
|
$return = 41 if $date >= 9700325; |
80
|
|
|
|
|
|
|
$return = 42 if $date >= 9731220; |
81
|
|
|
|
|
|
|
$return = 43 if $date >= 9760713; |
82
|
|
|
|
|
|
|
$return = 44 if $date >= 9781129; |
83
|
|
|
|
|
|
|
$return = 45 if $date >= 9830415; |
84
|
|
|
|
|
|
|
$return = 46 if $date >= 9850427; |
85
|
|
|
|
|
|
|
$return = 47 if $date >= 9870405; |
86
|
|
|
|
|
|
|
$return = 48 if $date >= 9890808; |
87
|
|
|
|
|
|
|
$return = 49 if $date >= 9901107; |
88
|
|
|
|
|
|
|
$return = 50 if $date >= 9950222; |
89
|
|
|
|
|
|
|
$return = 51 if $date >= 9990113; |
90
|
|
|
|
|
|
|
$return = 52 if $date >= 10040720; |
91
|
|
|
|
|
|
|
$return = 53 if $date >= 10121225; |
92
|
|
|
|
|
|
|
$return = 54 if $date >= 10170423; |
93
|
|
|
|
|
|
|
$return = 55 if $date >= 10210202; |
94
|
|
|
|
|
|
|
$return = 56 if $date >= 10240713; |
95
|
|
|
|
|
|
|
$return = 57 if $date >= 10280725; |
96
|
|
|
|
|
|
|
$return = 58 if $date >= 10370421; |
97
|
|
|
|
|
|
|
$return = 59 if $date >= 10401110; |
98
|
|
|
|
|
|
|
$return = 60 if $date >= 10441124; |
99
|
|
|
|
|
|
|
$return = 61 if $date >= 10460414; |
100
|
|
|
|
|
|
|
$return = 62 if $date >= 10530111; |
101
|
|
|
|
|
|
|
$return = 63 if $date >= 10580829; |
102
|
|
|
|
|
|
|
$return = 64 if $date >= 10650802; |
103
|
|
|
|
|
|
|
$return = 65 if $date >= 10690413; |
104
|
|
|
|
|
|
|
$return = 66 if $date >= 10740823; |
105
|
|
|
|
|
|
|
$return = 67 if $date >= 10771117; |
106
|
|
|
|
|
|
|
$return = 68 if $date >= 10810210; |
107
|
|
|
|
|
|
|
$return = 69 if $date >= 10840207; |
108
|
|
|
|
|
|
|
$return = 70 if $date >= 10870407; |
109
|
|
|
|
|
|
|
$return = 71 if $date >= 10941215; |
110
|
|
|
|
|
|
|
$return = 72 if $date >= 10961217; |
111
|
|
|
|
|
|
|
$return = 73 if $date >= 10971121; |
112
|
|
|
|
|
|
|
$return = 74 if $date >= 10990828; |
113
|
|
|
|
|
|
|
$return = 75 if $date >= 11040210; |
114
|
|
|
|
|
|
|
$return = 76 if $date >= 11060409; |
115
|
|
|
|
|
|
|
$return = 77 if $date >= 11080803; |
116
|
|
|
|
|
|
|
$return = 78 if $date >= 11100713; |
117
|
|
|
|
|
|
|
$return = 79 if $date >= 11130713; |
118
|
|
|
|
|
|
|
$return = 80 if $date >= 11180403; |
119
|
|
|
|
|
|
|
$return = 81 if $date >= 11200410; |
120
|
|
|
|
|
|
|
$return = 82 if $date >= 11240403; |
121
|
|
|
|
|
|
|
$return = 83 if $date >= 11260122; |
122
|
|
|
|
|
|
|
$return = 84 if $date >= 11310129; |
123
|
|
|
|
|
|
|
$return = 85 if $date >= 11320811; |
124
|
|
|
|
|
|
|
$return = 86 if $date >= 11350427; |
125
|
|
|
|
|
|
|
$return = 87 if $date >= 11410710; |
126
|
|
|
|
|
|
|
$return = 88 if $date >= 11420428; |
127
|
|
|
|
|
|
|
$return = 89 if $date >= 11440223; |
128
|
|
|
|
|
|
|
$return = 90 if $date >= 11450722; |
129
|
|
|
|
|
|
|
$return = 91 if $date >= 11510126; |
130
|
|
|
|
|
|
|
$return = 92 if $date >= 11541028; |
131
|
|
|
|
|
|
|
$return = 93 if $date >= 11560427; |
132
|
|
|
|
|
|
|
$return = 94 if $date >= 11590420; |
133
|
|
|
|
|
|
|
$return = 95 if $date >= 11600110; |
134
|
|
|
|
|
|
|
$return = 96 if $date >= 11610904; |
135
|
|
|
|
|
|
|
$return = 97 if $date >= 11630329; |
136
|
|
|
|
|
|
|
$return = 98 if $date >= 11650605; |
137
|
|
|
|
|
|
|
$return = 99 if $date >= 11660827; |
138
|
|
|
|
|
|
|
$return = 100 if $date >= 11690408; |
139
|
|
|
|
|
|
|
$return = 101 if $date >= 11710421; |
140
|
|
|
|
|
|
|
$return = 102 if $date >= 11750728; |
141
|
|
|
|
|
|
|
$return = 103 if $date >= 11770804; |
142
|
|
|
|
|
|
|
$return = 104 if $date >= 11810714; |
143
|
|
|
|
|
|
|
$return = 105 if $date >= 11820527; |
144
|
|
|
|
|
|
|
$return = 106 if $date >= 11840416; |
145
|
|
|
|
|
|
|
$return = 107 if $date >= 11850814; |
146
|
|
|
|
|
|
|
$return = 108 if $date >= 11900411; |
147
|
|
|
|
|
|
|
$return = 109 if $date >= 11990427; |
148
|
|
|
|
|
|
|
$return = 110 if $date >= 12010213; |
149
|
|
|
|
|
|
|
$return = 111 if $date >= 12040220; |
150
|
|
|
|
|
|
|
$return = 112 if $date >= 12060427; |
151
|
|
|
|
|
|
|
$return = 113 if $date >= 12071025; |
152
|
|
|
|
|
|
|
$return = 114 if $date >= 12110309; |
153
|
|
|
|
|
|
|
$return = 115 if $date >= 12131206; |
154
|
|
|
|
|
|
|
$return = 116 if $date >= 12190412; |
155
|
|
|
|
|
|
|
$return = 117 if $date >= 12220413; |
156
|
|
|
|
|
|
|
$return = 118 if $date >= 12241120; |
157
|
|
|
|
|
|
|
$return = 119 if $date >= 12250420; |
158
|
|
|
|
|
|
|
$return = 120 if $date >= 12271210; |
159
|
|
|
|
|
|
|
$return = 121 if $date >= 12290305; |
160
|
|
|
|
|
|
|
$return = 122 if $date >= 12320402; |
161
|
|
|
|
|
|
|
$return = 123 if $date >= 12330415; |
162
|
|
|
|
|
|
|
$return = 124 if $date >= 12341105; |
163
|
|
|
|
|
|
|
$return = 125 if $date >= 12350919; |
164
|
|
|
|
|
|
|
$return = 126 if $date >= 12381123; |
165
|
|
|
|
|
|
|
$return = 127 if $date >= 12390207; |
166
|
|
|
|
|
|
|
$return = 128 if $date >= 12400716; |
167
|
|
|
|
|
|
|
$return = 129 if $date >= 12430226; |
168
|
|
|
|
|
|
|
$return = 130 if $date >= 12470228; |
169
|
|
|
|
|
|
|
$return = 131 if $date >= 12490318; |
170
|
|
|
|
|
|
|
$return = 132 if $date >= 12561005; |
171
|
|
|
|
|
|
|
$return = 133 if $date >= 12570314; |
172
|
|
|
|
|
|
|
$return = 134 if $date >= 12590326; |
173
|
|
|
|
|
|
|
$return = 135 if $date >= 12600413; |
174
|
|
|
|
|
|
|
$return = 136 if $date >= 12610220; |
175
|
|
|
|
|
|
|
$return = 137 if $date >= 12640228; |
176
|
|
|
|
|
|
|
$return = 138 if $date >= 12750425; |
177
|
|
|
|
|
|
|
$return = 139 if $date >= 12780229; |
178
|
|
|
|
|
|
|
$return = 140 if $date >= 12880428; |
179
|
|
|
|
|
|
|
$return = 141 if $date >= 12930855; |
180
|
|
|
|
|
|
|
$return = 142 if $date >= 12990425; |
181
|
|
|
|
|
|
|
$return = 143 if $date >= 13021121; |
182
|
|
|
|
|
|
|
$return = 144 if $date >= 13030805; |
183
|
|
|
|
|
|
|
$return = 145 if $date >= 13061214; |
184
|
|
|
|
|
|
|
$return = 146 if $date >= 13081009; |
185
|
|
|
|
|
|
|
$return = 147 if $date >= 13110428; |
186
|
|
|
|
|
|
|
$return = 148 if $date >= 13120320; |
187
|
|
|
|
|
|
|
$return = 149 if $date >= 13170203; |
188
|
|
|
|
|
|
|
$return = 150 if $date >= 13190428; |
189
|
|
|
|
|
|
|
$return = 151 if $date >= 13210223; |
190
|
|
|
|
|
|
|
$return = 152 if $date >= 13241209; |
191
|
|
|
|
|
|
|
$return = 153 if $date >= 13260426; |
192
|
|
|
|
|
|
|
$return = 154 if $date >= 13290829; |
193
|
|
|
|
|
|
|
$return = 155 if $date >= 13310809; |
194
|
|
|
|
|
|
|
$return = 156 if $date >= 13340129; |
195
|
|
|
|
|
|
|
$return = 157 if $date >= 13360229; |
196
|
|
|
|
|
|
|
$return = 158 if $date >= 13400428; |
197
|
|
|
|
|
|
|
$return = 159 if $date >= 13461208; |
198
|
|
|
|
|
|
|
$return = 160 if $date >= 13700724; |
199
|
|
|
|
|
|
|
$return = 161 if $date >= 13720401; |
200
|
|
|
|
|
|
|
$return = 162 if $date >= 13750527; |
201
|
|
|
|
|
|
|
$return = 163 if $date >= 13790322; |
202
|
|
|
|
|
|
|
$return = 164 if $date >= 13810210; |
203
|
|
|
|
|
|
|
$return = 165 if $date >= 13840428; |
204
|
|
|
|
|
|
|
$return = 166 if $date >= 13840227; |
205
|
|
|
|
|
|
|
$return = 167 if $date >= 13870823; |
206
|
|
|
|
|
|
|
$return = 168 if $date >= 13890209; |
207
|
|
|
|
|
|
|
$return = 169 if $date >= 13900326; |
208
|
|
|
|
|
|
|
$return = 170 if $date >= 13940705; |
209
|
|
|
|
|
|
|
$return = 171 if $date >= 14280427; |
210
|
|
|
|
|
|
|
$return = 172 if $date >= 14290905; |
211
|
|
|
|
|
|
|
$return = 173 if $date >= 14410217; |
212
|
|
|
|
|
|
|
$return = 174 if $date >= 14440205; |
213
|
|
|
|
|
|
|
$return = 175 if $date >= 14490728; |
214
|
|
|
|
|
|
|
$return = 176 if $date >= 14520725; |
215
|
|
|
|
|
|
|
$return = 177 if $date >= 14550725; |
216
|
|
|
|
|
|
|
$return = 178 if $date >= 14570928; |
217
|
|
|
|
|
|
|
$return = 179 if $date >= 14601221; |
218
|
|
|
|
|
|
|
$return = 180 if $date >= 14660228; |
219
|
|
|
|
|
|
|
$return = 181 if $date >= 14670303; |
220
|
|
|
|
|
|
|
$return = 182 if $date >= 14690428; |
221
|
|
|
|
|
|
|
$return = 183 if $date >= 14870729; |
222
|
|
|
|
|
|
|
$return = 184 if $date >= 14890821; |
223
|
|
|
|
|
|
|
$return = 185 if $date >= 14920719; |
224
|
|
|
|
|
|
|
$return = 186 if $date >= 15010229; |
225
|
|
|
|
|
|
|
$return = 187 if $date >= 15040230; |
226
|
|
|
|
|
|
|
$return = 188 if $date >= 15210823; |
227
|
|
|
|
|
|
|
$return = 189 if $date >= 15280820; |
228
|
|
|
|
|
|
|
$return = 190 if $date >= 15320729; |
229
|
|
|
|
|
|
|
$return = 191 if $date >= 15551023; |
230
|
|
|
|
|
|
|
$return = 192 if $date >= 15580228; |
231
|
|
|
|
|
|
|
$return = 193 if $date >= 15700423; |
232
|
|
|
|
|
|
|
$return = 194 if $date >= 15730728; |
233
|
|
|
|
|
|
|
$return = 195 if $date >= 15921208; |
234
|
|
|
|
|
|
|
$return = 196 if $date >= 15961027; |
235
|
|
|
|
|
|
|
$return = 197 if $date >= 16150713; |
236
|
|
|
|
|
|
|
$return = 198 if $date >= 16240230; |
237
|
|
|
|
|
|
|
$return = 199 if $date >= 16441216; |
238
|
|
|
|
|
|
|
$return = 200 if $date >= 16480215; |
239
|
|
|
|
|
|
|
$return = 201 if $date >= 16520918; |
240
|
|
|
|
|
|
|
$return = 202 if $date >= 16550413; |
241
|
|
|
|
|
|
|
$return = 203 if $date >= 16580723; |
242
|
|
|
|
|
|
|
$return = 204 if $date >= 16610425; |
243
|
|
|
|
|
|
|
$return = 205 if $date >= 16730921; |
244
|
|
|
|
|
|
|
$return = 206 if $date >= 16810929; |
245
|
|
|
|
|
|
|
$return = 207 if $date >= 16840221; |
246
|
|
|
|
|
|
|
$return = 208 if $date >= 16880930; |
247
|
|
|
|
|
|
|
$return = 209 if $date >= 17040313; |
248
|
|
|
|
|
|
|
$return = 210 if $date >= 17110425; |
249
|
|
|
|
|
|
|
$return = 211 if $date >= 17160622; |
250
|
|
|
|
|
|
|
$return = 212 if $date >= 17360428; |
251
|
|
|
|
|
|
|
$return = 213 if $date >= 17410227; |
252
|
|
|
|
|
|
|
$return = 214 if $date >= 17440221; |
253
|
|
|
|
|
|
|
$return = 215 if $date >= 17480712; |
254
|
|
|
|
|
|
|
$return = 216 if $date >= 17511027; |
255
|
|
|
|
|
|
|
$return = 217 if $date >= 17640602; |
256
|
|
|
|
|
|
|
$return = 218 if $date >= 17721116; |
257
|
|
|
|
|
|
|
$return = 219 if $date >= 17810402; |
258
|
|
|
|
|
|
|
$return = 220 if $date >= 17890125; |
259
|
|
|
|
|
|
|
$return = 221 if $date >= 18010205; |
260
|
|
|
|
|
|
|
$return = 222 if $date >= 18040211; |
261
|
|
|
|
|
|
|
$return = 223 if $date >= 18180422; |
262
|
|
|
|
|
|
|
$return = 224 if $date >= 18301210; |
263
|
|
|
|
|
|
|
$return = 225 if $date >= 18441202; |
264
|
|
|
|
|
|
|
$return = 226 if $date >= 18480228; |
265
|
|
|
|
|
|
|
$return = 227 if $date >= 18541127; |
266
|
|
|
|
|
|
|
$return = 228 if $date >= 18600318; |
267
|
|
|
|
|
|
|
$return = 229 if $date >= 18610219; |
268
|
|
|
|
|
|
|
$return = 230 if $date >= 18640220; |
269
|
|
|
|
|
|
|
$return = 231 if $date >= 18650407; |
270
|
|
|
|
|
|
|
$return = 232 if $date >= 18680908; |
271
|
|
|
|
|
|
|
$return = 233 if $date >= 19120730; |
272
|
|
|
|
|
|
|
$return = 234 if $date >= 19261225; |
273
|
|
|
|
|
|
|
$return = 235 if $date >= 19890108; |
274
|
|
|
|
|
|
|
last SWITCH |
275
|
|
|
|
|
|
|
} |
276
|
|
|
|
|
|
|
if ($_ eq 'islamic') { |
277
|
|
|
|
|
|
|
$return = 0 if $date >= 6220715; |
278
|
|
|
|
|
|
|
last SWITCH |
279
|
|
|
|
|
|
|
} |
280
|
|
|
|
|
|
|
if ($_ eq 'islamic-civil') { |
281
|
|
|
|
|
|
|
$return = 0 if $date >= 6220716; |
282
|
|
|
|
|
|
|
last SWITCH |
283
|
|
|
|
|
|
|
} |
284
|
|
|
|
|
|
|
if ($_ eq 'islamic-rgsa') { |
285
|
|
|
|
|
|
|
$return = 0 if $date >= 6220715; |
286
|
|
|
|
|
|
|
last SWITCH |
287
|
|
|
|
|
|
|
} |
288
|
|
|
|
|
|
|
if ($_ eq 'islamic-tbla') { |
289
|
|
|
|
|
|
|
$return = 0 if $date >= 6220715; |
290
|
|
|
|
|
|
|
last SWITCH |
291
|
|
|
|
|
|
|
} |
292
|
|
|
|
|
|
|
if ($_ eq 'islamic-umalqura') { |
293
|
|
|
|
|
|
|
$return = 0 if $date >= 6220715; |
294
|
|
|
|
|
|
|
last SWITCH |
295
|
|
|
|
|
|
|
} |
296
|
|
|
|
|
|
|
if ($_ eq 'chinese') { |
297
|
|
|
|
|
|
|
$return = 0 if $date >= 263601; |
298
|
|
|
|
|
|
|
last SWITCH |
299
|
|
|
|
|
|
|
} |
300
|
|
|
|
|
|
|
if ($_ eq 'hebrew') { |
301
|
|
|
|
|
|
|
$return = 0 if $date >= 376010; |
302
|
|
|
|
|
|
|
last SWITCH |
303
|
|
|
|
|
|
|
} |
304
|
|
|
|
|
|
|
if ($_ eq 'buddhist') { |
305
|
|
|
|
|
|
|
$return = 0 if $date >= 54201; |
306
|
|
|
|
|
|
|
last SWITCH |
307
|
|
|
|
|
|
|
} |
308
|
|
|
|
|
|
|
if ($_ eq 'coptic') { |
309
|
|
|
|
|
|
|
$return = 0 if $date <= 2840828; |
310
|
|
|
|
|
|
|
$return = 1 if $date >= 2840829; |
311
|
|
|
|
|
|
|
last SWITCH |
312
|
|
|
|
|
|
|
} |
313
|
|
|
|
|
|
|
if ($_ eq 'persian') { |
314
|
|
|
|
|
|
|
$return = 0 if $date >= 6220101; |
315
|
|
|
|
|
|
|
last SWITCH |
316
|
|
|
|
|
|
|
} |
317
|
|
|
|
|
|
|
if ($_ eq 'dangi') { |
318
|
|
|
|
|
|
|
$return = 0 if $date >= 233201; |
319
|
|
|
|
|
|
|
last SWITCH |
320
|
|
|
|
|
|
|
} |
321
|
|
|
|
|
|
|
if ($_ eq 'ethiopic') { |
322
|
|
|
|
|
|
|
$return = 0 if $date <= 80828; |
323
|
|
|
|
|
|
|
$return = 1 if $date >= 80829; |
324
|
|
|
|
|
|
|
last SWITCH |
325
|
|
|
|
|
|
|
} |
326
|
|
|
|
|
|
|
if ($_ eq 'ethiopic-amete-alem') { |
327
|
|
|
|
|
|
|
$return = 0 if $date <= 549208; |
328
|
|
|
|
|
|
|
last SWITCH |
329
|
|
|
|
|
|
|
} |
330
|
|
|
|
|
|
|
if ($_ eq 'indian') { |
331
|
|
|
|
|
|
|
$return = 0 if $date >= 790101; |
332
|
|
|
|
|
|
|
last SWITCH |
333
|
|
|
|
|
|
|
} |
334
|
|
|
|
|
|
|
if ($_ eq 'roc') { |
335
|
|
|
|
|
|
|
$return = 0 if $date <= 19111231; |
336
|
|
|
|
|
|
|
$return = 1 if $date >= 19120101; |
337
|
|
|
|
|
|
|
last SWITCH |
338
|
|
|
|
|
|
|
} |
339
|
|
|
|
|
|
|
} return $return; } |
340
|
|
|
|
|
|
|
} |
341
|
|
|
|
|
|
|
); |
342
|
|
|
|
|
|
|
|
343
|
20
|
|
|
20
|
|
133373
|
no Moose::Role; |
|
20
|
|
|
|
|
50
|
|
|
20
|
|
|
|
|
156
|
|
344
|
|
|
|
|
|
|
|
345
|
|
|
|
|
|
|
1; |
346
|
|
|
|
|
|
|
|
347
|
|
|
|
|
|
|
# vim: tabstop=4 |