#!/usr/bin/perl
{
	package objTest;
	
	sub new {
# Constructor
#
# Beachten: Der Constructor erstellt das Objekt und fhrt alle
#           Unterprogramme aus, die aus dem Constructor heraus aufgerufen
#           wurden, wenn das Objekt instanziert wurde.
#
#	Die Parameter-Liste in Perl ist wie folgt organisiert:
#		1. Der Objekt-Typ, gefolgt von
#		2. Den Parametern fr das Unterprogramm, jede
#		   als einen Wert (Scalar) oder Liste (Array).
#
# Die folgenden drei Zeilen identifizieren den Typ des Objekts, 
# die Parameter fr das Objekt,
# und identifizieren das Objekt als ein Objekt.
my $type = shift;
my ($params) = @_;
my $self = {};

# "Hallo!" an STDOUT ausgeben
print "Hallo!\n";
		
# Die letzte Zeile schickt einen Zeiger zur aufrufenden Prozedur des Objekts
bless $self;
}

# Beachten: Alle verknpften Methoden wrden hier als
#           Unterprogramme definiert werden. Unterprogramme werden so 
#           aufgerufen: $objName->unterprogramm(parameter).

DESTROY {
# Destructor
#
#	Beachten:	Wenn dieses Objekt nicht ausdrcklich undefiniert 
#		ist, wird es zerstrt werden, sobald das Programm endet.
#		(Wurde das Objekt in einem Unterprogramm definiert, 
#		wrde das Verlassen des Unterprogramms das Objekt
#		aus dem Einflubereich nehmen. Das Ergebis davon
#		wre seine Zerstrung.)

# "Tsch!" an STDOUT ausgeben
print "Tsch!\n";
	
# Jetzt existiert das Objekt nicht lnger.
}
}

