![]() |
![]() |
6 Einträge, 1 Seite |
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);
use Class::Data::Inheritable;
![]() |
![]() |
6 Einträge, 1 Seite |