Leser: 1
![]() |
|< 1 ... 19 20 21 22 23 24 25 ... 28 >| | ![]() |
280 Einträge, 28 Seiten |
[E|B,18.04.2004, 21:42]Bitte erzählen für ein armes, daheimgelassenes Mitglied. *g*
Habt ihr Fotos? Was habt ihr unternommen? Erzählt schon!!
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
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', @_) }![]() |
|< 1 ... 19 20 21 22 23 24 25 ... 28 >| | ![]() |
280 Einträge, 28 Seiten |