Anfängerfrage OOP

[Daniel Thoma]

Hallo Matthias,

sub new {
  my $Objekt = shift;
  my $Referenz = {};
  bless($Referenz,$Objekt);
  $Objekt->{NAME} = shift;

Der Fehler liegt hier. Du müsstest $Referenz->{NAME} = shift; schreiben.
$Object enthält nur den Klassennamen.

return($Referenz);
}

Grüße

Daniel