Yona Shlomo wrote: > Is well in place, but alas, I'm too lazy to implement > several dozens of functions/methods that are the same except > for their name... and then change (all of them with no > mistakes) then when needed... > How about...
<UGLY>
BEGIN {
no strict 'refs';
*{__PACKAGE__ . '::' . $_} = sub {}
for qw/foo bar baz DESTROY/;
}
</UGLY>
HTH :-)
~Y
_______________________________________________
Perl mailing list
[email protected]
http://perl.org.il/mailman/listinfo/perl
