File Coverage

blib/lib/Mock/Person/SK/ROM.pm

Criterion	Covered	Total	%
statement	41	46	89.1
branch	8	12	66.6
condition	4	9	44.4
subroutine	16	16	100.0
pod	9	9	100.0
total	78	92	84.7

package Mock::Person::SK::ROM;

# Pragmas.
use base qw(Exporter);
use strict;
use utf8;
use warnings;

# Modules.
use List::MoreUtils qw(none);
use Readonly;

# Constants.
Readonly::Scalar our $SPACE => q{ };
Readonly::Array our @EXPORT_OK => qw(first_male first_female middle_female
	last_male last_female middle_male middle_female name name_male
	name_female);

# Variables.
our $TYPE = 'two';

# Version.
our $VERSION = 0.01;

# First and middle male names.
our @first_male = our @middle_male = qw(
Arpad
Dezo
Dezider
Dominik
Ervin
Jiří
Jolana
Josef
Kalman
Kevin
Lajos
Marian
Petr
Roman
Viliam
);

# First nad middle female names.
our @first_female = our @middle_female = qw(
Anna
Elizabeth
Erza
Esmeralda
Hana
Jessika
Kamila
Luci
Marika
Marget
Mária
Monika
Nikola
Renata
Romana
Terezie
Vanessa
Žaneta
);

# Last male names.
our @last_male = qw(
Absolon
Bady
Bado
Badžo
Bagár
Balog
Balogh
Bamberger
Bandi
Banga
Bango
Bari
Báro
Barok
Barya
Bazylak
Bažo
Bednár
Bendig
Bengoro
Beňák
Beňo
Berki
Berko
Bihári
Biháryi
Bikar
Bilaj
Bogol
Bokor
Botoš
Budaj
Byl
Cirok
Cobas
Csocs
Černohorský
Červeňák
Číča
Čičák
Čisar
Čobak
Čonka
Čornej
Čurej
Čureja
Čuri
Čurko
Daďo
Daniel
Danihel
Dajdy
Danko
Dany
Danyi
David
Demeter
Deňo
Derulo
Dirda
Dudy
Dunko
Duraj
Durasko
Durda
Durňak
Dydyk
Dzudza
Dzurko
Džuga
Džuman
Ďuďa
Fábero
Fabián
Fako
Farkaš
Fečo
Fehér
Fekete
Ferenc
Ferko
Gabčo
Gábor
Gadzor
Gadžor
Galba
Gataš
Gatoš
Gaži
Giňa
Giňo
Girga
Gizman
Goga
Gondolán
Gondy
Gorol
Grondzár
Grundza
Guman
Gunar
Gunár
Hangurbadžo
Hanko
Herák
Hiňa
Holdy
Holomek
Holub
Horváth
Hrivňák
Huňák
Husar
Chanžalik
Charvát
Ištánek
Ištok
Ištván
Janeček
Jano
Jurčo
Jurko
Kaleja
Kajkoš
Karol
Kašperko
Karvaj
Kavur
Kirko
Kirvej
Klempár
Klimt
Koky
Kuky
Kotlár
Kováč
Kovács
Kramčanin
Kučeraj
Kumaj
Kurej
Kurko
Kýr
Lacko
Lagryn
Lakatoš
Latymor
Lazok
Lofas
Lomanth
Maďar
Makaj
Makuňa
Malar
Malík
Mezej
Mezga
Mézga
Miazga
Miko
Milko
Mindzár
Mirga
Mižigar
Molnar
Murka
Németh
Oláh
Ondič
Oračko
Pacaj
Pako
Petržilka
Pfeffer
Plachetka
Pocikál
Pohlodko
Polhoš
Porčogoš
Procházka
Rigo
Richter
Rusznyak
Růžička
Sakajto
Samel
Sarkozy
Sinu
Sivák
Stojka
Stylar
Surmaj
Šajko
Szajko
Šamko
Szamko
Šandor
Šándor
Šarkezy
Ščuka
Šidélko
Šimko
Špivak
Šťuko
Tancoš
Tancosz
Telvak
Tomaš
Tomko
Totorkul
Tulej
Tuleja
Turták
Vega
Veselý
Virag
Vrba
Zaječí
Zaňák
Žiga
Žolták
);

# Last female names.
our @last_female = qw(
Mižigárová
);

# Get random first male name.
sub first_male {
	return $first_male[rand @first_male];
}

# Get random first female name.
sub first_female {
	return $first_female[rand @first_female];
}

# Get random last male name.
sub last_male {
	return $last_male[rand @last_male];
}

# Get random last female name.
sub last_female {
	return $last_female[rand @last_female];
}

# Get random middle male name.
sub middle_male {
	return $middle_male[rand @middle_male];
}

# Get random middle female name.
sub middle_female {
	return $middle_female[rand @middle_female];
}

# Get random name.
sub name {
	my $sex = shift;
	if (! defined $sex || none { $sex eq $_ } qw(female male)) {
		if ((int(rand(2)) + 1 ) % 2 == 0) {
			return name_male();
		} else {
			return name_female();
		}
	} elsif ($sex eq 'female') {
		return name_female();
	} elsif ($sex eq 'male') {
		return name_male();
	}
}

# Get random male name.
sub name_male {
	if (defined $TYPE && $TYPE eq 'three') {
		my $first_male = first_male();
		my $middle_male = middle_male();
		while ($first_male eq $middle_male) {
			$middle_male = middle_male();
		}
		return $first_male.$SPACE.$middle_male.$SPACE.last_male();
	} else {
		return first_male().$SPACE.last_male();
	}
}

# Get random female name.
sub name_female {
	if (defined $TYPE && $TYPE eq 'three') {
		my $first_female = first_female();
		my $middle_female = middle_female();
		while ($first_female eq $middle_female) {
			$middle_female = middle_female();
		}
		return $first_female.$SPACE.$middle_female.$SPACE.last_female();
	} else {
		return first_female().$SPACE.last_female();
	}
}

1;

__END__