Deine erste sub wird nie aufgerufen. Pack da doch mal ein say "hallo" rein - das wirst du nie sehen.

Mit $self = shift; bekommst du einmal die Referenz auf die Klasse, einmal eben die 4.

Du könntest mit ref $self testen, ob es sich um Term_Choose handelt. Dann brauchst du auch keine 2 Funktionen mit demselben Namen.

Edit: Muffi schreibt isa. Das ist vermutlich besser als mein "ref", muss dann aber in ein eval-Block, weil z.B. 4->isa nicht geht.
Last edited: 2014-02-14 20:00:50 +0100 (CET)