sub new {
	
	# Initialisierung des Konstruktors
	
	my ( $Class , %Parameter ) = @_;

	my $Self = { };
	bless( $Self , $Class );
	
	# ------------------------------------------------------------------------------------------
	
	$Kernel::OM -> { SE } -> { 'Kernel::Extensions::IMCR' } -> { Name } = "IMCR";
	
	$Self -> { Testumgebung } = 'ERFOLG';

	my $LH = $Kernel::OM -> Load( 'Kernel::Logs' );

	$LH -> Log( Prio => 'Error' ,
		    Code => 'T1000' ,
		    MSG  => 'Testumgebung' );
	
	return $Self;

}