Klassen & objekte ??

[Christian Kruse]

Hallo ingo,

ich versuche mich grad in Perl OOP. Kann ich (wie ??) auf eine
Funktion/sub der aufrufenden Klasse (ist eigentlich keine Klasse)
zugreifen.

Das erste Argument, das Perl Methoden uebergibt, ist die
Objekt-Referenz.

Diese nutzt eine test.pm

package test;
sub new {
my $Objekt = shift;
my $Referenz = {};
bless($Referenz,$Objekt);

Das ist so nicht richtig. Richtiger:

$Referenz = bless($Referenz,ref($Objekt)||$Objekt);

return($Referenz);
}

Bis hierhin ok ;)

sub machwas {
...Wie kann ich von hier aus auf "ausgabe" zugreifen?
...ausgabe "hallo");
}

sub machwas {
  my $self = shift; # Referenz auf die Objekt-Instanz
  $self->ausgabe('blahr');
}

Grüße,
 CK