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