sub _property ($$;$) {
#------------------------------------------------------------------------------
# sub          : _ p r o p e r t y
#------------------------------------------------------------------------------
# Autor        : CD
# Aufgabe      : Private Funktion zur einfachereren Erstellung von Gettern
#                und Settern.
# Parameter    : Attribute, Parameter
# Rückgabewert : Der aktuelle Wert (Getter) oder der alte Wert (Setter) des
#                gegebenen Attribute.
#------------------------------------------------------------------------------
# 0.0.1 - 13.10.2003 - CD - Erstellt
#------------------------------------------------------------------------------

    my $self   = shift;    # object
    my $attr   = shift;    # attribute to get or set
    my $setter = @_ == 1;  # is this method used as a setter?
    my $value  = shift;    # value for the setter

    # if we use "if (defined $value)" here, we can't set the values
    # to undef! So we have to use this:
    if ($setter) {
        my $old_value = $self->{$attr};
        $self->{$attr} = $value;
        return $old_value;
    }
    else {
        return $self->{$attr};
    }
} # sub _property


#------------------------------------------------------------------------------
# The getter/setter methods:
#------------------------------------------------------------------------------
sub string      ($;$) { return shift->_property('string',      @_) }
sub original    ($;$) { return shift->_property('original',    @_) }
sub doppelvn    ($;$) { return shift->_property('doppelvn',    @_) }
sub doppelnn    ($;$) { return shift->_property('doppelnn',    @_) }
sub doppelen    ($;$) { return shift->_property('doppelen',    @_) }
sub attribute   ($;$) { return shift->_property('attribute',   @_) }
sub namensicher ($;$) { return shift->_property('namensicher', @_) }