unit-testing - 有没有办法在你的单元测试中覆盖 Perl "use constant"？

Question

我有一个 Perl 模块，我声明了一些常量:

use constant BASE_PATH => "/data/monitor/";

在实际操作中，常数将 从不更改但我希望能够在我的单元测试中对其进行修改，例如将其设置为 ~/project/testdata/ .有没有办法做到这一点而不必使用全局可变变量？

我可以使用 Test::MockObject在 constant ?

Answer 1

当使用常量时，它们被实现为常量函数，行为如下:

use subs 'BASE_PATH';
sub BASE_PATH () {"/data/monitor/"}

程序中对 BASE_PATH 的任何使用都是内联的，因此无法修改。

为了达到类似的效果，您可以手动使用 subs pragma(使 BASE_PATH 表现为内置函数)并将 BASE_PATH 声明为标准函数:

use subs 'BASE_PATH';
sub BASE_PATH {"/data/monitor/"}

print "BASE_PATH is ".BASE_PATH."\n";

*BASE_PATH = sub {"/new/path"};
print "BASE_PATH is ".BASE_PATH."\n";

尽管您为什么要这样做，但我不太确定。