File Coverage

blib/lib/Locale/Nationality/en.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 2 0.0
total 15 17 88.2


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__