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             # 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__