nicht angemeldet
Hallo,
ich versuche mich grad in Perl OOP. Kann ich (wie ??) auf eine Funktion/sub der aufrufenden Klasse (ist eigentlich keine Klasse) zugreifen.
Ich habe eine Anwendung machwas.pl welche eine Ausgabe hat.
use test;
ausgabe ("hallo")
$mytest=new test();
sub ausgabe
{
$text=@_;
print $text;
}
Diese nutzt eine test.pm
package test;
sub new {
my $Objekt = shift;
my $Referenz = {};
bless($Referenz,$Objekt);
return($Referenz);
}
sub machwas {
...Wie kann ich von hier aus auf "ausgabe" zugreifen?
...ausgabe "hallo");
}
Ich denke das beim new aufruf eine Referenz mitgegeben wird, wie komme ich im Package daran? Wenn dem nicht so ist wie kann ich die übergeben.
Gruß Ingo