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