如何捕获Perl中鲤鱼的输出？

鲤鱼警告工作正常 – 我正在检查输入参数是否满足特定条件 – 如果不符合条件,则会发出鲤鱼警告,模块继续使用参数的默认值,而不是调用程序通过.该警告只是通知正在使用默认参数,而不是传入的参数.

我的问题是我的测试脚本.我的测试脚本将错误的参数发送到模块,我正在尝试捕获回来的警告消息,并确保我收到了正确的警告消息.

我的模块看起来像这样：

else {
  carp "value must be numeric - using default value";
}

我的测试脚本如下所示：

eval {
  #call to my module
};
like (
    $@,qr/value must be numeric/,"Should abort on non-numeric value"
);

当我运行测试时,我可以在屏幕上看到警告(它必须去STDERR),但$@变量的内容是” – 空白.

这是我测试脚本的输出：

t/04bad_method_calls....ok 10/12value must be numeric - using default value at ...
#   Failed test 'Should abort on non-numeric value'
#   at t/04bad_method_calls.t line 98.
t/04bad_method_calls....NOK 12
#                   '' doesn't match '(?-xism:value must be numeric)'
# Looks like you failed 1 test of 12.

如果我将鲤鱼变成呱呱呱呱呱呱呱呱呱呱呱呱呱呱.,…….. – – – ……………….

说实话,我没有对eval的最好的了解 – 也许这不是捕捉鲤鱼警告输出的最佳方法.我尝试使用$SIG {WARN},但也是空的.

有没有办法捕捉鲤鱼的输出？这不是最大的事情,因为这只是我的测试脚本,但我仍然希望让我的测试脚本正常工作.

提前致谢！