line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Locale::Nationality::en; |
2
|
|
|
|
|
|
|
|
3
|
1
|
|
|
1
|
|
20900
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
32
|
|
4
|
1
|
|
|
1
|
|
4
|
use warnings; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
242
|
|
5
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
our $names; |
7
|
|
|
|
|
|
|
our $VERSION = '1.02'; |
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
# ----------------------------------------------- |
10
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
sub names |
12
|
|
|
|
|
|
|
{ |
13
|
1
|
|
|
1
|
0
|
2
|
my($self) = @_; |
14
|
|
|
|
|
|
|
|
15
|
1
|
|
|
|
|
3
|
return $names; |
16
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
} # End of names. |
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
# ----------------------------------------------- |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
sub new |
22
|
|
|
|
|
|
|
{ |
23
|
1
|
|
|
1
|
0
|
11
|
my($class) = @_; |
24
|
1
|
|
|
|
|
32
|
$names = [qw/ |
25
|
|
|
|
|
|
|
Afghan |
26
|
|
|
|
|
|
|
Albanian |
27
|
|
|
|
|
|
|
Algerian |
28
|
|
|
|
|
|
|
American |
29
|
|
|
|
|
|
|
Andorran |
30
|
|
|
|
|
|
|
Angolan |
31
|
|
|
|
|
|
|
Antiguans |
32
|
|
|
|
|
|
|
Argentinean |
33
|
|
|
|
|
|
|
Armenian |
34
|
|
|
|
|
|
|
Australian |
35
|
|
|
|
|
|
|
Austrian |
36
|
|
|
|
|
|
|
Azerbaijani |
37
|
|
|
|
|
|
|
Bahamian |
38
|
|
|
|
|
|
|
Bahraini |
39
|
|
|
|
|
|
|
Bangladeshi |
40
|
|
|
|
|
|
|
Barbadian |
41
|
|
|
|
|
|
|
Barbudans |
42
|
|
|
|
|
|
|
Batswana |
43
|
|
|
|
|
|
|
Belarusian |
44
|
|
|
|
|
|
|
Belgian |
45
|
|
|
|
|
|
|
Belizean |
46
|
|
|
|
|
|
|
Beninese |
47
|
|
|
|
|
|
|
Bhutanese |
48
|
|
|
|
|
|
|
Bolivian |
49
|
|
|
|
|
|
|
Bosnian |
50
|
|
|
|
|
|
|
Brazilian |
51
|
|
|
|
|
|
|
British |
52
|
|
|
|
|
|
|
Bruneian |
53
|
|
|
|
|
|
|
Bulgarian |
54
|
|
|
|
|
|
|
Burkinabe |
55
|
|
|
|
|
|
|
Burmese |
56
|
|
|
|
|
|
|
Burundian |
57
|
|
|
|
|
|
|
Cambodian |
58
|
|
|
|
|
|
|
Cameroonian |
59
|
|
|
|
|
|
|
Canadian |
60
|
|
|
|
|
|
|
Cape Verdean |
61
|
|
|
|
|
|
|
Central African |
62
|
|
|
|
|
|
|
Chadian |
63
|
|
|
|
|
|
|
Chilean |
64
|
|
|
|
|
|
|
Chinese |
65
|
|
|
|
|
|
|
Colombian |
66
|
|
|
|
|
|
|
Comoran |
67
|
|
|
|
|
|
|
Congolese |
68
|
|
|
|
|
|
|
Congolese |
69
|
|
|
|
|
|
|
Costa Rican |
70
|
|
|
|
|
|
|
Croatian |
71
|
|
|
|
|
|
|
Cuban |
72
|
|
|
|
|
|
|
Cypriot |
73
|
|
|
|
|
|
|
Czech |
74
|
|
|
|
|
|
|
Danish |
75
|
|
|
|
|
|
|
Djibouti |
76
|
|
|
|
|
|
|
Dominican |
77
|
|
|
|
|
|
|
Dominican |
78
|
|
|
|
|
|
|
Dutch |
79
|
|
|
|
|
|
|
Dutchman |
80
|
|
|
|
|
|
|
Dutchwoman |
81
|
|
|
|
|
|
|
East Timorese |
82
|
|
|
|
|
|
|
Ecuadorean |
83
|
|
|
|
|
|
|
Egyptian |
84
|
|
|
|
|
|
|
Emirian |
85
|
|
|
|
|
|
|
Equatorial Guinean |
86
|
|
|
|
|
|
|
Eritrean |
87
|
|
|
|
|
|
|
Estonian |
88
|
|
|
|
|
|
|
Ethiopian |
89
|
|
|
|
|
|
|
Fijian |
90
|
|
|
|
|
|
|
Filipino |
91
|
|
|
|
|
|
|
Finnish |
92
|
|
|
|
|
|
|
French |
93
|
|
|
|
|
|
|
Gabonese |
94
|
|
|
|
|
|
|
Gambian |
95
|
|
|
|
|
|
|
Georgian |
96
|
|
|
|
|
|
|
German |
97
|
|
|
|
|
|
|
Ghanaian |
98
|
|
|
|
|
|
|
Greek |
99
|
|
|
|
|
|
|
Grenadian |
100
|
|
|
|
|
|
|
Guatemalan |
101
|
|
|
|
|
|
|
Guinea-Bissauan |
102
|
|
|
|
|
|
|
Guinean |
103
|
|
|
|
|
|
|
Guyanese |
104
|
|
|
|
|
|
|
Haitian |
105
|
|
|
|
|
|
|
Herzegovinian |
106
|
|
|
|
|
|
|
Honduran |
107
|
|
|
|
|
|
|
Hungarian |
108
|
|
|
|
|
|
|
I-Kiribati |
109
|
|
|
|
|
|
|
Icelander |
110
|
|
|
|
|
|
|
Indian |
111
|
|
|
|
|
|
|
Indonesian |
112
|
|
|
|
|
|
|
Iranian |
113
|
|
|
|
|
|
|
Iraqi |
114
|
|
|
|
|
|
|
Irish |
115
|
|
|
|
|
|
|
Irish |
116
|
|
|
|
|
|
|
Israeli |
117
|
|
|
|
|
|
|
Italian |
118
|
|
|
|
|
|
|
Ivorian |
119
|
|
|
|
|
|
|
Jamaican |
120
|
|
|
|
|
|
|
Japanese |
121
|
|
|
|
|
|
|
Jordanian |
122
|
|
|
|
|
|
|
Kazakhstani |
123
|
|
|
|
|
|
|
Kenyan |
124
|
|
|
|
|
|
|
Kittian and Nevisian |
125
|
|
|
|
|
|
|
Kuwaiti |
126
|
|
|
|
|
|
|
Kyrgyz |
127
|
|
|
|
|
|
|
Laotian |
128
|
|
|
|
|
|
|
Latvian |
129
|
|
|
|
|
|
|
Lebanese |
130
|
|
|
|
|
|
|
Liberian |
131
|
|
|
|
|
|
|
Libyan |
132
|
|
|
|
|
|
|
Liechtensteiner |
133
|
|
|
|
|
|
|
Lithuanian |
134
|
|
|
|
|
|
|
Luxembourger |
135
|
|
|
|
|
|
|
Macedonian |
136
|
|
|
|
|
|
|
Malagasy |
137
|
|
|
|
|
|
|
Malawian |
138
|
|
|
|
|
|
|
Malaysian |
139
|
|
|
|
|
|
|
Maldivan |
140
|
|
|
|
|
|
|
Malian |
141
|
|
|
|
|
|
|
Maltese |
142
|
|
|
|
|
|
|
Marshallese |
143
|
|
|
|
|
|
|
Mauritanian |
144
|
|
|
|
|
|
|
Mauritian |
145
|
|
|
|
|
|
|
Mexican |
146
|
|
|
|
|
|
|
Micronesian |
147
|
|
|
|
|
|
|
Moldovan |
148
|
|
|
|
|
|
|
Monacan |
149
|
|
|
|
|
|
|
Mongolian |
150
|
|
|
|
|
|
|
Moroccan |
151
|
|
|
|
|
|
|
Mosotho |
152
|
|
|
|
|
|
|
Motswana |
153
|
|
|
|
|
|
|
Mozambican |
154
|
|
|
|
|
|
|
Namibian |
155
|
|
|
|
|
|
|
Nauruan |
156
|
|
|
|
|
|
|
Nepalese |
157
|
|
|
|
|
|
|
Netherlander |
158
|
|
|
|
|
|
|
New Zealander |
159
|
|
|
|
|
|
|
Ni-Vanuatu |
160
|
|
|
|
|
|
|
Nicaraguan |
161
|
|
|
|
|
|
|
Nigerian |
162
|
|
|
|
|
|
|
Nigerien |
163
|
|
|
|
|
|
|
North Korean |
164
|
|
|
|
|
|
|
Northern Irish |
165
|
|
|
|
|
|
|
Norwegian |
166
|
|
|
|
|
|
|
Omani |
167
|
|
|
|
|
|
|
Pakistani |
168
|
|
|
|
|
|
|
Palauan |
169
|
|
|
|
|
|
|
Panamanian |
170
|
|
|
|
|
|
|
Papua New Guinean |
171
|
|
|
|
|
|
|
Paraguayan |
172
|
|
|
|
|
|
|
Peruvian |
173
|
|
|
|
|
|
|
Polish |
174
|
|
|
|
|
|
|
Portuguese |
175
|
|
|
|
|
|
|
Qatari |
176
|
|
|
|
|
|
|
Romanian |
177
|
|
|
|
|
|
|
Russian |
178
|
|
|
|
|
|
|
Rwandan |
179
|
|
|
|
|
|
|
Saint Lucian |
180
|
|
|
|
|
|
|
Salvadoran |
181
|
|
|
|
|
|
|
Samoan |
182
|
|
|
|
|
|
|
San Marinese |
183
|
|
|
|
|
|
|
Sao Tomean |
184
|
|
|
|
|
|
|
Saudi |
185
|
|
|
|
|
|
|
Scottish |
186
|
|
|
|
|
|
|
Senegalese |
187
|
|
|
|
|
|
|
Serbian |
188
|
|
|
|
|
|
|
Seychellois |
189
|
|
|
|
|
|
|
Sierra Leonean |
190
|
|
|
|
|
|
|
Singaporean |
191
|
|
|
|
|
|
|
Slovakian |
192
|
|
|
|
|
|
|
Slovenian |
193
|
|
|
|
|
|
|
Solomon Islander |
194
|
|
|
|
|
|
|
Somali |
195
|
|
|
|
|
|
|
South African |
196
|
|
|
|
|
|
|
South Korean |
197
|
|
|
|
|
|
|
Spanish |
198
|
|
|
|
|
|
|
Sri Lankan |
199
|
|
|
|
|
|
|
Sudanese |
200
|
|
|
|
|
|
|
Surinamer |
201
|
|
|
|
|
|
|
Swazi |
202
|
|
|
|
|
|
|
Swedish |
203
|
|
|
|
|
|
|
Swiss |
204
|
|
|
|
|
|
|
Syrian |
205
|
|
|
|
|
|
|
Taiwanese |
206
|
|
|
|
|
|
|
Tajik |
207
|
|
|
|
|
|
|
Tanzanian |
208
|
|
|
|
|
|
|
Thai |
209
|
|
|
|
|
|
|
Togolese |
210
|
|
|
|
|
|
|
Tongan |
211
|
|
|
|
|
|
|
Trinidadian or Tobagonian |
212
|
|
|
|
|
|
|
Tunisian |
213
|
|
|
|
|
|
|
Turkish |
214
|
|
|
|
|
|
|
Tuvaluan |
215
|
|
|
|
|
|
|
Ugandan |
216
|
|
|
|
|
|
|
Ukrainian |
217
|
|
|
|
|
|
|
Uruguayan |
218
|
|
|
|
|
|
|
Uzbekistani |
219
|
|
|
|
|
|
|
Venezuelan |
220
|
|
|
|
|
|
|
Vietnamese |
221
|
|
|
|
|
|
|
Welsh |
222
|
|
|
|
|
|
|
Welsh |
223
|
|
|
|
|
|
|
Yemenite |
224
|
|
|
|
|
|
|
Zambian |
225
|
|
|
|
|
|
|
Zimbabwean |
226
|
|
|
|
|
|
|
/]; |
227
|
1
|
|
|
|
|
8
|
return bless({}, $class); |
228
|
|
|
|
|
|
|
|
229
|
|
|
|
|
|
|
} # End of new. |
230
|
|
|
|
|
|
|
|
231
|
|
|
|
|
|
|
# ----------------------------------------------- |
232
|
|
|
|
|
|
|
|
233
|
|
|
|
|
|
|
1; |
234
|
|
|
|
|
|
|
|
235
|
|
|
|
|
|
|
__END__ |