In Deinem Fall sollte es also so gehen:
tut es, aber...
sub new {
my $class=shift;
my $self={};
my $obj = bless $self,$class;
# weiter Operationen
return $obj;
}
Einmal umständlich.
~~~perl
sub new {
my $self= bless{}, shift;
# weiter Operationen
return $self;
}
und er muss aufpassen, falls das Objekt von einem Objekt erzeugt werden soll, also so:
my $pp1=Parkplatz->new();
my $pp2=$pp1->new();
Dann funktioniert das nicht. Daher ist der flexibelste Weg ein Objekt zu erzeugen so:
sub new {
my $self = bless{}, ref $_[0] || $_[0];
# tu was
return $self;
}
Struppi.