package UserDomain::Person;

use strict;

sub new {
	my $class = shift;
	my $self = bless {} , ref $class || $class;
	my ($id, $nachname, $vorname, $telnr, $sprache, $aktiv) = @_;

	$self->{'id'} = $id;
	$self->{'nachname'} = $nachname;
	$self->{'vorname'} = $vorname;
	$self->{'telnr'} = $telnr;
	$self->{'sprache'} = $sprache;
	$self->{'aktiv'} = $aktiv;

	# my $self = bless {}, ref $proto || $proto;
	#bless $self, ref $class || $class; # wegen Vererbung
	return $self;
}