sub givenName {
    my $self = shift;
    $self->{_givenName} = shift if @_;
    return $self->{_givenName};
};