File Coverage

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