File Coverage

blib/lib/Mock/Person/CZ.pm
Criterion Covered Total %
statement 25 25 100.0
branch 2 2 100.0
condition 3 3 100.0
subroutine 12 12 100.0
pod 7 7 100.0
total 49 49 100.0


line stmt bran cond sub pod time code
1             package Mock::Person::CZ;
2              
3 9     9   77116 use base qw(Exporter);
  9         63  
  9         1191  
4 9     9   65 use strict;
  9         17  
  9         200  
5 9     9   5696 use utf8;
  9         131  
  9         46  
6 9     9   280 use warnings;
  9         19  
  9         227  
7              
8 9     9   4768 use Readonly;
  9         35963  
  9         5965  
9              
10             # Constants.
11             Readonly::Scalar our $SPACE => q{ };
12             Readonly::Array our @EXPORT_OK => qw(first_male first_female middle_female
13             last_male last_female middle_male middle_female name);
14              
15             our $VERSION = 0.05;
16              
17             # First and middle male names.
18             our @first_male = our @middle_male = qw(
19             Adam
20             Alexandr
21             Aleš
22             Alois
23             Antonín
24             Bedřich
25             Bohumil
26             Bohuslav
27             Břetislav
28             Dalibor
29             Daniel
30             David
31             Denis
32             Dominik
33             Dušan
34             Eduard
35             Emil
36             Filip
37             František
38             Ivan
39             Ivo
40             Jakub
41             Jan
42             Jaromír
43             Jaroslav
44             Jindřich
45             Jiří
46             Josef
47             Jozef
48             Ján
49             Kamil
50             Karel
51             Kryštof
52             Ladislav
53             Leoš
54             Libor
55             Lubomír
56             Luboš
57             Ludvík
58             Luděk
59             Lukáš
60             Marcel
61             Marek
62             Marian
63             Martin
64             Matyáš
65             Matěj
66             Michael
67             Michal
68             Milan
69             Miloslav
70             Miloš
71             Miroslav
72             Oldřich
73             Ondřej
74             Otakar
75             Patrik
76             Pavel
77             Petr
78             Přemysl
79             Radek
80             Radim
81             Radomír
82             Radovan
83             René
84             Richard
85             Robert
86             Roman
87             Rostislav
88             Rudolf
89             Samuel
90             Stanislav
91             Tadeáš
92             Tomáš
93             Viktor
94             Vilém
95             Vladimír
96             Vladislav
97             Vlastimil
98             Vojtěch
99             Vratislav
100             Václav
101             Vít
102             Vítězslav
103             Zbyněk
104             Zdeněk
105             Šimon
106             Štefan
107             Štěpán
108             );
109              
110             # First and middle female names.
111             our @first_female = our @middle_female = qw(
112             Alena
113             Andrea
114             Anna
115             Barbora
116             Božena
117             Dagmar
118             Dana
119             Eliška
120             Eva
121             Hana
122             Helena
123             Irena
124             Ivana
125             Jana
126             Jarmila
127             Jaroslava
128             Jitka
129             Jiřina
130             Kateřina
131             Kristýna
132             Lenka
133             Libuše
134             Lucie
135             Ludmila
136             Marcela
137             Marie
138             Markéta
139             Marta
140             Martina
141             Michaela
142             Miroslava
143             Monika
144             Pavla
145             Petra
146             Tereza
147             Veronika
148             Vlasta
149             Věra
150             Zdeňka
151             Zuzana
152             );
153              
154             # Last male names.
155             our @last_male = qw(
156             Bartoš
157             Beneš
158             Blažek
159             Bláha
160             Bureš
161             Doležal
162             Dostál
163             Dušek
164             Dvořák
165             Fiala
166             Havlíček
167             Holub
168             Horák
169             Hrubý
170             Hruška
171             Hájek
172             Janda
173             Jelínek
174             Kadlec
175             Kolář
176             Konečný
177             Kopecký
178             Kovář
179             Kratochvíl
180             Krejčí
181             Král
182             Kučera
183             Kříž
184             Liška
185             Mach
186             Malý
187             Marek
188             Mareš
189             Matoušek
190             Mašek
191             Moravec
192             Musil
193             Müller
194             Navrátil
195             Nguyen
196             Novotný
197             Novák
198             Němec
199             Pavlík
200             Pokorný
201             Polák
202             Pospíšil
203             Procházka
204             Růžička
205             Sedláček
206             Soukup
207             Staněk
208             Svoboda
209             Sýkora
210             Tichý
211             Urban
212             Valenta
213             Vaněk
214             Veselý
215             Vlček
216             Vávra
217             Zeman
218             Čech
219             Čermák
220             Černý
221             Říha
222             Ševčík
223             Šimek
224             Štěpánek
225             Šťastný
226             );
227              
228             # Last female names.
229             our @last_female = qw(
230             Bartošová
231             Benešová
232             Blažková
233             Bláhová
234             Burešová
235             Doležalová
236             Dostálová
237             Dvořáková
238             Fialová
239             Havlíčková
240             Holubová
241             Horáková
242             Hrubá
243             Hrušková
244             Hájková
245             Jandová
246             Jelínková
247             Kadlecová
248             Kolářová
249             Konečná
250             Kopecká
251             Kovářová
252             Kratochvílová
253             Krejčová
254             Krejčí
255             Králová
256             Kučerová
257             Křížová
258             Lišková
259             Machová
260             Malá
261             Marešová
262             Marková
263             Matoušková
264             Mašková
265             Moravcová
266             Musilová
267             Müllerová
268             Navrátilová
269             Nguyen
270             Novotná
271             Nováková
272             Němcová
273             Pavlíková
274             Pavlíková
275             Pokorná
276             Poláková
277             Pospíšilová
278             Procházková
279             Růžičková
280             Sedláčková
281             Soukupová
282             Staňková
283             Svobodová
284             Sýkorová
285             Tichá
286             Urbanová
287             Valentová
288             Vaňková
289             Veselá
290             Vlčková
291             Vávrová
292             Zemanová
293             Čechová
294             Čermáková
295             Černá
296             Říhová
297             Ševčíková
298             Šimková
299             Štěpánková
300             Šťastná
301             );
302              
303             # Get random first male name.
304             sub first_male {
305 3     3 1 169 return $first_male[rand @first_male];
306             }
307              
308             # Get random first female name.
309             sub first_female {
310 2     2 1 126 return $first_female[rand @first_female];
311             }
312              
313             # Get random last male name.
314             sub last_male {
315 3     3 1 131 return $last_male[rand @last_male];
316             }
317              
318             # Get random last female name.
319             sub last_female {
320 2     2 1 163 return $last_female[rand @last_female];
321             }
322              
323             # Get random middle male name.
324             sub middle_male {
325 3     3 1 132 return $middle_male[rand @middle_male];
326             }
327              
328             # Get random middle female name.
329             sub middle_female {
330 2     2 1 128 return $middle_female[rand @middle_female];
331             }
332              
333             # Get random name.
334             sub name {
335 3     3 1 5026 my $sex = shift;
336 3 100 100     21 if (defined $sex && $sex eq 'female') {
337 1         4 return first_female().$SPACE.middle_female().$SPACE.last_female();
338             } else {
339 2         10 return first_male().$SPACE.middle_male().$SPACE.last_male();
340             }
341             }
342              
343             1;
344              
345             __END__