Hi,
Am Dienstag, 17. Februar 2004 03:06 schrieb Stas Bekman:
> > something like
> >
> > 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. what if my class is
package q;
@ISA=('Apache::Filter', 'Apache::RequestIO');
or look at DESTROY do we choice the right DESTROY?
--
Boris
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
