File Coverage

blib/lib/Geo/Region/Constant.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	24	24	100.0

line	stmt	sub	time	code
1				package Geo::Region::Constant;
2
3	2	2	64209	use v5.8.1;
	2		5
	2		59
4	2	2	7	use utf8;
	2		2
	2		17
5	2	2	37	use strict;
	2		2
	2		45
6	2	2	4	use warnings;
	2		3
	2		47
7	2	2	743	use parent 'Exporter';
	2		419
	2		7
8
9				use constant {
10				# region
11	2		2976	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	853	};
	2		2
295
296				our $VERSION = '0.07';
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__