Thread OOP - eigenschaften vererben (10 answers)
Opened by norman at 2006-01-28 15:08

norman
 2006-01-29 12:24
#62387 #62387
User since
2004-03-11
46 Artikel
BenutzerIn
[default_avatar]
sehr interessant ressource das perldesign*** .com

kurzfristig werde ich das problem aber erstmal so lösen:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
# konfigurationsobjekt
my $mitarb1 = mitarbreiter->new(
'name','hans',
'birth','20.11.1969'
);

my @attr = $mitarb1->get_attributes();

# objekt mit einigen eigenschaften vom konfigurationsobjekt
my $mitarb1_erw1 = mitarbreiter_abt_verwaltung->new(
@attr,
'position','sachbearbeiter'
);

# gewueschtes resultat
print $mitarb1_erw1->get('name');
# -> hans

Last edited: 2020-01-28 18:27:35 +0100 (CET)

View full thread OOP - eigenschaften vererben