Boris Zentner wrote:
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]



Reply via email to