如何在 Perl 中更改 Devel::Cover 的 CSS？答案

【问题标题】：How can I change the CSS of Devel::Cover in Perl?如何在 Perl 中更改 Devel::Cover 的 CSS？
【发布时间】：2014-02-25 03:16:27
【问题描述】：

当运行./Build testcover 来测试代码覆盖率时，有没有办法我可以传递某种选项来使用我自己的样式表，也许作为替代？

我查看了Devel::Cover CPAN 文档无济于事。

【问题讨论】：

标签： perl devel-cover

【解决方案1】：

CSS 文件是cover_db/cover.css。随意改变。

【讨论】：

是的，我已经想到了，但是必须更改生成的 css 文件似乎很俗气。如果Devel::Cover 可以接受额外的覆盖样式表，那就太好了。
您始终可以将 HTML 文件复制到具有更正 CSS 文件的目录中。

【解决方案2】：

查看Devel::Cover::Report::Html_minimal 的来源，您似乎需要通过子类化并覆盖print_stylesheet() 来创建自己的报告格式来做您想做的事。这就是“简单”的部分......

接下来，您需要获取Module::Build，以便在运行cover 时使用您的自定义报告格式。同样，查看源代码，Module::Build 中的默认 testcover 操作仅运行 $self->do_system('cover') 并且由于 cover 脚本不允许您使用环境变量覆盖报告格式，因此您必须覆盖 @ 987654329@ 在给定模块的构建类中。

似乎只是在运行 ./Build testcover 后修改默认 CSS 文件，正如另一个答案中所建议的那样是一个更简单的解决方案。

【讨论】：

将其标记为正确答案，因为我使用了子类化和覆盖。