blib/lib/Mock/Person/SK.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::SK; | ||||||
2 | |||||||
3 | # Pragmas. | ||||||
4 | 10 | 10 | 54858 | use base qw(Exporter); | |||
10 | 22 | ||||||
10 | 1120 | ||||||
5 | 10 | 10 | 56 | use strict; | |||
10 | 19 | ||||||
10 | 298 | ||||||
6 | 10 | 10 | 11354 | use utf8; | |||
10 | 112 | ||||||
10 | 54 | ||||||
7 | 10 | 10 | 344 | use warnings; | |||
10 | 14 | ||||||
10 | 365 | ||||||
8 | |||||||
9 | # Modules. | ||||||
10 | 10 | 10 | 11682 | use Readonly; | |||
10 | 48602 | ||||||
10 | 14834 | ||||||
11 | |||||||
12 | # Constants. | ||||||
13 | Readonly::Scalar our $SPACE => q{ }; | ||||||
14 | Readonly::Array our @EXPORT_OK => qw(first_male first_female middle_female | ||||||
15 | last_male last_female middle_male middle_female name); | ||||||
16 | |||||||
17 | # Version. | ||||||
18 | our $VERSION = 0.03; | ||||||
19 | |||||||
20 | # First and middle male names. | ||||||
21 | our @first_male = our @middle_male = qw( | ||||||
22 | Adam | ||||||
23 | Adolf | ||||||
24 | Adrián | ||||||
25 | Alan | ||||||
26 | Albert | ||||||
27 | Albín | ||||||
28 | Aleš | ||||||
29 | Alexander | ||||||
30 | Alexej | ||||||
31 | Alfonz | ||||||
32 | Alfréd | ||||||
33 | Alojz | ||||||
34 | Ambróz | ||||||
35 | Andrej | ||||||
36 | Anton | ||||||
37 | Arnold | ||||||
38 | Arpád | ||||||
39 | Augustín | ||||||
40 | Aurel | ||||||
41 | Bartolomej | ||||||
42 | Belo | ||||||
43 | Beňadik | ||||||
44 | Benjamín | ||||||
45 | Bernard | ||||||
46 | Blahoslav | ||||||
47 | Blažej | ||||||
48 | Bohdan | ||||||
49 | Bohumil | ||||||
50 | Bohumír | ||||||
51 | Bohuš | ||||||
52 | Bohuslav | ||||||
53 | Boleslav | ||||||
54 | Boris | ||||||
55 | Branislav | ||||||
56 | Bruno | ||||||
57 | Bystrík | ||||||
58 | Ctibor | ||||||
59 | Cyprián | ||||||
60 | Cyril | ||||||
61 | Dalibor | ||||||
62 | Daniel | ||||||
63 | Dávid | ||||||
64 | Demeter | ||||||
65 | Denis | ||||||
66 | Dezider | ||||||
67 | Dionýz | ||||||
68 | Dobroslav | ||||||
69 | Dominik | ||||||
70 | Drahomír | ||||||
71 | Drahoslav | ||||||
72 | Dušan | ||||||
73 | Edmund | ||||||
74 | Eduard | ||||||
75 | Emanuel | ||||||
76 | Emil | ||||||
77 | Erik | ||||||
78 | Ernest | ||||||
79 | Ervín | ||||||
80 | Eugen | ||||||
81 | Fedor | ||||||
82 | Félix | ||||||
83 | Ferdinand | ||||||
84 | Filip | ||||||
85 | Florián | ||||||
86 | František | ||||||
87 | Frederik | ||||||
88 | Fridrich | ||||||
89 | Gabriel | ||||||
90 | Gašpar | ||||||
91 | Gejza | ||||||
92 | Gregor | ||||||
93 | Gustáv | ||||||
94 | Henrich | ||||||
95 | Hilda | ||||||
96 | Hubert | ||||||
97 | Hugo | ||||||
98 | Ignác | ||||||
99 | Igor | ||||||
100 | Imrich | ||||||
101 | Ivan | ||||||
102 | Izidor | ||||||
103 | Jakub | ||||||
104 | Ján | ||||||
105 | Jarolím | ||||||
106 | Jaromír | ||||||
107 | Jaroslav | ||||||
108 | Jerguš | ||||||
109 | Jozef | ||||||
110 | Július | ||||||
111 | Juraj | ||||||
112 | Kamil | ||||||
113 | Karol | ||||||
114 | Kazimír | ||||||
115 | Klement | ||||||
116 | Koloman | ||||||
117 | Konštantín | ||||||
118 | Kornel | ||||||
119 | Kristián | ||||||
120 | Krištof | ||||||
121 | Ladislav | ||||||
122 | Leonard | ||||||
123 | Leopold | ||||||
124 | Levoslav | ||||||
125 | Ľubomír | ||||||
126 | Ľuboš | ||||||
127 | Ľuboslav | ||||||
128 | Ľudomil | ||||||
129 | Ľudovít | ||||||
130 | Lujza | ||||||
131 | Lukáš | ||||||
132 | Marcel | ||||||
133 | Marek | ||||||
134 | Marián | ||||||
135 | Mário | ||||||
136 | Martin | ||||||
137 | Matej | ||||||
138 | Matúš | ||||||
139 | Maximilián | ||||||
140 | Medard | ||||||
141 | Metod | ||||||
142 | Michal | ||||||
143 | Mikuláš | ||||||
144 | Milan | ||||||
145 | Miloš | ||||||
146 | Miloslav | ||||||
147 | Milota | ||||||
148 | Miroslav | ||||||
149 | Mojmír | ||||||
150 | Móric | ||||||
151 | Norbert | ||||||
152 | Oldrich | ||||||
153 | Oleg | ||||||
154 | Oliver | ||||||
155 | Ondrej | ||||||
156 | Oskar | ||||||
157 | Oto | ||||||
158 | Patrik | ||||||
159 | Pavol | ||||||
160 | Peter | ||||||
161 | Pravoslav | ||||||
162 | Prokop | ||||||
163 | Radomír | ||||||
164 | Radoslav | ||||||
165 | Radovan | ||||||
166 | Radúz | ||||||
167 | Rastislav | ||||||
168 | René | ||||||
169 | Richard | ||||||
170 | Róbert | ||||||
171 | Roland | ||||||
172 | Roman | ||||||
173 | Romana | ||||||
174 | Rudolf | ||||||
175 | Samuel | ||||||
176 | Sergej | ||||||
177 | Severín | ||||||
178 | Slavomír | ||||||
179 | Stanislav | ||||||
180 | Štefan | ||||||
181 | Svätopluk | ||||||
182 | Svetozár | ||||||
183 | Tadeáš | ||||||
184 | Teodor | ||||||
185 | Tibor | ||||||
186 | Tichomír | ||||||
187 | Timotej | ||||||
188 | Tomáš | ||||||
189 | Urban | ||||||
190 | Václav | ||||||
191 | Valentín | ||||||
192 | Valér | ||||||
193 | Vasil | ||||||
194 | Vavrinec | ||||||
195 | Vendelín | ||||||
196 | Viktor | ||||||
197 | Viliam | ||||||
198 | Vincent | ||||||
199 | Vít | ||||||
200 | Víťazoslav | ||||||
201 | Vladimír | ||||||
202 | Vladislav | ||||||
203 | Vlastimil | ||||||
204 | Vojtech | ||||||
205 | Vratislav | ||||||
206 | Vratko | ||||||
207 | Zdenko | ||||||
208 | Žigmund | ||||||
209 | Zlatko | ||||||
210 | Zoltán | ||||||
211 | ); | ||||||
212 | |||||||
213 | # First nad middle female names. | ||||||
214 | our @first_female = our @middle_female = qw( | ||||||
215 | Adela | ||||||
216 | Adriána | ||||||
217 | Agáta | ||||||
218 | Agnesa | ||||||
219 | Albína | ||||||
220 | Alena | ||||||
221 | Alexandra | ||||||
222 | Alica | ||||||
223 | Alojza | ||||||
224 | Alžbeta | ||||||
225 | Amália | ||||||
226 | Anabela | ||||||
227 | Anastázia | ||||||
228 | Andrea | ||||||
229 | Anežka | ||||||
230 | Angela | ||||||
231 | Anna | ||||||
232 | Antónia | ||||||
233 | Aurélia | ||||||
234 | Barbora | ||||||
235 | Beáta | ||||||
236 | Berta | ||||||
237 | Bibiána | ||||||
238 | Blanka | ||||||
239 | Blažena | ||||||
240 | Bohdana | ||||||
241 | Bohumila | ||||||
242 | Bohuslava | ||||||
243 | Božena | ||||||
244 | Božidara | ||||||
245 | Branislava | ||||||
246 | Brigita | ||||||
247 | Bronislava | ||||||
248 | Cecília | ||||||
249 | Dagmara | ||||||
250 | Dana | ||||||
251 | Danica | ||||||
252 | Daniela | ||||||
253 | Darina | ||||||
254 | Dáša | ||||||
255 | Denisa | ||||||
256 | Diana | ||||||
257 | Dobromila | ||||||
258 | Dobroslava | ||||||
259 | Dominika | ||||||
260 | Dorota | ||||||
261 | Drahomíra | ||||||
262 | Drahoslava | ||||||
263 | Dušana | ||||||
264 | Edita | ||||||
265 | Ela | ||||||
266 | Elena | ||||||
267 | Eleonóra | ||||||
268 | Eliška | ||||||
269 | Elvíra | ||||||
270 | Ema | ||||||
271 | Emília | ||||||
272 | Erika | ||||||
273 | Estera | ||||||
274 | Etela | ||||||
275 | Eugénia | ||||||
276 | Filoména | ||||||
277 | Františka | ||||||
278 | Gabriela | ||||||
279 | Galina | ||||||
280 | Gertrúda | ||||||
281 | Gizela | ||||||
282 | Hana | ||||||
283 | Hedviga | ||||||
284 | Helena | ||||||
285 | Henrieta | ||||||
286 | Hermína | ||||||
287 | Hortenzia | ||||||
288 | Ida | ||||||
289 | Iľja | ||||||
290 | Ingrida | ||||||
291 | Irena | ||||||
292 | Irma | ||||||
293 | Ivana | ||||||
294 | Iveta | ||||||
295 | Ivica | ||||||
296 | Izabela | ||||||
297 | Jana | ||||||
298 | Jarmila | ||||||
299 | Jaroslava | ||||||
300 | Jela | ||||||
301 | Jolana | ||||||
302 | Jozefína | ||||||
303 | Judita | ||||||
304 | Júlia | ||||||
305 | Juliana | ||||||
306 | Justína | ||||||
307 | Kamila | ||||||
308 | Karolína | ||||||
309 | Katarína | ||||||
310 | Klára | ||||||
311 | Klaudia | ||||||
312 | Kornélia | ||||||
313 | Kristína | ||||||
314 | Kvetoslava | ||||||
315 | Laura | ||||||
316 | Lea | ||||||
317 | Lenka | ||||||
318 | Lesana | ||||||
319 | Liana | ||||||
320 | Libuša | ||||||
321 | Linda | ||||||
322 | Lívia | ||||||
323 | Ľubica | ||||||
324 | Ľubomíra | ||||||
325 | Ľuboslava | ||||||
326 | Lucia | ||||||
327 | Ľudmila | ||||||
328 | Ľudomila | ||||||
329 | Lýdia | ||||||
330 | Magdaléna | ||||||
331 | Malvína | ||||||
332 | Marcela | ||||||
333 | Margaréta | ||||||
334 | Margita | ||||||
335 | Mária | ||||||
336 | Marianna | ||||||
337 | Marína | ||||||
338 | Marta | ||||||
339 | Martina | ||||||
340 | Matilda | ||||||
341 | Melánia | ||||||
342 | Michaela | ||||||
343 | Milada | ||||||
344 | Milena | ||||||
345 | Milica | ||||||
346 | Miloslava | ||||||
347 | Miriama | ||||||
348 | Miroslava | ||||||
349 | Monika | ||||||
350 | Nadežda | ||||||
351 | Natália | ||||||
352 | Nataša | ||||||
353 | Nikola | ||||||
354 | Nina | ||||||
355 | Nora | ||||||
356 | Oľga | ||||||
357 | Olympia | ||||||
358 | Otília | ||||||
359 | Patrícia | ||||||
360 | Paulína | ||||||
361 | Perla | ||||||
362 | Petra | ||||||
363 | Petronela | ||||||
364 | Regína | ||||||
365 | Renáta | ||||||
366 | Rozália | ||||||
367 | Ružena | ||||||
368 | Sabína | ||||||
369 | Sára | ||||||
370 | Sidónia | ||||||
371 | Silvia | ||||||
372 | Simona | ||||||
373 | Sláva | ||||||
374 | Slávka | ||||||
375 | Slavomíra | ||||||
376 | Soňa | ||||||
377 | Stanislava | ||||||
378 | Štefánia | ||||||
379 | Stela | ||||||
380 | Svetlana | ||||||
381 | Sylva | ||||||
382 | Tamara | ||||||
383 | Tatiana | ||||||
384 | Terézia | ||||||
385 | Uršuľa | ||||||
386 | Valentína | ||||||
387 | Valéria | ||||||
388 | Vanda | ||||||
389 | Veronika | ||||||
390 | Viera | ||||||
391 | Vieroslava | ||||||
392 | Viktória | ||||||
393 | Vilma | ||||||
394 | Viola | ||||||
395 | Vladimíra | ||||||
396 | Vlasta | ||||||
397 | Xénia | ||||||
398 | Žaneta | ||||||
399 | Zdenka | ||||||
400 | Želmíra | ||||||
401 | Zina | ||||||
402 | Zita | ||||||
403 | Zlatica | ||||||
404 | Žofia | ||||||
405 | Zoja | ||||||
406 | Zora | ||||||
407 | Zuzana | ||||||
408 | ); | ||||||
409 | |||||||
410 | # Last male names. | ||||||
411 | our @last_male = qw( | ||||||
412 | Acsai | ||||||
413 | Adamec | ||||||
414 | Aina | ||||||
415 | Alt | ||||||
416 | Altnau | ||||||
417 | Amri | ||||||
418 | Andreánsky | ||||||
419 | Andrich | ||||||
420 | Anjel | ||||||
421 | Antl | ||||||
422 | Argesheimer | ||||||
423 | Auxt | ||||||
424 | Babarík | ||||||
425 | Babnič | ||||||
426 | Bacúšan | ||||||
427 | Baláž | ||||||
428 | Baliak | ||||||
429 | Balkovič | ||||||
430 | Ballinger | ||||||
431 | Bandura | ||||||
432 | Bánik | ||||||
433 | Banský | ||||||
434 | Barbírik | ||||||
435 | Barek | ||||||
436 | Barháč | ||||||
437 | Barinek | ||||||
438 | Bartánus | ||||||
439 | Bártek | ||||||
440 | Belko | ||||||
441 | Belkovič | ||||||
442 | Belopotocký | ||||||
443 | Benč | ||||||
444 | Bendík | ||||||
445 | Beňo | ||||||
446 | Beňuš | ||||||
447 | Beránek | ||||||
448 | Beraxa | ||||||
449 | Berčík | ||||||
450 | Bese | ||||||
451 | Bešenda | ||||||
452 | Betka | ||||||
453 | Bihári | ||||||
454 | Blaho | ||||||
455 | Blišťan | ||||||
456 | Bogus | ||||||
457 | Boháčik | ||||||
458 | Boroš | ||||||
459 | Borovička | ||||||
460 | Bošeľa | ||||||
461 | Bowman | ||||||
462 | Brady | ||||||
463 | Brečka | ||||||
464 | Brenkus | ||||||
465 | Brief | ||||||
466 | Brozman | ||||||
467 | Brož | ||||||
468 | Brtán | ||||||
469 | Brucháč | ||||||
470 | Bruoth | ||||||
471 | Bubelíny | ||||||
472 | Budaj | ||||||
473 | Bukovský | ||||||
474 | Bulla | ||||||
475 | Buncsek | ||||||
476 | Bunčiak | ||||||
477 | Burdy | ||||||
478 | Bursa | ||||||
479 | Butora | ||||||
480 | Bútora | ||||||
481 | Buvala | ||||||
482 | Caban | ||||||
483 | Cambel | ||||||
484 | Cesnak | ||||||
485 | Cibuľa | ||||||
486 | Cibulka | ||||||
487 | Cipciar | ||||||
488 | Citterberg | ||||||
489 | Combrink | ||||||
490 | Corrado | ||||||
491 | Couturier | ||||||
492 | Csáky | ||||||
493 | Cvanga | ||||||
494 | Čech | ||||||
495 | Čelár | ||||||
496 | Černák | ||||||
497 | Červený | ||||||
498 | Čičmanec | ||||||
499 | Čipka | ||||||
500 | Čižmár | ||||||
501 | Čmelík | ||||||
502 | Čunderlík | ||||||
503 | Datko | ||||||
504 | Daxner | ||||||
505 | Degúl | ||||||
506 | Demian | ||||||
507 | Demko | ||||||
508 | Demuth | ||||||
509 | Déneši | ||||||
510 | Deppert | ||||||
511 | Dettweiler | ||||||
512 | Divok | ||||||
513 | Dobrík | ||||||
514 | Dobrota | ||||||
515 | Dočekal | ||||||
516 | Dolinský | ||||||
517 | Dolňan | ||||||
518 | Doncsiák | ||||||
519 | Donoval | ||||||
520 | Doppler | ||||||
521 | Ďordík | ||||||
522 | Dorica | ||||||
523 | Dostál | ||||||
524 | Dovala | ||||||
525 | Dráb | ||||||
526 | Drga | ||||||
527 | Dubéci | ||||||
528 | Dubenský | ||||||
529 | Dubíny | ||||||
530 | Dudáš | ||||||
531 | Dugát | ||||||
532 | Duhan | ||||||
533 | Dunajský | ||||||
534 | Dupej | ||||||
535 | Ďurčík | ||||||
536 | Ďurčo | ||||||
537 | Durek | ||||||
538 | Ďuriš | ||||||
539 | Džuka | ||||||
540 | Eckel | ||||||
541 | Engler | ||||||
542 | Evanoff | ||||||
543 | Eyrich | ||||||
544 | Fabrícius | ||||||
545 | Farárik | ||||||
546 | Farmer | ||||||
547 | Fasco | ||||||
548 | Faschko | ||||||
549 | Faskó | ||||||
550 | Fasko | ||||||
551 | Fassco | ||||||
552 | Faška | ||||||
553 | Faško | ||||||
554 | Fedor | ||||||
555 | Fehér | ||||||
556 | Ferenc | ||||||
557 | Ferenčík | ||||||
558 | Ferianc | ||||||
559 | Ferrara | ||||||
560 | Ferster | ||||||
561 | Figľuš | ||||||
562 | Fillo | ||||||
563 | Filo | ||||||
564 | Fitkomides | ||||||
565 | Formánek | ||||||
566 | Fortiak | ||||||
567 | Francik | ||||||
568 | Franko | ||||||
569 | Franzgreb | ||||||
570 | Frgelec | ||||||
571 | Frntol | ||||||
572 | Futas | ||||||
573 | Gáfrik | ||||||
574 | Gajdoš | ||||||
575 | Gajdošík | ||||||
576 | Gašparovič | ||||||
577 | Gašperan | ||||||
578 | Gazdík | ||||||
579 | Gažura | ||||||
580 | Gažúrik | ||||||
581 | Giablo | ||||||
582 | Giertl | ||||||
583 | Giertli | ||||||
584 | Gilla | ||||||
585 | Glasmacher | ||||||
586 | Gloner | ||||||
587 | Golian | ||||||
588 | Gömöry | ||||||
589 | Gonda | ||||||
590 | Grakalskis | ||||||
591 | Gramla | ||||||
592 | Green | ||||||
593 | Grlický | ||||||
594 | Gronel | ||||||
595 | Gronell | ||||||
596 | Haas | ||||||
597 | Habovčík | ||||||
598 | Hais | ||||||
599 | Hajdúk | ||||||
600 | Hajdusik | ||||||
601 | Halaj | ||||||
602 | Hamaj | ||||||
603 | Hambálek | ||||||
604 | Handlír | ||||||
605 | Haraburda | ||||||
606 | Harmata | ||||||
607 | Harter | ||||||
608 | Harvanka | ||||||
609 | Hauck | ||||||
610 | Haviar | ||||||
611 | Havlíček | ||||||
612 | Havran | ||||||
613 | Havrila | ||||||
614 | Hawes | ||||||
615 | Heckmann | ||||||
616 | Helena | ||||||
617 | Herman | ||||||
618 | Hoechstetter | ||||||
619 | Hojčuš | ||||||
620 | Hoover | ||||||
621 | Horský | ||||||
622 | Horvát | ||||||
623 | Horváth | ||||||
624 | Hosek | ||||||
625 | Hoška | ||||||
626 | Hoško | ||||||
627 | Howard | ||||||
628 | Hrbáň | ||||||
629 | Hrbek | ||||||
630 | Hrmelár | ||||||
631 | Hrnčiarik | ||||||
632 | Hrňo | ||||||
633 | Hruška | ||||||
634 | Hrynda | ||||||
635 | Hudec | ||||||
636 | Hurdálek | ||||||
637 | Húsenica | ||||||
638 | Húska | ||||||
639 | Hutka | ||||||
640 | Huťka | ||||||
641 | Hutta | ||||||
642 | Chabada | ||||||
643 | Chamar | ||||||
644 | Chovan | ||||||
645 | Chovanec | ||||||
646 | Christ | ||||||
647 | Chudík | ||||||
648 | Ionadi | ||||||
649 | Ištván | ||||||
650 | Ivan | ||||||
651 | Ivanec | ||||||
652 | Ivaniš | ||||||
653 | Jágerčík | ||||||
654 | Jančik | ||||||
655 | Jančo | ||||||
656 | Jankovič | ||||||
657 | Jánošík | ||||||
658 | Janošková | ||||||
659 | Javorčík | ||||||
660 | Javorčík | ||||||
661 | Jávorský | ||||||
662 | Jerguš | ||||||
663 | Johan | ||||||
664 | Jokl | ||||||
665 | Juhász | ||||||
666 | Juracek | ||||||
667 | Kabar | ||||||
668 | Kaclik | ||||||
669 | Kaclík | ||||||
670 | Kadecký | ||||||
671 | Kahoun | ||||||
672 | Kachnič | ||||||
673 | Kalaský | ||||||
674 | Kamenský | ||||||
675 | Kán | ||||||
676 | Kantárik | ||||||
677 | Kantoris | ||||||
678 | Kapitán | ||||||
679 | Kappler | ||||||
680 | Kapusta | ||||||
681 | Karásek | ||||||
682 | Kardoš | ||||||
683 | Kaslik | ||||||
684 | Kelvány | ||||||
685 | Kieborz | ||||||
686 | Kieffer | ||||||
687 | Kizek | ||||||
688 | Klafczynski | ||||||
689 | Klajban | ||||||
690 | Kľavko | ||||||
691 | Klein | ||||||
692 | Kleskeň | ||||||
693 | Klíma | ||||||
694 | Klimek | ||||||
695 | Kliment | ||||||
696 | Klimo | ||||||
697 | Kloboučník | ||||||
698 | Kmetz | ||||||
699 | Knapčok | ||||||
700 | Kňaze | ||||||
701 | Kňazík | ||||||
702 | Knoško | ||||||
703 | Kocprd | ||||||
704 | Kočiš | ||||||
705 | Kodric | ||||||
706 | Koenig | ||||||
707 | Kohút | ||||||
708 | Kochan | ||||||
709 | Koľaj | ||||||
710 | Kolaj | ||||||
711 | Kolega | ||||||
712 | Kolesár | ||||||
713 | Komora | ||||||
714 | Komora | ||||||
715 | Koprda | ||||||
716 | Korbeľ | ||||||
717 | Kordulič | ||||||
718 | Korenačka | ||||||
719 | Korim | ||||||
720 | Kösegi | ||||||
721 | Kostka | ||||||
722 | Košičiar | ||||||
723 | Košík | ||||||
724 | Košius | ||||||
725 | Koštial | ||||||
726 | Kotkuliak | ||||||
727 | Kotrčka | ||||||
728 | Kotrík | ||||||
729 | Kotyra | ||||||
730 | Kováč | ||||||
731 | Kováčik | ||||||
732 | Kovalik | ||||||
733 | Koválik | ||||||
734 | Kovalík | ||||||
735 | Kozák | ||||||
736 | Kozar | ||||||
737 | Kozelnicky | ||||||
738 | Kozma | ||||||
739 | Kožiak | ||||||
740 | Kožiar | ||||||
741 | Krajčovič | ||||||
742 | Kralik | ||||||
743 | Krammer | ||||||
744 | Kraner | ||||||
745 | Krejčí | ||||||
746 | Krenický | ||||||
747 | Kresák | ||||||
748 | Krídlo | ||||||
749 | Krieger | ||||||
750 | Krištál | ||||||
751 | Krištek | ||||||
752 | Krištof | ||||||
753 | Krkoška | ||||||
754 | Krnáč | ||||||
755 | Kršák | ||||||
756 | Krupa | ||||||
757 | Kruszynski | ||||||
758 | Krušinský | ||||||
759 | Kružliak | ||||||
760 | Krystosik | ||||||
761 | Kubacký | ||||||
762 | Kubaský | ||||||
763 | Kubica | ||||||
764 | Kubička | ||||||
765 | Kubisch | ||||||
766 | Kubiš | ||||||
767 | Kubizniak | ||||||
768 | Kubos | ||||||
769 | Kubus | ||||||
770 | Kučera | ||||||
771 | Kúdelka | ||||||
772 | Kudor | ||||||
773 | Kuhnsman | ||||||
774 | Kuna | ||||||
775 | Kuntzler | ||||||
776 | Küntzler | ||||||
777 | Kupčok | ||||||
778 | Kupec | ||||||
779 | Kurajda | ||||||
780 | Kuricz | ||||||
781 | Laitman | ||||||
782 | Langhoerig | ||||||
783 | Láni | ||||||
784 | Lanz | ||||||
785 | Laubert | ||||||
786 | Laule | ||||||
787 | Laurinc | ||||||
788 | Ledbetter | ||||||
789 | Ledňa | ||||||
790 | Lefkowitz | ||||||
791 | Lehocký | ||||||
792 | Lehotský | ||||||
793 | Leitman | ||||||
794 | Leitner | ||||||
795 | Lenarth | ||||||
796 | Lepko | ||||||
797 | Lešták | ||||||
798 | Letko | ||||||
799 | Libič | ||||||
800 | Licko | ||||||
801 | Ličko | ||||||
802 | Lie | ||||||
803 | Lihan | ||||||
804 | Lichvár | ||||||
805 | Lipták | ||||||
806 | Liskay | ||||||
807 | Lisý | ||||||
808 | Litva | ||||||
809 | Lojko | ||||||
810 | Lojkovič | ||||||
811 | Lopušný | ||||||
812 | Lovecký | ||||||
813 | Luce | ||||||
814 | Ludvik | ||||||
815 | Lukáč | ||||||
816 | Lupták | ||||||
817 | Ľupták | ||||||
818 | Ľuptovčiak | ||||||
819 | Macko | ||||||
820 | Macula | ||||||
821 | Macuľa | ||||||
822 | Macz | ||||||
823 | Máček | ||||||
824 | Madda | ||||||
825 | Madro | ||||||
826 | Magic | ||||||
827 | Majerčík | ||||||
828 | Makovíni | ||||||
829 | Malatinec | ||||||
830 | Malga | ||||||
831 | Malloy | ||||||
832 | Maľo | ||||||
833 | Malus | ||||||
834 | Mangold | ||||||
835 | Marciň | ||||||
836 | Marconi | ||||||
837 | Marek | ||||||
838 | Marianek | ||||||
839 | Marinko | ||||||
840 | Martinec | ||||||
841 | Márton | ||||||
842 | Martzek | ||||||
843 | Maruška | ||||||
844 | Maruškin | ||||||
845 | Marzec | ||||||
846 | Matejovič | ||||||
847 | Matinec | ||||||
848 | Matoš | ||||||
849 | Matta | ||||||
850 | Matušák | ||||||
851 | Mauritz | ||||||
852 | Mayhew | ||||||
853 | Mazanec | ||||||
854 | Mede | ||||||
855 | Medveď | ||||||
856 | Mereš | ||||||
857 | Meyer | ||||||
858 | Mihál | ||||||
859 | Mihala | ||||||
860 | Michalčík | ||||||
861 | Michelčík | ||||||
862 | Mikloško | ||||||
863 | Mikovíny | ||||||
864 | Mikuláši | ||||||
865 | Mikulík | ||||||
866 | Mikuš | ||||||
867 | Mindek | ||||||
868 | Mindžák | ||||||
869 | Mitický | ||||||
870 | Miťko | ||||||
871 | Mitterbach | ||||||
872 | Mitterka | ||||||
873 | Mlynarčík | ||||||
874 | Mojčák | ||||||
875 | Mokoš | ||||||
876 | Molčan | ||||||
877 | Molota | ||||||
878 | Moorcroft | ||||||
879 | Moravčík | ||||||
880 | Morgenstern | ||||||
881 | Morhard | ||||||
882 | Motyka | ||||||
883 | Mühl | ||||||
884 | Müller | ||||||
885 | Muller | ||||||
886 | Multán | ||||||
887 | Murín | ||||||
888 | Murphy | ||||||
889 | Mutňan | ||||||
890 | Nagel | ||||||
891 | Náhlovský | ||||||
892 | Neal | ||||||
893 | Nelson | ||||||
894 | Nemčok | ||||||
895 | Németh | ||||||
896 | Nezbeda | ||||||
897 | Nichols | ||||||
898 | Nikel | ||||||
899 | Nikolaides | ||||||
900 | Nociar | ||||||
901 | Noellner | ||||||
902 | Noga | ||||||
903 | Nováček | ||||||
904 | Novak | ||||||
905 | Novysedlák | ||||||
906 | Nuota | ||||||
907 | Oberhauser | ||||||
908 | Obrtanec | ||||||
909 | Oceľ | ||||||
910 | Odelga | ||||||
911 | Okruhlica | ||||||
912 | Olsby | ||||||
913 | Olšiak | ||||||
914 | Omasta | ||||||
915 | Ondrášik | ||||||
916 | Ondruška | ||||||
917 | Oravec | ||||||
918 | Oravský | ||||||
919 | Pačesa | ||||||
920 | Paff | ||||||
921 | Pajtinka | ||||||
922 | Palazzo | ||||||
923 | Paleš | ||||||
924 | Palič | ||||||
925 | Pampúrik | ||||||
926 | Pančík | ||||||
927 | Panigaj | ||||||
928 | Pápai | ||||||
929 | Pápaj | ||||||
930 | Patúš | ||||||
931 | Paulen | ||||||
932 | Paulenka | ||||||
933 | Pauliak | ||||||
934 | Paulovič | ||||||
935 | Pavčiak | ||||||
936 | Pavelka | ||||||
937 | Pavlečka | ||||||
938 | Pavlík | ||||||
939 | Pavlove | ||||||
940 | Pazár | ||||||
941 | Pečienka | ||||||
942 | Pekár | ||||||
943 | Peniak | ||||||
944 | Pepich | ||||||
945 | Peško | ||||||
946 | Petljanska | ||||||
947 | Petráš | ||||||
948 | Petrin | ||||||
949 | Petruš | ||||||
950 | Pfender | ||||||
951 | Piatek | ||||||
952 | Pierce | ||||||
953 | Pikula | ||||||
954 | Pilát | ||||||
955 | Piliar | ||||||
956 | Piliarkin | ||||||
957 | Pindiak | ||||||
958 | Pipíš | ||||||
959 | Plieštik | ||||||
960 | Pltník | ||||||
961 | Pobožný | ||||||
962 | Podhoľský | ||||||
963 | Pohančanik | ||||||
964 | Pohančaník | ||||||
965 | Pohorelec | ||||||
966 | Pohorelský | ||||||
967 | Polák | ||||||
968 | Poliak | ||||||
969 | Polóny | ||||||
970 | Ponist | ||||||
971 | Pős | ||||||
972 | Posúch | ||||||
973 | Poš | ||||||
974 | Potančok | ||||||
975 | Pôbiš | ||||||
976 | Pravotiak | ||||||
977 | Prečuch | ||||||
978 | Predajňa | ||||||
979 | Profant | ||||||
980 | Puci | ||||||
981 | Račák | ||||||
982 | Radušovský | ||||||
983 | Rak | ||||||
984 | Rakita | ||||||
985 | Rastocky | ||||||
986 | Raška | ||||||
987 | Ratay | ||||||
988 | Raztocky | ||||||
989 | Ráztocký | ||||||
990 | Remenár | ||||||
991 | Remper | ||||||
992 | Repčiak | ||||||
993 | Repka | ||||||
994 | Révay | ||||||
995 | Rezníček | ||||||
996 | Ribos | ||||||
997 | Ridzoň | ||||||
998 | Riedinger | ||||||
999 | Rigaud | ||||||
1000 | Robinson | ||||||
1001 | Romankiewicz | ||||||
1002 | Rossi | ||||||
1003 | Roštár | ||||||
1004 | Rozkoš | ||||||
1005 | Rozložný | ||||||
1006 | Rudáš | ||||||
1007 | Rusnák | ||||||
1008 | Sabo | ||||||
1009 | Sahó | ||||||
1010 | Saksa | ||||||
1011 | Sanitra | ||||||
1012 | Sečkáš | ||||||
1013 | Seiler | ||||||
1014 | Sekerák | ||||||
1015 | Séleš | ||||||
1016 | Senko | ||||||
1017 | Sepeši | ||||||
1018 | Shiller | ||||||
1019 | Schaaf | ||||||
1020 | Schimpf | ||||||
1021 | Schlebach | ||||||
1022 | Schmer | ||||||
1023 | Schneider | ||||||
1024 | Schnierer | ||||||
1025 | Schreiner | ||||||
1026 | Schvarcbacher | ||||||
1027 | Sieden | ||||||
1028 | Sihelský | ||||||
1029 | Siládi | ||||||
1030 | Siman | ||||||
1031 | Sirota | ||||||
1032 | Sitarčík | ||||||
1033 | Sittler | ||||||
1034 | Skubák | ||||||
1035 | Slafkovský | ||||||
1036 | Slamený | ||||||
1037 | Sleziak | ||||||
1038 | Složil | ||||||
1039 | Slučiak | ||||||
1040 | Smiešna | ||||||
1041 | Smiešny | ||||||
1042 | Soják | ||||||
1043 | Soucz | ||||||
1044 | Souček | ||||||
1045 | Sperka | ||||||
1046 | Spišjak | ||||||
1047 | Spodniak | ||||||
1048 | Springer | ||||||
1049 | Srnka | ||||||
1050 | Stadler | ||||||
1051 | Stanček | ||||||
1052 | Stančík | ||||||
1053 | Stehlo | ||||||
1054 | Steigauf | ||||||
1055 | Stenczel | ||||||
1056 | Straka | ||||||
1057 | Strakota | ||||||
1058 | Strass | ||||||
1059 | Striežovský | ||||||
1060 | Stringer | ||||||
1061 | Strnad | ||||||
1062 | Supala | ||||||
1063 | Surový | ||||||
1064 | Sutter | ||||||
1065 | Sýkora | ||||||
1066 | Šajgal | ||||||
1067 | Šajgalík | ||||||
1068 | Šebo | ||||||
1069 | Šeco | ||||||
1070 | Ševčík | ||||||
1071 | Šimkovič | ||||||
1072 | Šimon | ||||||
1073 | Šimuny | ||||||
1074 | Šimúny | ||||||
1075 | Šindler | ||||||
1076 | Šiška | ||||||
1077 | Škadra | ||||||
1078 | Škantár | ||||||
1079 | Škoda | ||||||
1080 | Škôlka | ||||||
1081 | Škrovina | ||||||
1082 | Škula | ||||||
1083 | Šmajták | ||||||
1084 | Šmejkal | ||||||
1085 | Šmidt | ||||||
1086 | Šmihula | ||||||
1087 | Šperka | ||||||
1088 | Šramko | ||||||
1089 | Štádler | ||||||
1090 | Šťavina | ||||||
1091 | Štefanko | ||||||
1092 | Števlík | ||||||
1093 | Štrba | ||||||
1094 | Štubňa | ||||||
1095 | Štubniak | ||||||
1096 | Štulrajter | ||||||
1097 | Štulreiter | ||||||
1098 | Šulej | ||||||
1099 | Šuran | ||||||
1100 | Švantner | ||||||
1101 | Švarcbacher | ||||||
1102 | Švelka | ||||||
1103 | Švidraň | ||||||
1104 | Švihra | ||||||
1105 | Táborský | ||||||
1106 | Tačár | ||||||
1107 | Takáč | ||||||
1108 | Tapajčík | ||||||
1109 | Taxner | ||||||
1110 | Testevič | ||||||
1111 | Tešlár | ||||||
1112 | Tetliak | ||||||
1113 | Tilka | ||||||
1114 | Tišliar | ||||||
1115 | Tkáčik | ||||||
1116 | Tokár | ||||||
1117 | Tomajka | ||||||
1118 | Tončík | ||||||
1119 | Tonheiser | ||||||
1120 | Toriška | ||||||
1121 | Tóth | ||||||
1122 | Trnavský | ||||||
1123 | Trubiroh | ||||||
1124 | Turčan | ||||||
1125 | Turňa | ||||||
1126 | Turošík | ||||||
1127 | Uher | ||||||
1128 | Ustak | ||||||
1129 | Vajcík | ||||||
1130 | Valentino | ||||||
1131 | Valentko | ||||||
1132 | Vandlík | ||||||
1133 | Vaník | ||||||
1134 | Varga | ||||||
1135 | Vaslík | ||||||
1136 | Vašina | ||||||
1137 | Veládi | ||||||
1138 | Venger | ||||||
1139 | Vernársky | ||||||
1140 | Vetrák | ||||||
1141 | Veverka | ||||||
1142 | Vičan | ||||||
1143 | Vilímek | ||||||
1144 | Vist | ||||||
1145 | Vitello | ||||||
1146 | Vlaszati | ||||||
1147 | Vlčko | ||||||
1148 | Vodál | ||||||
1149 | Vološčuk | ||||||
1150 | Vološín | ||||||
1151 | Votroubek | ||||||
1152 | Vrbovský | ||||||
1153 | Vrunay | ||||||
1154 | Wagner | ||||||
1155 | Wahley | ||||||
1156 | Weisenpacher | ||||||
1157 | Wenger | ||||||
1158 | Witcherley | ||||||
1159 | Záhorec | ||||||
1160 | Zahorec | ||||||
1161 | Zachar | ||||||
1162 | Zajac | ||||||
1163 | Zajak | ||||||
1164 | Zambory | ||||||
1165 | Zaňák | ||||||
1166 | Záturecký | ||||||
1167 | Zemančík | ||||||
1168 | Zemánek | ||||||
1169 | Zemko | ||||||
1170 | Zettlemoyer | ||||||
1171 | Zeyst | ||||||
1172 | Zibrín | ||||||
1173 | Zingor | ||||||
1174 | Zlevský | ||||||
1175 | Zlúky | ||||||
1176 | Zubák | ||||||
1177 | Zubal | ||||||
1178 | Zvara | ||||||
1179 | Žďársky | ||||||
1180 | Žemlička | ||||||
1181 | Žiak | ||||||
1182 | Žila | ||||||
1183 | Žilík | ||||||
1184 | ); | ||||||
1185 | |||||||
1186 | # Last female names. | ||||||
1187 | our @last_female = qw( | ||||||
1188 | Balážová | ||||||
1189 | Balogová | ||||||
1190 | Horváthová | ||||||
1191 | Kováčová | ||||||
1192 | Lukáčová | ||||||
1193 | Molnárová | ||||||
1194 | Nagyová | ||||||
1195 | Szabová | ||||||
1196 | Tóthová | ||||||
1197 | Vargová | ||||||
1198 | ); | ||||||
1199 | |||||||
1200 | # Get random first male name. | ||||||
1201 | sub first_male { | ||||||
1202 | 3 | 3 | 1 | 126 | return $first_male[rand @first_male]; | ||
1203 | } | ||||||
1204 | |||||||
1205 | # Get random first female name. | ||||||
1206 | sub first_female { | ||||||
1207 | 2 | 2 | 1 | 81 | return $first_female[rand @first_female]; | ||
1208 | } | ||||||
1209 | |||||||
1210 | # Get random last male name. | ||||||
1211 | sub last_male { | ||||||
1212 | 3 | 3 | 1 | 80 | return $last_male[rand @last_male]; | ||
1213 | } | ||||||
1214 | |||||||
1215 | # Get random last female name. | ||||||
1216 | sub last_female { | ||||||
1217 | 2 | 2 | 1 | 56 | return $last_female[rand @last_female]; | ||
1218 | } | ||||||
1219 | |||||||
1220 | # Get random middle male name. | ||||||
1221 | sub middle_male { | ||||||
1222 | 3 | 3 | 1 | 79 | return $middle_male[rand @middle_male]; | ||
1223 | } | ||||||
1224 | |||||||
1225 | # Get random middle female name. | ||||||
1226 | sub middle_female { | ||||||
1227 | 2 | 2 | 1 | 72 | return $middle_female[rand @middle_female]; | ||
1228 | } | ||||||
1229 | |||||||
1230 | # Get random name. | ||||||
1231 | sub name { | ||||||
1232 | 3 | 3 | 1 | 5054 | my $sex = shift; | ||
1233 | 3 | 100 | 100 | 20 | if (defined $sex && $sex eq 'female') { | ||
1234 | 1 | 5 | return first_female().$SPACE.middle_female().$SPACE.last_female(); | ||||
1235 | } else { | ||||||
1236 | 2 | 6 | return first_male().$SPACE.middle_male().$SPACE.last_male(); | ||||
1237 | } | ||||||
1238 | } | ||||||
1239 | |||||||
1240 | 1; | ||||||
1241 | |||||||
1242 | __END__ |