Devel::Cover和ModPerl::Registry不覆盖运行时

当我跑步的时候 Devel::Cover 具有 ModPerl::Registry BEGIN 阻碍。当我运行相同的脚本时 Devel::封面 从命令行或作为一个CGI,一切工作正常(显然)。

我该怎么做 Devel::封面

这是 Devel::封面 我的相关资料 httpd.conf :

MaxClients 1
PerlSetEnv DEVEL_COVER_OPTIONS -db,/tmp/cover_db,-silent,1
PerlRequire /var/www/project/startup.pl

这是 startup.pl

#!/usr/bin/perl
use strict;
use warnings;

use Apache2::Directive ();

BEGIN {
    # Devel::Cover database must be writable by worker processes
    my $conftree = Apache2::Directive::conftree->as_hash;
    my $name = $conftree->{User}
        or die "couldn't find user in Apache config";
    print "user=$name\n";

    my $uid = getpwnam($name);
    defined $uid
        or die "couldn't determine uid by name";

    no warnings 'redefine';
    local $> = $uid;

    require Devel::Cover;

    my $old_report = \&Devel::Cover::report;
    *Devel::Cover::report = sub { local $> = $uid; $old_report->(@_) };

    Devel::Cover->import;
}

1;

(如你所见,我为 Devel::封面 自从 正在运行 root ,但工作进程在不同的用户下运行,否则它们无法读取由 启动.pl . 如果你知道更好的解决方案,请记下。)