Thread OOP: Variable erben (5 answers)
Opened by the_brain at 2005-05-31 11:37

the_brain
 2005-05-31 11:37
#55181 #55181
User since
2004-08-19
30 Artikel
BenutzerIn
[Homepage] [default_avatar]
hi, der code meiner basisklasse sieht so aus:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9

package Lanas::BaseClass;
use Env qw ( REMOTE_USER SCRIPT_NAME DOCUMENT_ROOT GATEWAY_INTERFACE MOD_PERL HTTP_REFERER HTTP_USER_AGENT );
# use warnings;
# use diagnostics;
use strict;
use vars qw( %key $USE_MOD_PERL );
*key = \%Lanas::Base::key;

use subs qw(exit);


nun will ich in jeder abgeleiteten klasse auf $key{BLA} zugreifen können - das geht leider nicht. kann mir hier jemand einen tipp geben? Muss ich die mit exporter evtl. erst exportieren bzw. importieren?

Vielen Dank
Gruss
Martin
LAN-Admin System
OpenAnno

View full thread OOP: Variable erben