mod_perl 问题 通过Apache2::ServerRec 无法找到loglevel这个方法的问题

as710054

最近在学习mod_perl 的开发，遇到个问题，我先说下我的mod_perl 配置环境

LoadModule apreq_module /usr/lib/apache2/modules/mod_apreq2.so

PerlPostConfigRequire /var/www/mod_perl/startup.pl
PerlModule ModPerl::Registry
PerlModule Apache:BI

Alias /perl /var/www/mod_perl/

PerlSetEnv PERLDB_OPTS "NonStop=1 LineInfo=/tmp/db.out AutoTrace=1 frame=2"
PerlModule Apache:B

<Location /perl>
    PerlFixupHandler Apache:B
    SetHandler perl-script
    PerlResponseHandler WroxHandlers::TestResponseHandler
    PerlOptions +ParseHeaders +GlobalRequest
    Options +ExecCGI
</Location>

其中 /var/www/mod_perl/startup.pl  内容如下，主要是因为WroxHandlers::TestResponseHandler 这个模块在/var/www/mod_perl 下

#!/usr/bin/perl
#
use lib '/var/www/mod_perl';

1;
WroxHandlers::TestResponseHandler里面有一部分代码如下

package WroxHandlers::TestResponseHandler;

use strict;
use warnings;
use Apache2::Const -compile => qw(OK REDIRECT LOG_DEBUG);
use Apache2::Request ();
use Apache2::RequestIO ();
use Apache2::Upload ();
use Apache2:irective ();
use Apache2::RequestRec ();
use Apache2::Connection();
use Apache2::SubRequest ();
use Data:umper;

sub handler {
    my ($r)= @_;
    my $url= $r->uri;
    my $form;

    my $s= $r->server;

    $s->loglevel(Apache2::Const::LOG_DEBUG);

}

每次浏览器里发送请求都报错：err.log 里如下

Can't locate object method "loglevel" via package "Apache2::ServerRec" at /var/www/mod_perl/WroxHandlers/TestResponseHandler.pm

百思不得其解，最后把$s->loglevel(Apache2::Const::LOG_DEBUG);注释完事。程序跑通。

请问这是什么原因呢？

apache 的mpm模块是prefork

as710054

最后在apache配置文件里加入

PerlModule Apache2::ServerRec

问题解决了。
但是前因后果依然不明