sub _ObjectBuild {

    my ( $Self, %Parameter ) = @_;

    my $Package  = $Parameter{ Package };

    my $Datei_Bezeichnung = $Package;

    $Datei_Bezeichnung =~ s{::}{/}g;
    $Datei_Bezeichnung .= '.pm';

    eval { require $Datei_Bezeichnung; };

    if ( $@ )
        {
            if ( $CurrentObject && $CurrentObject ne $Package )
                {
                    $Self -> _DieWithError( Error => "Fehler bei der Initialisierung des Unter - Moduls $Package im Modul $CurrentObject" );
                } else {
                    $Self -> _DieWithError( Error => "Fehler bei der Initialisierung des Moduls $Package" );
                }
        }
    else {
        return $Package->new;
    }
}