#!/usr/bin/perl

use warnings;
use strict;

package Kernel::Config::Defaults {

    sub new {
        my $classname = shift;
        my $self  = {};
        return bless($self, $classname);
    }

    sub Defaults_Loader {
        my $self  = shift;
        my $kernelConfig = shift;
        print $kernelConfig->{home} . "\n";
    }
}

package Kernel::Config {

    use base 'Kernel::Config::Defaults';
 
    sub Config_Loader {
        my $self = shift;
        $self->{home} = 'E:/Programmierung/Aktuell';
        $self->{debug_modus} = 'N';
        $self->Defaults_Loader($self);
    }
}

my $kc = Kernel::Config->new();
$kc->Config_Loader();