Hallo zusammen,

bin momentan dabei mich etwas in Perls OOP einzuarbeiten, habe dabei allerdings ein Problem bei der Vererbung. Und zwar habe ich bspw. die zwei Klassen/Packages A und B. Das Package B erbt dabei die new() und _init() Methoden des ersten Packages A über @ISA. Ich wollte nun in der _init() Methode eine Fallunterscheidung machen anhand des Packagenamens, den mir caller() liefert. Allerdings kann ich tun was ich will, es wird mir immer Package A als caller zurückgegeben, wenn ich über ein Objekt des Packages B die _init() Methode aufrufe. Hab ich eventuell irgendwas nicht beachtet oder ist das working as intended?