为什么 Scalar::Util 和 Test::Most 不能很好地配合使用？

Question

拿这个简单的测试用例：

#!/usr/bin/env perl

use Test::Most;
use Scalar::Util qw( reftype );

ok( 1, 'foo' );

done_testing();

运行这个测试会给我以下输出：

原型不匹配：sub main::reftype: none vs ($) at /Users/olaf/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/Exporter.pm 第 66 行。

有两种方法可以消除此警告。

• 我可以使用 Test::More 而不是 Test::Most
• 我可以使用 Test::Most 但不是显式导入 reftype

我可以调用 Scalar::Util::reftype （甚至使用另一个模块），但我正在寻求一些帮助来调试这个问题，以便我可以提交适当的错误报告，因为我'我不确定警告的根本原因在哪里。

Answer 1

Test::Most 和Scalar::Util 都定义了称为reftype 的函数，而您调用use 的方式会导致两个模块都尝试将它们的reftype 函数导出到调用包。有时这会触发Subroutine ... redefined 警告，但在这种情况下Scalar::Util::reftype 想用原型定义自己，所以冲突是一个更严重的错误。

调用Scalar::Util::reftype($ref)以外的一些选项：

一个。为Scalar::Util::reftype定义和使用不同的别名

使用标量::Util (); 开始 { *su_reftype = *Scalar::Util::reftype; } print "reftype is ", su_reftype($ref), " ...";

两个。在加载Scalar::Util之前从符号表中删除reftype：

使用 Test::Most; 开始 { *{reftype} = '' } 使用 Scalar::Util 'reftype';