line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Geo::Region::Constant; |
2
|
|
|
|
|
|
|
|
3
|
2
|
|
|
2
|
|
90354
|
use v5.8.1; |
|
2
|
|
|
|
|
7
|
|
|
2
|
|
|
|
|
114
|
|
4
|
2
|
|
|
2
|
|
11
|
use utf8; |
|
2
|
|
|
|
|
3
|
|
|
2
|
|
|
|
|
21
|
|
5
|
2
|
|
|
2
|
|
554
|
use strict; |
|
2
|
|
|
|
|
3
|
|
|
2
|
|
|
|
|
98
|
|
6
|
2
|
|
|
2
|
|
10
|
use warnings; |
|
2
|
|
|
|
|
3
|
|
|
2
|
|
|
|
|
67
|
|
7
|
2
|
|
|
2
|
|
1060
|
use parent 'Exporter'; |
|
2
|
|
|
|
|
630
|
|
|
2
|
|
|
|
|
12
|
|
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
use constant { |
10
|
|
|
|
|
|
|
# region |
11
|
2
|
|
|
|
|
3665
|
AFRICA => '002', |
12
|
|
|
|
|
|
|
AMERICAS => '019', |
13
|
|
|
|
|
|
|
ASIA => '142', |
14
|
|
|
|
|
|
|
AUSTRALASIA => '053', |
15
|
|
|
|
|
|
|
CARIBBEAN => '029', |
16
|
|
|
|
|
|
|
CENTRAL_AMERICA => '013', |
17
|
|
|
|
|
|
|
CENTRAL_ASIA => '143', |
18
|
|
|
|
|
|
|
EASTERN_AFRICA => '014', |
19
|
|
|
|
|
|
|
EASTERN_ASIA => '030', |
20
|
|
|
|
|
|
|
EASTERN_EUROPE => '151', |
21
|
|
|
|
|
|
|
EUROPE => '150', |
22
|
|
|
|
|
|
|
EUROPEAN_UNION => 'EU', |
23
|
|
|
|
|
|
|
LATIN_AMERICA => '419', |
24
|
|
|
|
|
|
|
MELANESIA => '054', |
25
|
|
|
|
|
|
|
MICRONESIAN_REGION => '057', |
26
|
|
|
|
|
|
|
MIDDLE_AFRICA => '017', |
27
|
|
|
|
|
|
|
NORTH_AMERICA => '003', |
28
|
|
|
|
|
|
|
NORTHERN_AFRICA => '015', |
29
|
|
|
|
|
|
|
NORTHERN_AMERICA => '021', |
30
|
|
|
|
|
|
|
NORTHERN_EUROPE => '154', |
31
|
|
|
|
|
|
|
OCEANIA => '009', |
32
|
|
|
|
|
|
|
OUTLYING_OCEANIA => 'QO', |
33
|
|
|
|
|
|
|
POLYNESIA => '061', |
34
|
|
|
|
|
|
|
SOUTH_AMERICA => '005', |
35
|
|
|
|
|
|
|
SOUTHEAST_ASIA => '035', |
36
|
|
|
|
|
|
|
SOUTHERN_AFRICA => '018', |
37
|
|
|
|
|
|
|
SOUTHERN_ASIA => '034', |
38
|
|
|
|
|
|
|
SOUTHERN_EUROPE => '039', |
39
|
|
|
|
|
|
|
WESTERN_AFRICA => '011', |
40
|
|
|
|
|
|
|
WESTERN_ASIA => '145', |
41
|
|
|
|
|
|
|
WESTERN_EUROPE => '155', |
42
|
|
|
|
|
|
|
WORLD => '001', |
43
|
|
|
|
|
|
|
|
44
|
|
|
|
|
|
|
# country |
45
|
|
|
|
|
|
|
AFGHANISTAN => 'AF', |
46
|
|
|
|
|
|
|
ALAND_ISLANDS => 'AX', |
47
|
|
|
|
|
|
|
ALBANIA => 'AL', |
48
|
|
|
|
|
|
|
ALGERIA => 'DZ', |
49
|
|
|
|
|
|
|
AMERICAN_SAMOA => 'AS', |
50
|
|
|
|
|
|
|
ANDORRA => 'AD', |
51
|
|
|
|
|
|
|
ANGOLA => 'AO', |
52
|
|
|
|
|
|
|
ANGUILLA => 'AI', |
53
|
|
|
|
|
|
|
ANTARCTICA => 'AQ', |
54
|
|
|
|
|
|
|
ANTIGUA_BARBUDA => 'AG', |
55
|
|
|
|
|
|
|
ARGENTINA => 'AR', |
56
|
|
|
|
|
|
|
ARMENIA => 'AM', |
57
|
|
|
|
|
|
|
ARUBA => 'AW', |
58
|
|
|
|
|
|
|
AUSTRALIA => 'AU', |
59
|
|
|
|
|
|
|
AUSTRIA => 'AT', |
60
|
|
|
|
|
|
|
AZERBAIJAN => 'AZ', |
61
|
|
|
|
|
|
|
BAHAMAS => 'BS', |
62
|
|
|
|
|
|
|
BAHRAIN => 'BH', |
63
|
|
|
|
|
|
|
BANGLADESH => 'BD', |
64
|
|
|
|
|
|
|
BARBADOS => 'BB', |
65
|
|
|
|
|
|
|
BELARUS => 'BY', |
66
|
|
|
|
|
|
|
BELGIUM => 'BE', |
67
|
|
|
|
|
|
|
BELIZE => 'BZ', |
68
|
|
|
|
|
|
|
BENIN => 'BJ', |
69
|
|
|
|
|
|
|
BERMUDA => 'BM', |
70
|
|
|
|
|
|
|
BHUTAN => 'BT', |
71
|
|
|
|
|
|
|
BOLIVIA => 'BO', |
72
|
|
|
|
|
|
|
BOSNIA => 'BA', |
73
|
|
|
|
|
|
|
BOTSWANA => 'BW', |
74
|
|
|
|
|
|
|
BOUVET_ISLAND => 'BV', |
75
|
|
|
|
|
|
|
BRAZIL => 'BR', |
76
|
|
|
|
|
|
|
BRITISH_INDIAN_OCEAN_TERRITORY => 'IO', |
77
|
|
|
|
|
|
|
BRITISH_VIRGIN_ISLANDS => 'VG', |
78
|
|
|
|
|
|
|
BRUNEI => 'BN', |
79
|
|
|
|
|
|
|
BULGARIA => 'BG', |
80
|
|
|
|
|
|
|
BURKINA_FASO => 'BF', |
81
|
|
|
|
|
|
|
BURUNDI => 'BI', |
82
|
|
|
|
|
|
|
CAMBODIA => 'KH', |
83
|
|
|
|
|
|
|
CAMEROON => 'CM', |
84
|
|
|
|
|
|
|
CANADA => 'CA', |
85
|
|
|
|
|
|
|
CAPE_VERDE => 'CV', |
86
|
|
|
|
|
|
|
CARIBBEAN_NETHERLANDS => 'BQ', |
87
|
|
|
|
|
|
|
CAYMAN_ISLANDS => 'KY', |
88
|
|
|
|
|
|
|
CENTRAL_AFRICAN_REPUBLIC => 'CF', |
89
|
|
|
|
|
|
|
CHAD => 'TD', |
90
|
|
|
|
|
|
|
CHILE => 'CL', |
91
|
|
|
|
|
|
|
CHINA => 'CN', |
92
|
|
|
|
|
|
|
CHRISTMAS_ISLAND => 'CX', |
93
|
|
|
|
|
|
|
COCOS_ISLANDS => 'CC', |
94
|
|
|
|
|
|
|
COLOMBIA => 'CO', |
95
|
|
|
|
|
|
|
COMOROS => 'KM', |
96
|
|
|
|
|
|
|
CONGO_DRC => 'CD', |
97
|
|
|
|
|
|
|
CONGO_REPUBLIC => 'CG', |
98
|
|
|
|
|
|
|
COOK_ISLANDS => 'CK', |
99
|
|
|
|
|
|
|
COSTA_RICA => 'CR', |
100
|
|
|
|
|
|
|
CROATIA => 'HR', |
101
|
|
|
|
|
|
|
CUBA => 'CU', |
102
|
|
|
|
|
|
|
CURACAO => 'CW', |
103
|
|
|
|
|
|
|
CYPRUS => 'CY', |
104
|
|
|
|
|
|
|
CZECH_REPUBLIC => 'CZ', |
105
|
|
|
|
|
|
|
DENMARK => 'DK', |
106
|
|
|
|
|
|
|
DJIBOUTI => 'DJ', |
107
|
|
|
|
|
|
|
DOMINICA => 'DM', |
108
|
|
|
|
|
|
|
DOMINICAN_REPUBLIC => 'DO', |
109
|
|
|
|
|
|
|
EAST_TIMOR => 'TL', |
110
|
|
|
|
|
|
|
ECUADOR => 'EC', |
111
|
|
|
|
|
|
|
EGYPT => 'EG', |
112
|
|
|
|
|
|
|
EL_SALVADOR => 'SV', |
113
|
|
|
|
|
|
|
EQUATORIAL_GUINEA => 'GQ', |
114
|
|
|
|
|
|
|
ERITREA => 'ER', |
115
|
|
|
|
|
|
|
ESTONIA => 'EE', |
116
|
|
|
|
|
|
|
ETHIOPIA => 'ET', |
117
|
|
|
|
|
|
|
FALKLAND_ISLANDS => 'FK', |
118
|
|
|
|
|
|
|
FAROE_ISLANDS => 'FO', |
119
|
|
|
|
|
|
|
FIJI => 'FJ', |
120
|
|
|
|
|
|
|
FINLAND => 'FI', |
121
|
|
|
|
|
|
|
FRANCE => 'FR', |
122
|
|
|
|
|
|
|
FRENCH_GUIANA => 'GF', |
123
|
|
|
|
|
|
|
FRENCH_POLYNESIA => 'PF', |
124
|
|
|
|
|
|
|
FRENCH_SOUTHERN_TERRITORIES => 'TF', |
125
|
|
|
|
|
|
|
GABON => 'GA', |
126
|
|
|
|
|
|
|
GAMBIA => 'GM', |
127
|
|
|
|
|
|
|
GEORGIA => 'GE', |
128
|
|
|
|
|
|
|
GERMANY => 'DE', |
129
|
|
|
|
|
|
|
GHANA => 'GH', |
130
|
|
|
|
|
|
|
GIBRALTAR => 'GI', |
131
|
|
|
|
|
|
|
GREECE => 'GR', |
132
|
|
|
|
|
|
|
GREENLAND => 'GL', |
133
|
|
|
|
|
|
|
GRENADA => 'GD', |
134
|
|
|
|
|
|
|
GUADELOUPE => 'GP', |
135
|
|
|
|
|
|
|
GUAM => 'GU', |
136
|
|
|
|
|
|
|
GUATEMALA => 'GT', |
137
|
|
|
|
|
|
|
GUERNSEY => 'GG', |
138
|
|
|
|
|
|
|
GUINEA => 'GN', |
139
|
|
|
|
|
|
|
GUINEA_BISSAU => 'GW', |
140
|
|
|
|
|
|
|
GUYANA => 'GY', |
141
|
|
|
|
|
|
|
HAITI => 'HT', |
142
|
|
|
|
|
|
|
HEARD_MCDONALD_ISLANDS => 'HM', |
143
|
|
|
|
|
|
|
HONDURAS => 'HN', |
144
|
|
|
|
|
|
|
HONG_KONG => 'HK', |
145
|
|
|
|
|
|
|
HUNGARY => 'HU', |
146
|
|
|
|
|
|
|
ICELAND => 'IS', |
147
|
|
|
|
|
|
|
INDIA => 'IN', |
148
|
|
|
|
|
|
|
INDONESIA => 'ID', |
149
|
|
|
|
|
|
|
IRAN => 'IR', |
150
|
|
|
|
|
|
|
IRAQ => 'IQ', |
151
|
|
|
|
|
|
|
IRELAND => 'IE', |
152
|
|
|
|
|
|
|
ISLE_OF_MAN => 'IM', |
153
|
|
|
|
|
|
|
ISRAEL => 'IL', |
154
|
|
|
|
|
|
|
ITALY => 'IT', |
155
|
|
|
|
|
|
|
IVORY_COAST => 'CI', |
156
|
|
|
|
|
|
|
JAMAICA => 'JM', |
157
|
|
|
|
|
|
|
JAPAN => 'JP', |
158
|
|
|
|
|
|
|
JERSEY => 'JE', |
159
|
|
|
|
|
|
|
JORDAN => 'JO', |
160
|
|
|
|
|
|
|
KAZAKHSTAN => 'KZ', |
161
|
|
|
|
|
|
|
KENYA => 'KE', |
162
|
|
|
|
|
|
|
KIRIBATI => 'KI', |
163
|
|
|
|
|
|
|
KUWAIT => 'KW', |
164
|
|
|
|
|
|
|
KYRGYZSTAN => 'KG', |
165
|
|
|
|
|
|
|
LAOS => 'LA', |
166
|
|
|
|
|
|
|
LATVIA => 'LV', |
167
|
|
|
|
|
|
|
LEBANON => 'LB', |
168
|
|
|
|
|
|
|
LESOTHO => 'LS', |
169
|
|
|
|
|
|
|
LIBERIA => 'LR', |
170
|
|
|
|
|
|
|
LIBYA => 'LY', |
171
|
|
|
|
|
|
|
LIECHTENSTEIN => 'LI', |
172
|
|
|
|
|
|
|
LITHUANIA => 'LT', |
173
|
|
|
|
|
|
|
LUXEMBOURG => 'LU', |
174
|
|
|
|
|
|
|
MACAU => 'MO', |
175
|
|
|
|
|
|
|
MACEDONIA => 'MK', |
176
|
|
|
|
|
|
|
MADAGASCAR => 'MG', |
177
|
|
|
|
|
|
|
MALAWI => 'MW', |
178
|
|
|
|
|
|
|
MALAYSIA => 'MY', |
179
|
|
|
|
|
|
|
MALDIVES => 'MV', |
180
|
|
|
|
|
|
|
MALI => 'ML', |
181
|
|
|
|
|
|
|
MALTA => 'MT', |
182
|
|
|
|
|
|
|
MARSHALL_ISLANDS => 'MH', |
183
|
|
|
|
|
|
|
MARTINIQUE => 'MQ', |
184
|
|
|
|
|
|
|
MAURITANIA => 'MR', |
185
|
|
|
|
|
|
|
MAURITIUS => 'MU', |
186
|
|
|
|
|
|
|
MAYOTTE => 'YT', |
187
|
|
|
|
|
|
|
MEXICO => 'MX', |
188
|
|
|
|
|
|
|
MICRONESIA => 'FM', |
189
|
|
|
|
|
|
|
MOLDOVA => 'MD', |
190
|
|
|
|
|
|
|
MONACO => 'MC', |
191
|
|
|
|
|
|
|
MONGOLIA => 'MN', |
192
|
|
|
|
|
|
|
MONTENEGRO => 'ME', |
193
|
|
|
|
|
|
|
MONTSERRAT => 'MS', |
194
|
|
|
|
|
|
|
MOROCCO => 'MA', |
195
|
|
|
|
|
|
|
MOZAMBIQUE => 'MZ', |
196
|
|
|
|
|
|
|
MYANMAR => 'MM', |
197
|
|
|
|
|
|
|
NAMIBIA => 'NA', |
198
|
|
|
|
|
|
|
NAURU => 'NR', |
199
|
|
|
|
|
|
|
NEPAL => 'NP', |
200
|
|
|
|
|
|
|
NETHERLANDS => 'NL', |
201
|
|
|
|
|
|
|
NEW_CALEDONIA => 'NC', |
202
|
|
|
|
|
|
|
NEW_ZEALAND => 'NZ', |
203
|
|
|
|
|
|
|
NICARAGUA => 'NI', |
204
|
|
|
|
|
|
|
NIGER => 'NE', |
205
|
|
|
|
|
|
|
NIGERIA => 'NG', |
206
|
|
|
|
|
|
|
NIUE => 'NU', |
207
|
|
|
|
|
|
|
NORFOLK_ISLAND => 'NF', |
208
|
|
|
|
|
|
|
NORTHERN_MARIANA_ISLANDS => 'MP', |
209
|
|
|
|
|
|
|
NORTH_KOREA => 'KP', |
210
|
|
|
|
|
|
|
NORWAY => 'NO', |
211
|
|
|
|
|
|
|
OMAN => 'OM', |
212
|
|
|
|
|
|
|
PAKISTAN => 'PK', |
213
|
|
|
|
|
|
|
PALAU => 'PW', |
214
|
|
|
|
|
|
|
PALESTINE => 'PS', |
215
|
|
|
|
|
|
|
PANAMA => 'PA', |
216
|
|
|
|
|
|
|
PAPUA_NEW_GUINEA => 'PG', |
217
|
|
|
|
|
|
|
PARAGUAY => 'PY', |
218
|
|
|
|
|
|
|
PERU => 'PE', |
219
|
|
|
|
|
|
|
PHILIPPINES => 'PH', |
220
|
|
|
|
|
|
|
PITCAIRN_ISLANDS => 'PN', |
221
|
|
|
|
|
|
|
POLAND => 'PL', |
222
|
|
|
|
|
|
|
PORTUGAL => 'PT', |
223
|
|
|
|
|
|
|
PUERTO_RICO => 'PR', |
224
|
|
|
|
|
|
|
QATAR => 'QA', |
225
|
|
|
|
|
|
|
REUNION => 'RE', |
226
|
|
|
|
|
|
|
ROMANIA => 'RO', |
227
|
|
|
|
|
|
|
RUSSIA => 'RU', |
228
|
|
|
|
|
|
|
RWANDA => 'RW', |
229
|
|
|
|
|
|
|
SAMOA => 'WS', |
230
|
|
|
|
|
|
|
SAN_MARINO => 'SM', |
231
|
|
|
|
|
|
|
SAO_TOME_PRINCIPE => 'ST', |
232
|
|
|
|
|
|
|
SAUDI_ARABIA => 'SA', |
233
|
|
|
|
|
|
|
SENEGAL => 'SN', |
234
|
|
|
|
|
|
|
SERBIA => 'RS', |
235
|
|
|
|
|
|
|
SEYCHELLES => 'SC', |
236
|
|
|
|
|
|
|
SIERRA_LEONE => 'SL', |
237
|
|
|
|
|
|
|
SINGAPORE => 'SG', |
238
|
|
|
|
|
|
|
SINT_MAARTEN => 'SX', |
239
|
|
|
|
|
|
|
SLOVAKIA => 'SK', |
240
|
|
|
|
|
|
|
SLOVENIA => 'SI', |
241
|
|
|
|
|
|
|
SOLOMON_ISLANDS => 'SB', |
242
|
|
|
|
|
|
|
SOMALIA => 'SO', |
243
|
|
|
|
|
|
|
SOUTH_AFRICA => 'ZA', |
244
|
|
|
|
|
|
|
SOUTH_GEORGIA_SOUTH_SANDWICH_ISLANDS => 'GS', |
245
|
|
|
|
|
|
|
SOUTH_KOREA => 'KR', |
246
|
|
|
|
|
|
|
SOUTH_SUDAN => 'SS', |
247
|
|
|
|
|
|
|
SPAIN => 'ES', |
248
|
|
|
|
|
|
|
SRI_LANKA => 'LK', |
249
|
|
|
|
|
|
|
ST_BARTHELEMY => 'BL', |
250
|
|
|
|
|
|
|
ST_HELENA => 'SH', |
251
|
|
|
|
|
|
|
ST_KITTS_NEVIS => 'KN', |
252
|
|
|
|
|
|
|
ST_LUCIA => 'LC', |
253
|
|
|
|
|
|
|
ST_MARTIN => 'MF', |
254
|
|
|
|
|
|
|
ST_PIERRE_MIQUELON => 'PM', |
255
|
|
|
|
|
|
|
ST_VINCENT_GRENADINES => 'VC', |
256
|
|
|
|
|
|
|
SUDAN => 'SD', |
257
|
|
|
|
|
|
|
SURINAME => 'SR', |
258
|
|
|
|
|
|
|
SVALBARD_JAN_MAYEN => 'SJ', |
259
|
|
|
|
|
|
|
SWAZILAND => 'SZ', |
260
|
|
|
|
|
|
|
SWEDEN => 'SE', |
261
|
|
|
|
|
|
|
SWITZERLAND => 'CH', |
262
|
|
|
|
|
|
|
SYRIA => 'SY', |
263
|
|
|
|
|
|
|
TAIWAN => 'TW', |
264
|
|
|
|
|
|
|
TAJIKISTAN => 'TJ', |
265
|
|
|
|
|
|
|
TANZANIA => 'TZ', |
266
|
|
|
|
|
|
|
THAILAND => 'TH', |
267
|
|
|
|
|
|
|
TOGO => 'TG', |
268
|
|
|
|
|
|
|
TOKELAU => 'TK', |
269
|
|
|
|
|
|
|
TONGA => 'TO', |
270
|
|
|
|
|
|
|
TRINIDAD_TOBAGO => 'TT', |
271
|
|
|
|
|
|
|
TUNISIA => 'TN', |
272
|
|
|
|
|
|
|
TURKEY => 'TR', |
273
|
|
|
|
|
|
|
TURKMENISTAN => 'TM', |
274
|
|
|
|
|
|
|
TURKS_CAICOS_ISLANDS => 'TC', |
275
|
|
|
|
|
|
|
TUVALU => 'TV', |
276
|
|
|
|
|
|
|
UGANDA => 'UG', |
277
|
|
|
|
|
|
|
UKRAINE => 'UA', |
278
|
|
|
|
|
|
|
UNITED_ARAB_EMIRATES => 'AE', |
279
|
|
|
|
|
|
|
UNITED_KINGDOM => 'GB', |
280
|
|
|
|
|
|
|
UNITED_STATES => 'US', |
281
|
|
|
|
|
|
|
URUGUAY => 'UY', |
282
|
|
|
|
|
|
|
US_OUTLYING_ISLANDS => 'UM', |
283
|
|
|
|
|
|
|
US_VIRGIN_ISLANDS => 'VI', |
284
|
|
|
|
|
|
|
UZBEKISTAN => 'UZ', |
285
|
|
|
|
|
|
|
VANUATU => 'VU', |
286
|
|
|
|
|
|
|
VATICAN_CITY => 'VA', |
287
|
|
|
|
|
|
|
VENEZUELA => 'VE', |
288
|
|
|
|
|
|
|
VIETNAM => 'VN', |
289
|
|
|
|
|
|
|
WALLIS_FUTUNA => 'WF', |
290
|
|
|
|
|
|
|
WESTERN_SAHARA => 'EH', |
291
|
|
|
|
|
|
|
YEMEN => 'YE', |
292
|
|
|
|
|
|
|
ZAMBIA => 'ZM', |
293
|
|
|
|
|
|
|
ZIMBABWE => 'ZW', |
294
|
2
|
|
|
2
|
|
1118
|
}; |
|
2
|
|
|
|
|
3
|
|
295
|
|
|
|
|
|
|
|
296
|
|
|
|
|
|
|
our $VERSION = '0.06'; |
297
|
|
|
|
|
|
|
|
298
|
|
|
|
|
|
|
my @region = qw( |
299
|
|
|
|
|
|
|
AFRICA |
300
|
|
|
|
|
|
|
AMERICAS |
301
|
|
|
|
|
|
|
ASIA |
302
|
|
|
|
|
|
|
AUSTRALASIA |
303
|
|
|
|
|
|
|
CARIBBEAN |
304
|
|
|
|
|
|
|
CENTRAL_AMERICA |
305
|
|
|
|
|
|
|
CENTRAL_ASIA |
306
|
|
|
|
|
|
|
EASTERN_AFRICA |
307
|
|
|
|
|
|
|
EASTERN_ASIA |
308
|
|
|
|
|
|
|
EASTERN_EUROPE |
309
|
|
|
|
|
|
|
EUROPE |
310
|
|
|
|
|
|
|
EUROPEAN_UNION |
311
|
|
|
|
|
|
|
LATIN_AMERICA |
312
|
|
|
|
|
|
|
MELANESIA |
313
|
|
|
|
|
|
|
MICRONESIAN_REGION |
314
|
|
|
|
|
|
|
MIDDLE_AFRICA |
315
|
|
|
|
|
|
|
NORTH_AMERICA |
316
|
|
|
|
|
|
|
NORTHERN_AFRICA |
317
|
|
|
|
|
|
|
NORTHERN_AMERICA |
318
|
|
|
|
|
|
|
NORTHERN_EUROPE |
319
|
|
|
|
|
|
|
OCEANIA |
320
|
|
|
|
|
|
|
OUTLYING_OCEANIA |
321
|
|
|
|
|
|
|
POLYNESIA |
322
|
|
|
|
|
|
|
SOUTH_AMERICA |
323
|
|
|
|
|
|
|
SOUTHEAST_ASIA |
324
|
|
|
|
|
|
|
SOUTHERN_AFRICA |
325
|
|
|
|
|
|
|
SOUTHERN_ASIA |
326
|
|
|
|
|
|
|
SOUTHERN_EUROPE |
327
|
|
|
|
|
|
|
WESTERN_AFRICA |
328
|
|
|
|
|
|
|
WESTERN_ASIA |
329
|
|
|
|
|
|
|
WESTERN_EUROPE |
330
|
|
|
|
|
|
|
WORLD |
331
|
|
|
|
|
|
|
); |
332
|
|
|
|
|
|
|
|
333
|
|
|
|
|
|
|
my @country = qw( |
334
|
|
|
|
|
|
|
AFGHANISTAN |
335
|
|
|
|
|
|
|
ALAND_ISLANDS |
336
|
|
|
|
|
|
|
ALBANIA |
337
|
|
|
|
|
|
|
ALGERIA |
338
|
|
|
|
|
|
|
AMERICAN_SAMOA |
339
|
|
|
|
|
|
|
ANDORRA |
340
|
|
|
|
|
|
|
ANGOLA |
341
|
|
|
|
|
|
|
ANGUILLA |
342
|
|
|
|
|
|
|
ANTARCTICA |
343
|
|
|
|
|
|
|
ANTIGUA_BARBUDA |
344
|
|
|
|
|
|
|
ARGENTINA |
345
|
|
|
|
|
|
|
ARMENIA |
346
|
|
|
|
|
|
|
ARUBA |
347
|
|
|
|
|
|
|
AUSTRALIA |
348
|
|
|
|
|
|
|
AUSTRIA |
349
|
|
|
|
|
|
|
AZERBAIJAN |
350
|
|
|
|
|
|
|
BAHAMAS |
351
|
|
|
|
|
|
|
BAHRAIN |
352
|
|
|
|
|
|
|
BANGLADESH |
353
|
|
|
|
|
|
|
BARBADOS |
354
|
|
|
|
|
|
|
BELARUS |
355
|
|
|
|
|
|
|
BELGIUM |
356
|
|
|
|
|
|
|
BELIZE |
357
|
|
|
|
|
|
|
BENIN |
358
|
|
|
|
|
|
|
BERMUDA |
359
|
|
|
|
|
|
|
BHUTAN |
360
|
|
|
|
|
|
|
BOLIVIA |
361
|
|
|
|
|
|
|
BOSNIA |
362
|
|
|
|
|
|
|
BOTSWANA |
363
|
|
|
|
|
|
|
BOUVET_ISLAND |
364
|
|
|
|
|
|
|
BRAZIL |
365
|
|
|
|
|
|
|
BRITISH_INDIAN_OCEAN_TERRITORY |
366
|
|
|
|
|
|
|
BRITISH_VIRGIN_ISLANDS |
367
|
|
|
|
|
|
|
BRUNEI |
368
|
|
|
|
|
|
|
BULGARIA |
369
|
|
|
|
|
|
|
BURKINA_FASO |
370
|
|
|
|
|
|
|
BURUNDI |
371
|
|
|
|
|
|
|
CAMBODIA |
372
|
|
|
|
|
|
|
CAMEROON |
373
|
|
|
|
|
|
|
CANADA |
374
|
|
|
|
|
|
|
CAPE_VERDE |
375
|
|
|
|
|
|
|
CARIBBEAN_NETHERLANDS |
376
|
|
|
|
|
|
|
CAYMAN_ISLANDS |
377
|
|
|
|
|
|
|
CENTRAL_AFRICAN_REPUBLIC |
378
|
|
|
|
|
|
|
CHAD |
379
|
|
|
|
|
|
|
CHILE |
380
|
|
|
|
|
|
|
CHINA |
381
|
|
|
|
|
|
|
CHRISTMAS_ISLAND |
382
|
|
|
|
|
|
|
COCOS_ISLANDS |
383
|
|
|
|
|
|
|
COLOMBIA |
384
|
|
|
|
|
|
|
COMOROS |
385
|
|
|
|
|
|
|
CONGO_DRC |
386
|
|
|
|
|
|
|
CONGO_REPUBLIC |
387
|
|
|
|
|
|
|
COOK_ISLANDS |
388
|
|
|
|
|
|
|
COSTA_RICA |
389
|
|
|
|
|
|
|
CROATIA |
390
|
|
|
|
|
|
|
CUBA |
391
|
|
|
|
|
|
|
CURACAO |
392
|
|
|
|
|
|
|
CYPRUS |
393
|
|
|
|
|
|
|
CZECH_REPUBLIC |
394
|
|
|
|
|
|
|
DENMARK |
395
|
|
|
|
|
|
|
DJIBOUTI |
396
|
|
|
|
|
|
|
DOMINICA |
397
|
|
|
|
|
|
|
DOMINICAN_REPUBLIC |
398
|
|
|
|
|
|
|
EAST_TIMOR |
399
|
|
|
|
|
|
|
ECUADOR |
400
|
|
|
|
|
|
|
EGYPT |
401
|
|
|
|
|
|
|
EL_SALVADOR |
402
|
|
|
|
|
|
|
EQUATORIAL_GUINEA |
403
|
|
|
|
|
|
|
ERITREA |
404
|
|
|
|
|
|
|
ESTONIA |
405
|
|
|
|
|
|
|
ETHIOPIA |
406
|
|
|
|
|
|
|
FALKLAND_ISLANDS |
407
|
|
|
|
|
|
|
FAROE_ISLANDS |
408
|
|
|
|
|
|
|
FIJI |
409
|
|
|
|
|
|
|
FINLAND |
410
|
|
|
|
|
|
|
FRANCE |
411
|
|
|
|
|
|
|
FRENCH_GUIANA |
412
|
|
|
|
|
|
|
FRENCH_POLYNESIA |
413
|
|
|
|
|
|
|
FRENCH_SOUTHERN_TERRITORIES |
414
|
|
|
|
|
|
|
GABON |
415
|
|
|
|
|
|
|
GAMBIA |
416
|
|
|
|
|
|
|
GEORGIA |
417
|
|
|
|
|
|
|
GERMANY |
418
|
|
|
|
|
|
|
GHANA |
419
|
|
|
|
|
|
|
GIBRALTAR |
420
|
|
|
|
|
|
|
GREECE |
421
|
|
|
|
|
|
|
GREENLAND |
422
|
|
|
|
|
|
|
GRENADA |
423
|
|
|
|
|
|
|
GUADELOUPE |
424
|
|
|
|
|
|
|
GUAM |
425
|
|
|
|
|
|
|
GUATEMALA |
426
|
|
|
|
|
|
|
GUERNSEY |
427
|
|
|
|
|
|
|
GUINEA |
428
|
|
|
|
|
|
|
GUINEA_BISSAU |
429
|
|
|
|
|
|
|
GUYANA |
430
|
|
|
|
|
|
|
HAITI |
431
|
|
|
|
|
|
|
HEARD_MCDONALD_ISLANDS |
432
|
|
|
|
|
|
|
HONDURAS |
433
|
|
|
|
|
|
|
HONG_KONG |
434
|
|
|
|
|
|
|
HUNGARY |
435
|
|
|
|
|
|
|
ICELAND |
436
|
|
|
|
|
|
|
INDIA |
437
|
|
|
|
|
|
|
INDONESIA |
438
|
|
|
|
|
|
|
IRAN |
439
|
|
|
|
|
|
|
IRAQ |
440
|
|
|
|
|
|
|
IRELAND |
441
|
|
|
|
|
|
|
ISLE_OF_MAN |
442
|
|
|
|
|
|
|
ISRAEL |
443
|
|
|
|
|
|
|
ITALY |
444
|
|
|
|
|
|
|
IVORY_COAST |
445
|
|
|
|
|
|
|
JAMAICA |
446
|
|
|
|
|
|
|
JAPAN |
447
|
|
|
|
|
|
|
JERSEY |
448
|
|
|
|
|
|
|
JORDAN |
449
|
|
|
|
|
|
|
KAZAKHSTAN |
450
|
|
|
|
|
|
|
KENYA |
451
|
|
|
|
|
|
|
KIRIBATI |
452
|
|
|
|
|
|
|
KUWAIT |
453
|
|
|
|
|
|
|
KYRGYZSTAN |
454
|
|
|
|
|
|
|
LAOS |
455
|
|
|
|
|
|
|
LATVIA |
456
|
|
|
|
|
|
|
LEBANON |
457
|
|
|
|
|
|
|
LESOTHO |
458
|
|
|
|
|
|
|
LIBERIA |
459
|
|
|
|
|
|
|
LIBYA |
460
|
|
|
|
|
|
|
LIECHTENSTEIN |
461
|
|
|
|
|
|
|
LITHUANIA |
462
|
|
|
|
|
|
|
LUXEMBOURG |
463
|
|
|
|
|
|
|
MACAU |
464
|
|
|
|
|
|
|
MACEDONIA |
465
|
|
|
|
|
|
|
MADAGASCAR |
466
|
|
|
|
|
|
|
MALAWI |
467
|
|
|
|
|
|
|
MALAYSIA |
468
|
|
|
|
|
|
|
MALDIVES |
469
|
|
|
|
|
|
|
MALI |
470
|
|
|
|
|
|
|
MALTA |
471
|
|
|
|
|
|
|
MARSHALL_ISLANDS |
472
|
|
|
|
|
|
|
MARTINIQUE |
473
|
|
|
|
|
|
|
MAURITANIA |
474
|
|
|
|
|
|
|
MAURITIUS |
475
|
|
|
|
|
|
|
MAYOTTE |
476
|
|
|
|
|
|
|
MEXICO |
477
|
|
|
|
|
|
|
MICRONESIA |
478
|
|
|
|
|
|
|
MOLDOVA |
479
|
|
|
|
|
|
|
MONACO |
480
|
|
|
|
|
|
|
MONGOLIA |
481
|
|
|
|
|
|
|
MONTENEGRO |
482
|
|
|
|
|
|
|
MONTSERRAT |
483
|
|
|
|
|
|
|
MOROCCO |
484
|
|
|
|
|
|
|
MOZAMBIQUE |
485
|
|
|
|
|
|
|
MYANMAR |
486
|
|
|
|
|
|
|
NAMIBIA |
487
|
|
|
|
|
|
|
NAURU |
488
|
|
|
|
|
|
|
NEPAL |
489
|
|
|
|
|
|
|
NETHERLANDS |
490
|
|
|
|
|
|
|
NEW_CALEDONIA |
491
|
|
|
|
|
|
|
NEW_ZEALAND |
492
|
|
|
|
|
|
|
NICARAGUA |
493
|
|
|
|
|
|
|
NIGER |
494
|
|
|
|
|
|
|
NIGERIA |
495
|
|
|
|
|
|
|
NIUE |
496
|
|
|
|
|
|
|
NORFOLK_ISLAND |
497
|
|
|
|
|
|
|
NORTHERN_MARIANA_ISLANDS |
498
|
|
|
|
|
|
|
NORTH_KOREA |
499
|
|
|
|
|
|
|
NORWAY |
500
|
|
|
|
|
|
|
OMAN |
501
|
|
|
|
|
|
|
PAKISTAN |
502
|
|
|
|
|
|
|
PALAU |
503
|
|
|
|
|
|
|
PALESTINE |
504
|
|
|
|
|
|
|
PANAMA |
505
|
|
|
|
|
|
|
PAPUA_NEW_GUINEA |
506
|
|
|
|
|
|
|
PARAGUAY |
507
|
|
|
|
|
|
|
PERU |
508
|
|
|
|
|
|
|
PHILIPPINES |
509
|
|
|
|
|
|
|
PITCAIRN_ISLANDS |
510
|
|
|
|
|
|
|
POLAND |
511
|
|
|
|
|
|
|
PORTUGAL |
512
|
|
|
|
|
|
|
PUERTO_RICO |
513
|
|
|
|
|
|
|
QATAR |
514
|
|
|
|
|
|
|
REUNION |
515
|
|
|
|
|
|
|
ROMANIA |
516
|
|
|
|
|
|
|
RUSSIA |
517
|
|
|
|
|
|
|
RWANDA |
518
|
|
|
|
|
|
|
SAMOA |
519
|
|
|
|
|
|
|
SAN_MARINO |
520
|
|
|
|
|
|
|
SAO_TOME_PRINCIPE |
521
|
|
|
|
|
|
|
SAUDI_ARABIA |
522
|
|
|
|
|
|
|
SENEGAL |
523
|
|
|
|
|
|
|
SERBIA |
524
|
|
|
|
|
|
|
SEYCHELLES |
525
|
|
|
|
|
|
|
SIERRA_LEONE |
526
|
|
|
|
|
|
|
SINGAPORE |
527
|
|
|
|
|
|
|
SINT_MAARTEN |
528
|
|
|
|
|
|
|
SLOVAKIA |
529
|
|
|
|
|
|
|
SLOVENIA |
530
|
|
|
|
|
|
|
SOLOMON_ISLANDS |
531
|
|
|
|
|
|
|
SOMALIA |
532
|
|
|
|
|
|
|
SOUTH_AFRICA |
533
|
|
|
|
|
|
|
SOUTH_GEORGIA_SOUTH_SANDWICH_ISLANDS |
534
|
|
|
|
|
|
|
SOUTH_KOREA |
535
|
|
|
|
|
|
|
SOUTH_SUDAN |
536
|
|
|
|
|
|
|
SPAIN |
537
|
|
|
|
|
|
|
SRI_LANKA |
538
|
|
|
|
|
|
|
ST_BARTHELEMY |
539
|
|
|
|
|
|
|
ST_HELENA |
540
|
|
|
|
|
|
|
ST_KITTS_NEVIS |
541
|
|
|
|
|
|
|
ST_LUCIA |
542
|
|
|
|
|
|
|
ST_MARTIN |
543
|
|
|
|
|
|
|
ST_PIERRE_MIQUELON |
544
|
|
|
|
|
|
|
ST_VINCENT_GRENADINES |
545
|
|
|
|
|
|
|
SUDAN |
546
|
|
|
|
|
|
|
SURINAME |
547
|
|
|
|
|
|
|
SVALBARD_JAN_MAYEN |
548
|
|
|
|
|
|
|
SWAZILAND |
549
|
|
|
|
|
|
|
SWEDEN |
550
|
|
|
|
|
|
|
SWITZERLAND |
551
|
|
|
|
|
|
|
SYRIA |
552
|
|
|
|
|
|
|
TAIWAN |
553
|
|
|
|
|
|
|
TAJIKISTAN |
554
|
|
|
|
|
|
|
TANZANIA |
555
|
|
|
|
|
|
|
THAILAND |
556
|
|
|
|
|
|
|
TOGO |
557
|
|
|
|
|
|
|
TOKELAU |
558
|
|
|
|
|
|
|
TONGA |
559
|
|
|
|
|
|
|
TRINIDAD_TOBAGO |
560
|
|
|
|
|
|
|
TUNISIA |
561
|
|
|
|
|
|
|
TURKEY |
562
|
|
|
|
|
|
|
TURKMENISTAN |
563
|
|
|
|
|
|
|
TURKS_CAICOS_ISLANDS |
564
|
|
|
|
|
|
|
TUVALU |
565
|
|
|
|
|
|
|
UGANDA |
566
|
|
|
|
|
|
|
UKRAINE |
567
|
|
|
|
|
|
|
UNITED_ARAB_EMIRATES |
568
|
|
|
|
|
|
|
UNITED_KINGDOM |
569
|
|
|
|
|
|
|
UNITED_STATES |
570
|
|
|
|
|
|
|
URUGUAY |
571
|
|
|
|
|
|
|
US_OUTLYING_ISLANDS |
572
|
|
|
|
|
|
|
US_VIRGIN_ISLANDS |
573
|
|
|
|
|
|
|
UZBEKISTAN |
574
|
|
|
|
|
|
|
VANUATU |
575
|
|
|
|
|
|
|
VATICAN_CITY |
576
|
|
|
|
|
|
|
VENEZUELA |
577
|
|
|
|
|
|
|
VIETNAM |
578
|
|
|
|
|
|
|
WALLIS_FUTUNA |
579
|
|
|
|
|
|
|
WESTERN_SAHARA |
580
|
|
|
|
|
|
|
YEMEN |
581
|
|
|
|
|
|
|
ZAMBIA |
582
|
|
|
|
|
|
|
ZIMBABWE |
583
|
|
|
|
|
|
|
); |
584
|
|
|
|
|
|
|
|
585
|
|
|
|
|
|
|
our @EXPORT_OK = (@region, @country); |
586
|
|
|
|
|
|
|
|
587
|
|
|
|
|
|
|
our %EXPORT_TAGS = ( |
588
|
|
|
|
|
|
|
all => \@EXPORT_OK, |
589
|
|
|
|
|
|
|
region => \@region, |
590
|
|
|
|
|
|
|
country => \@country, |
591
|
|
|
|
|
|
|
); |
592
|
|
|
|
|
|
|
|
593
|
|
|
|
|
|
|
1; |
594
|
|
|
|
|
|
|
|
595
|
|
|
|
|
|
|
__END__ |