Kalde funktion i kaldende klasse
Morten P
instantieret en underklasse.
Der er ikke anvendt ISA og eksemplet nedenfor fejler.
Kan det l�ses p� en smart m�de?
package Top;
sub logger {
...
}
my $H = new Helpers()
$H->stuff();
...
package Helpers;
sub stuff {
my $self = shift;
# WRONG
$self->SUPER::logger('bla bla');
}
Peter Makholm
> Jeg ï¿œnsker at kalde en log metode der findes i den klasse der har
> instantieret en underklasse.
> Der er ikke anvendt ISA og eksemplet nedenfor fejler.
Nï¿œr du ikke 'anvender ISA' har du ikke et klassehierarki og det giver
derfor ikke mening at tale om SUPER.
> Kan det lￜses pￜ en smart mￜde?
Jeg er ikke helt overbevist om at det overhovedet er smart. Men hvis
du det, kan det selvfï¿œlgelig lade sig gï¿œre. Enten kan du kalde logger
metoden i den klasse der har kaldt din stuff-metode:
caller->logger("yadda yadda yadda");
Ellers skal du gemme (caller)[0] i din konstruktï¿œr:
package Helpers;
sub new {
my $class;
bless { master => (caller)[0] }, $class;
}
sub stuff {
my $self;
$self->{master}->logger("yadda yadda yadda");
}
> sub logger {
> ...
> }
>
> my $H = new Helpers()
Du bï¿œr iï¿œvrigt skrive 'Helpers->new()' istedet for ovenstï¿œende, der
desvï¿œre ikke er helt entydigt for perl parseren.
> $H->stuff();
>
> ...
//Makholm
Morten P
Det _er_ det heller ikke, men nogen gange kr�ver det at folk med mere viden
p�peger det s� man motiveres til et redesign :-)
Jeg g�r igang!
Tak for forslaget, jeg l�rte en del af det faktisk :-)
> Du b�r i�vrigt skrive 'Helpers->new()' istedet for ovenst�ende, der
> desv�re ikke er helt entydigt for perl parseren.
Hvilke problemer risikerer man at l�be ind i?
Er det "bare" at det tager l�ngere tid for den at gennemskue?
Peter Makholm
>> Jeg er ikke helt overbevist om at det overhovedet er smart
>
> Det _er_ det heller ikke, men nogen gange krï¿œver det at folk med mere viden
> pￜpeger det sￜ man motiveres til et redesign :-)
>
> Jeg gï¿œr igang!
Hvis det bare er for at finde den korrekte metde til log-beskeder, sￜ
ville jeg faktorisere lognings-kode ud i sin egen klasse og sￜ give et
sￜdan objekt med ved instantiering af alle objekter. Det gￜr det ogsￜ
lettere hvis du pￜ et tidspunkt har lyst til at skulle flere led op,
end bare 'klassen der har instantieret mig', men helt op til 'fï¿œrste
klasse der har en holdning til logning'.
[ Re: 'new Helpers ();' ]
>> Du bï¿œr iï¿œvrigt skrive 'Helpers->new()' istedet for ovenstï¿œende, der
>> desvï¿œre ikke er helt entydigt for perl parseren.
>
> Hvilke problemer risikerer man at lï¿œbe ind i?
Problemet er at perl vil foretrï¿œkke allerede erklï¿œret en new()
funktion fra det aktuelle namespace. Det vil sige at betydningen af
din kode kan ￜndre sig hvis du flytter lidt rundt pￜ dine
funktionserklï¿œringer.
//Makholm
Morten P
Det var dog utroligt!
Jeg har default v�rdier i $self i new() i mine klasser.
Jeg fik warnings p� undef variabler, hvilket slet ikke gav mening.
Jeg instantierede klassen med:
my $C = new $class_name;
Vill for sjov teste med "din" syntaks:
my $C = $class_name->new();
Og s� fungerede det :-)
Jeg m� l�se op p� bless for jeg kunne anvende $self overalt i klassen selvom
new() aldrig var blevet k�rt og derfor ingen bless.
Endnu engang, tak :-)