Perl -d和modulino问题

我有一些脚本,我已经开始使用“modulino”的想法进行单元测试.我遇到了一个问题,当使用“perl -d”调用脚本时,脚本不会运行,因为caller()返回一个true值.

我将脚本的主体包裹在main()中,并将一些子程序慢慢地从main()中拉出到它们自己的子程序中.

在脚本的顶部我有：

main(@ARGS) unless caller();

当在.t测试中调用时,它可以按我的意愿工作,而不是运行main(),所以我可以测试子程序.当我从CLI调用脚本时,它可以很好地调用main().

当我从CLI调用它时出现问题：

perl -d myscript.pl

在此阶段,调用者返回一个有效值(而不是undef),并且不调用main.

关于如何处理这个建议将非常感激.

解决方法

使用-d开关的情况与测试类似 – 您的代码由其他东西执行,在本例中为调试器.

您可以通过手动在调试器中调用main来自行运行main,也可以检测调用者是否是调试器.就像是：

main(@ARGS) if !caller() || (caller)[0] eq 'DB';

原文地址：https://www.jb51.cc/Perl/172162.html