package Kernel::Config; use Moose; use Kernel::Config::Defaults; # ------------------------------------------------------------------------ my $Home = $ENV{CONFIG_HOME} // 'C:\Scripts\Aktuell'; # ------------------------------------------------------------------------ has Home => ( is => 'rw', default => $Home, ); my %Config = Kernel::Config::Defaults::Load_Defaults($Home); while (my ($attribute,$default) = each %Config) { has $attribute => ( is => 'rw', default => $default, ); } # -------------------------------------------------------------------------------- no Moose; # --------------------------------------------------------------------------------- __PACKAGE__ -> meta -> make_immutable;