# object constructor
sub new {
   my $self = register( shift );
   $given_name{ id $self } = shift;
   $surname   { id $self } = shift;
   $self
}