what if my class is
package q; @ISA=('Apache::Filter', 'Apache::RequestIO');
or look at DESTROY do we choice the right DESTROY?
some what related:
perl -MModPerl::MethodLookup -le ' \
package Apache::RequestRec; sub new { bless {}, shift }; 1; \
package My::Request; @ISA = qw(Apache::RequestRec); 1; \
package main; my $obj = My::Request->new(); \
my($hint, @modules) = ModPerl::MethodLookup::lookup_method("DESTROY", $obj); \ print $hint'
To use method 'DESTROY' add: use APR::Pool ();
but
perl -MModPerl::MethodLookup -le ' \
package Apache::RequestRec; sub new { bless {}, shift }; 1; \
package My::Request; @ISA = qw(Apache::RequestRec); 1; \
package main; my $obj = My::Request->new(); \
my($hint, @modules) = ModPerl::MethodLookup::lookup_method("DESTROY", "Apache::RequestRec"); \ print $hint'
gives nothing.
I think it handles it correctly now. In prints now:
Several modules (APR::ThreadMutex, Apache::SubRequest, APR::Pool) contain method 'DESTROY' but none of them matches class 'My::Request';
Several modules (APR::ThreadMutex, Apache::SubRequest, APR::Pool) contain method 'DESTROY' but none of them matches class 'Apache::RequestRec';
__________________________________________________________________ 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]
