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

#perl #devel-cover

#perl #devel-cover

Вопрос:

Я хочу, чтобы в моем файле 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; , он работает правильно.

Комментарии:

1. cursader: не используйте HTML-разметку в своих сообщениях, но используйте правильные заглавные буквы. В редакторе есть ? кнопка, чтобы узнать, как вставлять код.

Ответ №1:

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