Thread Class::Struct und @ISA (6 answers)
Opened by toby at 2007-09-19 01:19

toby
 2007-09-19 01:19
#99632 #99632
User since
2006-04-14
66 Artikel
BenutzerIn
[default_avatar]
Hallo Perler und Perlerinen :)

wenn ich folgenden Perlcode ausführe

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
#!/usr/bin/perl

{ package A;
	use Class::Struct;
	struct 	A => { a => '$',};

	sub geerbte(){
		print "geerbte Methode\n"
	}
}

{ package B;
	our @ISA = qw(A);
	use Class::Struct;
	struct B => { a => 'A', b => '$',};

       sub eigene(){
		print "eigene Methode\n"
	}
}

my $b = B->new();

$b->eigene();
$b->geerbte();


bekomme ich vom Interpreter folgendes zurück:

Quote
struct class cannot be a subclass (@ISA not allowed) at ClassStruct.pl line 16


Ich kann mich errinern, dass ich irgendwo gelesen habe, dass Class::Struct - warumauchimmer - Vererbungen mit @ISA verbietet. :(

- Warum? Was ist so schlecht an einer Vererbung für Class:Struct?
- Wie kann ich trotzdem von einer Klasse, die mit Class::Struct entworfen wurde erben? Ich hab da was vom Exporter gehört, werde aber aus der Doku (perldoc Exporter) nicht schlau. Hat da jemand ein einfacheres Beispiel parat?

Danke! :)
Tobias

View full thread Class::Struct und @ISA