package Kernel::Config; use Moose; extends 'Kernel::Config::Defaults'; # ------------------------------------------------------------------------ sub Config_Loader { my %Config_Werte = ( Home => 'C:\Scripts\Aktuell' ); my $Defaults_Handler = Kernel::Config::Defaults -> new( ) ; my $Defaults_Referenz = $Defaults_Handler -> Load_Defaults( ) ; my %Defaults_Werte = %$Defaults_Referenz; # print "@{[ %Defaults_Werte ]}"; return( %Defaults_Werte ); } # -------------------------------------------------------------------------------- no Moose; # --------------------------------------------------------------------------------- __PACKAGE__ -> meta -> make_immutable;