Thread Vererbung von Subs ohne OO - Idee? (32 answers)
Opened by marky at 2011-03-25 14:12

rosti
 2011-04-21 20:03
#147932 #147932
User since
2011-03-19
3193 articles
BenutzerIn
[Homepage]
user image
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

View full thread Vererbung von Subs ohne OO - Idee?