Hi,
Am Mittwoch, 18. Februar 2004 00:37 schrieb Stas Bekman:
Boris Zentner wrote:
[...]
my $c = shift; $AUTOLOAD =~ /(\w+)$/; $c->$1(@_);
looks funny, but the we need to handle the return part too. That might be not so nice for any case.
Yes, that's not good. How about:
if (@modules) { eval "require $_" for @modules; if (@modules == 1) { my $module = shift @modules; $AUTOLOAD =~ s/.*::/$module::/; } goto &$AUTOLOAD; }
really, I think it should always be only one matching module, since we have no internal sub-classing at the moment.
I can not belive, that this work.
You mean it *does* work for you.
No, it does not work.
Let me know if does work now, and if not what does not. Thanks.
__________________________________________________________________ Stas Bekman JAm_pH ------> Just Another mod_perl Hacker http://stason.org/ mod_perl Guide ---> http://perl.apache.org mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com http://modperlbook.org http://apache.org http://ticketmaster.com
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]