Thread SUPER: Ich bin am verzweifeln ... (15 answers)
Opened by BrownWolf at 2003-09-03 17:53

havi
 2003-09-03 17:59
#83547 #83547
User since
2003-08-04
2036 Artikel
BenutzerIn
[Homepage]
user image
Code: (dl )
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
SUPER.pl
#!/usr/local/bin/perl -w
# SUPER.pl -- Zeigt die Verwendung der Pseudoklasse SUPER

package Base;
sub new {
my $cn = shift;
my $data = shift;
my $self = { data => $data };
return bless $self, $cn;
}

sub mytype {
my $self = shift;
return ref($self);
}

package Derived1;
@ISA = qw(Base);
sub new {
my $cn = shift;
my $data = shift;
my $moredata = shift;
my $self = $cn->SUPER::new($data);
$self->{'moredata'} = $moredata;
return $self;
}

sub mytype {
my $self = shift;
return ref($self);
}

package main;
my $obj = Derived1->new("data1", "data2");
print "Type: ", $obj->mytype(), "\n";
print "Data1:", $obj->{'data'}, "\n";
print "Data2:", $obj->{'moredata'}, "\n";


Zu finden: hier

mfg havi

View full thread SUPER: Ich bin am verzweifeln ...