if ( $@ ) 																														
{	
    print "Aktuelles Objekt : $CurrentObject" , "\n";
	
    if ( $CurrentObject && $CurrentObject ne $Package ) 
    {
	[color=red]$Self -> _DieWithError( Error => "Fehler bei der Initialisierung des Unter - Moduls $Package im Modul $CurrentObject" );[/color]
        
    } else { $Self -> _DieWithError( Error => "Fehler bei der Initialisierung des Moduls $Package" ); }
}