Devel::Cover - только подпрограмма покрытия

Question

Я хочу, чтобы в моем файле perl только подпрограмма. Поэтому в основной файл я вставил следующее утверждение:

mainfile.pl

use Devel::Cover::Subroutine;

Если я запускаю mainfile.pl, он показывает ошибку:

Devel::Cover: Writing coverage database to /home/devel1/Devel-Cover-0.78/examples1/cover_db/runs/1319109459.10082.56199
Can't find digest for mainfile.pl at /opt/perl_32/lib/site_perl/5.8.8/IA64.ARCHREV_0-thread-multi/Devel/Cover/DB/Structure.pm line 282.
Devel::Cover: Can't find digest for mainfile.pl
--------------------------------------------------------------- ------ ------
File                                                               sub  total
--------------------------------------------------------------- ------ ------
Total                                                              n/a    n/a
--------------------------------------------------------------- ------ ------

Как я могу устранить эту ошибку? Но когда я использую только use Devel::Cover; это работает правильно.

Answer 1

Devel::Cover::Subroutine является внутренним модулем, используемым Devel::Cover для представления данных покрытия подпрограммы. Вы не должны использовать это напрямую. Вместо этого вы должны использовать Devel::Cover с -subs_only вариант.