perl 代码覆盖率，大家进来指导下吧！！！

wanghao_sangfor

工作中碰到一个问题，要对项目中的perl语言做单元测试和代码覆盖率，单元测试已经借助Test::Class完成，但是代码覆盖率却遇到一个问题。
例子：
有mypkg.pm 文件

package  mypkg.pm

sub my_test{
       print  "code cover test\n";
}

1;

有main.pl文件

#!/usr/bin/perl -w

use mypkg;

print "start\n";
mypkg::my_test();
print "end\n";

然后 perl -MDevel::Cover main.pl执行，生成代码代码覆盖率报告，报告中只有main.pl的代码覆盖率，没有mypkg.pm文件的代码覆盖率。
求教大牛，这个问题如何解决？

wanghao_sangfor

此问题已经解决。Devel::Cover是支持此功能的，最后看代码才知道的。