File Coverage

blib/lib/Net/MRIM/Data.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             #
2             # $Date: 2008-01-05 12:12:42 $
3             #
4             # Copyright (c) 2007-2008 Alexandre Aufrere
5             # Licensed under the terms of the GPL (see perldoc MRIM.pm)
6             #
7              
8 1     1   6249 use 5.008;
  1         4  
  1         32  
9 1     1   5 use strict;
  1         1  
  1         48  
10              
11             package Net::MRIM::Data;
12              
13             =pod
14              
15             =head1 NAME
16              
17             Net::MRIM::Data - Optional data for MRIM Protocol
18              
19             =head1 DESCRIPTION
20              
21             Contains country codes from http://agent.mail.ru/region.txt
22              
23             =head1 AUTHOR
24              
25             Alexandre Aufrere
26              
27             =head1 COPYRIGHT
28              
29             Copyright (c) 2007-2008 Alexandre Aufrere. This code may be used under the terms of the GPL version 2 (see at http://www.gnu.org/licenses/old-licenses/gpl-2.0.html). The protocol remains the property of Mail.Ru (see at http://www.mail.ru).
30              
31             =cut
32              
33 1     1   872 use utf8;
  1         9  
  1         4  
34              
35             our %COUNTRIES= (
36             'Россия'=>'24',
37             'Россия,Дальневосточный ФО'=>'24',
38             'Азия,Азербайджан'=>'81',
39             'Азия,Армения'=>'82',
40             'Азия,Афганистан'=>'97',
41             'Азия,Бангладеш'=>'96',
42             'Азия,Бахрейн'=>'99',
43             'Азия,Бруней-Даруссалам'=>'100',
44             'Азия,Бутан'=>'101',
45             'Азия,Вьетнам'=>'102',
46             'Азия,Грузия'=>'83',
47             'Азия,Израиль'=>'86',
48             'Азия,Индия'=>'95',
49             'Азия,Индонезия'=>'103',
50             'Азия,Иордания'=>'79',
51             'Азия,Ирак'=>'85',
52             'Азия,Иран'=>'87',
53             'Азия,Йемен'=>'104',
54             'Азия,Казахстан'=>'84',
55             'Азия,Камбоджа'=>'105',
56             'Азия,Катар'=>'106',
57             'Азия,Кипр'=>'107',
58             'Азия,Киргизия (Кыргызстан)'=>'92',
59             'Азия,Китай'=>'76',
60             'Азия,Кокосовые острова (Австр.)'=>'3215',
61             'Азия,Корея (КНДР)'=>'29',
62             'Азия,Корея, Республика'=>'108',
63             'Азия,Кувейт'=>'88',
64             'Азия,Лаос'=>'109',
65             'Азия,Ливан'=>'110',
66             'Азия,Малайзия'=>'111',
67             'Азия,Мальдивы'=>'112',
68             'Азия,Монголия'=>'113',
69             'Азия,Мьянма'=>'114',
70             'Азия,Непал'=>'115',
71             'Азия,Объединенные Арабские Эмираты'=>'116',
72             'Азия,Оман'=>'117',
73             'Азия,Остров Рождества (Австр.)'=>'3216',
74             'Азия,Пакистан'=>'122',
75             'Азия,Палестина'=>'89',
76             'Азия,Саудовская Аравия'=>'94',
77             'Азия,Сингапур'=>'118',
78             'Азия,Сирия'=>'78',
79             'Азия,Таджикистан'=>'91',
80             'Азия,Таиланд'=>'119',
81             'Азия,Тайвань'=>'120',
82             'Азия,Тимор'=>'132',
83             'Азия,Туркмения'=>'90',
84             'Азия,Турция'=>'77',
85             'Азия,Узбекистан'=>'93',
86             'Азия,Филиппины'=>'121',
87             'Азия,Шри Ланка'=>'98',
88             'Азия,Япония'=>'75',
89             'Австралия и Океания,Австралия'=>'123',
90             'Австралия и Океания,Американское Самоа'=>'454',
91             'Австралия и Океания,Вануату'=>'124',
92             'Австралия и Океания,Гуам (США)'=>'453',
93             'Австралия и Океания,Кирибати'=>'126',
94             'Австралия и Океания,Маршалловы Острова'=>'127',
95             'Австралия и Океания,Микронезия (Федеративные Штаты Микронезии)'=>'128',
96             'Австралия и Океания,Науру'=>'129',
97             'Австралия и Океания,Ниуэ (Н.Зел.)'=>'3220',
98             'Австралия и Океания,Новая Зеландия'=>'130',
99             'Австралия и Океания,Новая Каледония (Фр.)'=>'3218',
100             'Австралия и Океания,Острова Кука (Н.Зел.)'=>'3221',
101             'Австралия и Океания,Острова Херд и Макдональд (Австр.)'=>'3230',
102             'Австралия и Океания,Палау'=>'131',
103             'Австралия и Океания,Папуа - Новая Гвинея'=>'133',
104             'Австралия и Океания,Питкерн (Брит.)'=>'3222',
105             'Австралия и Океания,Самоа'=>'125',
106             'Австралия и Океания,Сев. Марианские острова (США)'=>'3219',
107             'Австралия и Океания,Соломоновы Острова'=>'134',
108             'Австралия и Океания,Токелау (Н.Зел.)'=>'3223',
109             'Австралия и Океания,Тонга'=>'135',
110             'Австралия и Океания,Тувалу'=>'136',
111             'Австралия и Океания,Уоллис и Футуна острова (Фр.)'=>'3224',
112             'Австралия и Океания,Фиджи'=>'137',
113             'Австралия и Океания,Французская Полинезия'=>'3226',
114             'Австралия и Океания,Французские Южные территории'=>'3225',
115             'Америка,Канада'=>'138',
116             'Америка,США'=>'139',
117             'Америка,Ангилья (Брит.)'=>'3200',
118             'Америка,Антигуа и Барбуда'=>'140',
119             'Америка,Аргентина'=>'141',
120             'Америка,Аруба (Нид.)'=>'3202',
121             'Америка,Багамы'=>'142',
122             'Америка,Барбадос'=>'143',
123             'Америка,Белиз'=>'146',
124             'Америка,Бермуды (Брит.)'=>'3203',
125             'Америка,Боливия'=>'144',
126             'Америка,Бразилия'=>'145',
127             'Америка,Венесуэла'=>'147',
128             'Америка,Виргинские острова (Брит.)'=>'3204',
129             'Америка,Виргинские острова (США)'=>'452',
130             'Америка,Гаити'=>'149',
131             'Америка,Гайана'=>'148',
132             'Америка,Гваделупа (Фр.)'=>'3205',
133             'Америка,Гватемала'=>'173',
134             'Америка,Гондурас'=>'150',
135             'Америка,Гренада'=>'151',
136             'Америка,Гренландия (Дат.)'=>'152',
137             'Америка,Доминика'=>'153',
138             'Америка,Доминиканская Республика'=>'154',
139             'Америка,Колумбия'=>'155',
140             'Америка,Коста-Рика'=>'156',
141             'Америка,Куба'=>'157',
142             'Америка,Мартиника (Фр.)'=>'3208',
143             'Америка,Мексика'=>'158',
144             'Америка,Монтсеррат (Брит)'=>'3209',
145             'Америка,Нидерландские Антилы'=>'3201',
146             'Америка,Никарагуа'=>'159',
147             'Америка,Остров Кайман (Брит.)'=>'3207',
148             'Америка,Острова Теркс и Кайкос (Брит.)'=>'3211',
149             'Америка,Панама'=>'160',
150             'Америка,Парагвай'=>'161',
151             'Америка,Перу'=>'162',
152             'Америка,Сальвадор'=>'163',
153             'Америка,Сент-Винсент и Гренадины'=>'164',
154             'Америка,Сент-Китс и Невис'=>'165',
155             'Америка,Сент-Люсия'=>'166',
156             'Америка,Сент-Пьер и Микелон (Фр.)'=>'3210',
157             'Америка,Суринам'=>'167',
158             'Америка,Тринидат и Тобаго'=>'168',
159             'Америка,Уругвай'=>'169',
160             'Америка,Фолклендские острова (Брит.)'=>'3212',
161             'Америка,Французская Гвиана'=>'3206',
162             'Америка,Чили'=>'170',
163             'Америка,Эквадор'=>'171',
164             'Америка,Юж. Джорджия и Юж. Сандвичевы о-ва (Брит.)'=>'3213',
165             'Америка,Ямайка'=>'172',
166             'Африка,Алжир'=>'174',
167             'Африка,Ангола'=>'175',
168             'Африка,Бенин'=>'176',
169             'Африка,Ботсвана'=>'177',
170             'Африка,Британская территория в Индийском океане'=>'3228',
171             'Африка,Буркина-Фасо'=>'178',
172             'Африка,Бурунди'=>'179',
173             'Африка,Габон'=>'180',
174             'Африка,Гамбия'=>'181',
175             'Африка,Гана'=>'182',
176             'Африка,Гвинея'=>'183',
177             'Африка,Гвинея-Бисау'=>'184',
178             'Африка,Джибути'=>'185',
179             'Африка,Египет'=>'186',
180             'Африка,Замбия'=>'187',
181             'Африка,Зап. Сахара'=>'3198',
182             'Африка,Зимбабве'=>'23',
183             'Африка,Кабо-Верде'=>'188',
184             'Африка,Камерун'=>'189',
185             'Африка,Кения'=>'190',
186             'Африка,Коморы'=>'191',
187             'Африка,Конго (Заир)'=>'193',
188             'Африка,Конго, Республика'=>'192',
189             'Африка,Кот-д`Ивуар'=>'194',
190             'Африка,Лесото'=>'195',
191             'Африка,Либерия'=>'196',
192             'Африка,Ливия'=>'197',
193             'Африка,Маврикий'=>'198',
194             'Африка,Мавритания'=>'199',
195             'Африка,Мадагаскар'=>'200',
196             'Африка,Майотт (Фр.)'=>'3229',
197             'Африка,Малави'=>'201',
198             'Африка,Мали'=>'202',
199             'Африка,Марокко'=>'203',
200             'Африка,Мозамбик'=>'204',
201             'Африка,Намибия'=>'205',
202             'Африка,Нигер'=>'206',
203             'Африка,Нигерия'=>'207',
204             'Африка,Остров Буве (Норв.)'=>'3227',
205             'Африка,Реюньон (Фр.)'=>'3197',
206             'Африка,Руанда'=>'208',
207             'Африка,Сан-Томе и Принсипи'=>'209',
208             'Африка,Свазиленд'=>'210',
209             'Африка,Святая Елена (Брит.)'=>'3199',
210             'Африка,Сейшелы'=>'211',
211             'Африка,Сенегал'=>'212',
212             'Африка,Сомали'=>'213',
213             'Африка,Судан'=>'214',
214             'Африка,Сьерра-Леоне'=>'215',
215             'Африка,Танзания'=>'216',
216             'Африка,Того'=>'217',
217             'Африка,Тунис'=>'218',
218             'Африка,Уганда'=>'219',
219             'Африка,Центральноафриканская Республика'=>'220',
220             'Африка,Чад'=>'222',
221             'Африка,Экваториальная Гвинея'=>'223',
222             'Африка,Эритрея'=>'221',
223             'Африка,Эфиопия'=>'224',
224             'Африка,Южно-Африканская Республика (ЮАР)'=>'225',
225             'Европа,Украина'=>'39',
226             'Европа,Австрия'=>'40',
227             'Европа,Албания'=>'32',
228             'Европа,Андорра'=>'33',
229             'Европа,Белоруссия'=>'340',
230             'Европа,Бельгия'=>'38',
231             'Европа,Болгария'=>'41',
232             'Европа,Босния и Герцеговина'=>'42',
233             'Европа,Ватикан'=>'43',
234             'Европа,Великобритания'=>'45',
235             'Европа,Венгрия'=>'44',
236             'Европа,Германия'=>'46',
237             'Европа,Гернси (Брит.)'=>'3193',
238             'Европа,Гибралтар (Брит.)'=>'47',
239             'Европа,Греция'=>'48',
240             'Европа,Дания'=>'49',
241             'Европа,Джерси (Брит.)'=>'3194',
242             'Европа,Ирландия'=>'50',
243             'Европа,Исландия'=>'51',
244             'Европа,Испания'=>'34',
245             'Европа,Италия'=>'52',
246             'Европа,Латвия'=>'53',
247             'Европа,Литва'=>'54',
248             'Европа,Лихтенштейн'=>'55',
249             'Европа,Люксембург'=>'56',
250             'Европа,Македония'=>'57',
251             'Европа,Мальта'=>'58',
252             'Европа,Молдавия'=>'59',
253             'Европа,Монако'=>'36',
254             'Европа,Нидерланды'=>'60',
255             'Европа,Норвегия'=>'61',
256             'Европа,Остров Мэн (Брит.)'=>'3195',
257             'Европа,Польша'=>'62',
258             'Европа,Португалия'=>'35',
259             'Европа,Румыния'=>'63',
260             'Европа,Сан-Марино'=>'64',
261             'Европа,Сербия и Черногория'=>'74',
262             'Европа,Словакия'=>'65',
263             'Европа,Словения'=>'66',
264             'Европа,Фарерские о-ва (Дания)'=>'67',
265             'Европа,Финляндия'=>'68',
266             'Европа,Франция'=>'37',
267             'Европа,Хорватия'=>'69',
268             'Европа,Чехия'=>'70',
269             'Европа,Швейцария'=>'71',
270             'Европа,Швеция'=>'72',
271             'Европа,Шпицберген (Норв.)'=>'3196',
272             'Европа,Эстония'=>'73'
273             );
274              
275             1;