Нет покрытия для среды выполнения с Devel::Cover и ModPerl::Registry

Question

Когда я бегу Devel::Cover с ModPerl::RegistryЯ не получаю информацию о покрытии за исключением BEGIN блоки. Когда я запускаю тот же скрипт с Devel::Cover из командной строки или в виде CGI все работает хорошо (очевидно).

Как я могу сделать Devel::Cover "увидеть" мой код выполняется во время выполнения?

Вот Devel::Cover связанные вещи в моем 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::Cover поскольку startup.pl управляется root, но рабочие процессы выполняются под другим пользователем, и в противном случае они не могут читать каталоги, созданные startup.pl, Если вы знаете лучшее решение, запишите, пожалуйста.)

Answer 1

Я думаю, что это связано с тем, что Devel::Cover пришел слишком поздно, чтобы добавить хуки, т. Е. После того, как весь ваш код был скомпилирован. Я бы попробовал добавить use Devel::Cover в начале вашего startup.pl, или PerlModule Devel::Cover перед другим модулем mod_perl в httpd.conf.

Answer 2

Попробуйте запустить Apache с -X переключатель, чтобы он работал как один процесс. Вы также можете установить MaxRequestsPerChild к низкому значению (может быть, даже 1), чтобы он завершился после небольшого количества запросов.