package Host2;

use Switch;

# Konstruktor
sub new
{
  # Perl uebergibt zuert die Bezeichnung der Klasse
  my $class = $_[0];
  # aufbau eines assoziativen Arrays um Speicher zu Allokieren
  my $this  = {
                hostname => $_[1],
                net      => $_[2],
                parents  => $_[3],
              };
    # this wird die Klasse zugeurdnete
    bless $this, $class;
    # gibt die Referenz auf this(Instanz) zurueck
    return $this;
}
# fuegt eine Eigenschaft hinzu
sub set
{
  # Referenz auf Instantz
  my $this = shift;
  # zu schriebende Variable
  my $name = shift;
  # Wert der Variable
  my $value = shift;
  # speichert Variable und Wert in der Instanz
  $this->{$name} = $value;
}
# gibt eine Eigenschaft zurueck
sub get
{
  # Referenz auf Instantz
  my $this = shift;
  # zu lesende Variable
  my $name = shift;
    # Rueckgabe des angefragten Werts
    return $this->{$name};
}
1;