Vererbung OOP, ... (Ergänzung)

[Christian Kruse]

Hoi,

Ich denke, das liegt daran, dass du @ISA nicht direkt am Anfang
setzt. Als Alternative kannst du ja mal

use base qw(Modulname);

ausprobieren.

Ergaenzend: im OO-Style wuerde ich das jetzt so loesen, dass du eine
Klasse schreibst, die in jedem Fall abgeleitet werden *muss*. In der
setzt du dann das eindeutige @ISA:

package TXTReader;

use vars qw($VERSION @ISA);
@ISA = qw(Reader::Storage Reader::Storage::txt);

bzw.

package SQLReader;

use vars qw($VERSION @ISA);
@ISA = qw(Reader::Storage Reader::Storage::sql);

Gruesse,
 CK