package Kernel::Config; use strict; use warnings; use base qw( Kernel::Config::Defaults ); # -------------------------------------------------------------------------------------------------------------------------------------------------------- sub Config_Loader { my ( $Typ, %Parameter ) = @_; my $Self = { }; bless( $Self , $Typ ); # -------------------------------------------------------------------------------------------------------------------------------------------------------- $Self -> { Home } = 'E:/Programmierung/Aktuell'; $Self -> { Debug_Modus } = 'N'; $Self -> Defaults_Loader( \$Self ); # -------------------------------------------------------------------------------------------------------------------------------------------------------- # Rückgabe der Config - Werte return $Self; }