Thread Vererbung von Subs ohne OO - Idee?
(32 answers)
Opened by marky at 2011-03-25 14:12
hi Markus,
falls Du nochmal reinschaust... ein minimaler Aufwand wäre dieser hier: Code (perl): (dl
)
1 2 my $o = bless {}, 'main'; # erstelle ein Object in Class main print $o->can('foo'); # teste, ob sub 'foo' in main definiert ist Die Method can() wird bei der Objekerstellung vom UNIVERSAL-Modul geerbt und liefert eine Referenz auf den CODE, wenn vorhanden. In Deinem Fall prüfst Du also, ob es die Funktion im Script selbst gibt. Wenn nicht, binde das neue Modul ein, fertisch. Viele Grüße, Rolf |