File Coverage

blib/lib/Random/AcademicTitle/CZ.pm

Criterion	Covered	Total	%
statement	12	29	41.3
branch	0	4	0.0
condition			n/a
subroutine	4	7	57.1
pod	3	3	100.0
total	19	43	44.1

package Random::AcademicTitle::CZ;

use strict;
use warnings;

use Class::Utils qw(set_params);
use Readonly;

Readonly::Array our @TITLES_AFTER => (
	'Ph.D.',
	'Th.D.',
	'DiS.',
	'DSc.',
);
Readonly::Array our @TITLES_AFTER_OLD => (
	'CSc.',
	'DrSc.',
	'Dr.',
	'Th.D.',
);
Readonly::Array our @TITLES_BEFORE => (
	'prof.',
	'doc.',
	'MUDr.',
	'MVDr.',
	'MDDr.',
	'PharmDr.',
	'JUDr.',
	'PhDr.',
	'RNDr.',
	'ThDr.',
	'Ing.',
	'Ing. arch.',
	'Mgr.',
	'MgA.',
	'Bc.',
	'BcA.',
	'ThLic.',
);
Readonly::Array our @TITLES_BEFORE_OLD => (
	'akad. arch.',
	'akad. mal.',
	'ak. soch.',
	'MSDr.',
	'PaedDr.',
	'PhMr.',
	'RSDr.',
	'RTDr.',
	'RCDr.',
	'ThMgr.',
);

our $VERSION = 0.02;

# Constructor.
sub new {
	my ($class, @params) = @_;

	# Create object.
	my $self = bless {}, $class;

	# Set up old titles.
	$self->{'old'} = 0;

	# Process parameters.
	set_params($self, @params);

	return $self;
}

sub random_title_after {
	my $self = shift;

	my @titles = @TITLES_AFTER;
	if ($self->{'old'}) {
		push @titles, @TITLES_AFTER_OLD;
	}
	my $title = $titles[int(rand(@titles))];

	return $title;
}

sub random_title_before {
	my $self = shift;

	my @titles = @TITLES_BEFORE;
	if ($self->{'old'}) {
		push @titles, @TITLES_BEFORE_OLD;
	}
	my $title = $titles[int(rand(@titles))];

	return $title;
}


1;

__END__