为什么导出函数my_func（）但未定义时，*main:：my_func{CODE}*是coderef？

Question

我有一个项目，我重命名了一个Perl模块，因为它的名称过于通用，并编写了一个小的兼容性模块。我甚至为兼容性模块写了一个测试，但结果是假阳性。为什么这感觉很难测试？如果由于副作用而无法调用导出函数，如何实际测试其存在性？

在兼容性模块中，我继承了新模块，但没有导入其功能。令我惊讶的是，这还不够。在这里，我构建了一个只涉及1个包的最小示例：

use strict;
use warnings;
use feature qw(say);

{
    package MyPackage;

    use parent 'Exporter';
    our @EXPORT = qw(foo);
}

MyPackage->import();

say *main::foo{CODE};
say *MyPackage::foo{CODE};
say main->can('foo');
say MyPackage->can('foo');
foo();

（我将使用MyPackage替换为MyPackage。）-

输出：

CODE(0x55fa5cf9e750)
CODE(0x55fa5cf9e750)
CODE(0x55fa5cf9e750)
CODE(0x55fa5cf9e750)
Undefined subroutine &MyPackage::foo called at inherit.pl line 16.

这一切看起来像是函数存在，但当我试图调用它时，它失败了。

这是Perl 5.34。

更新回答zdim的问题：实际问题是什么？

我将实际代码从OldModule移动。pm至新建模块。pm（当然不是他们的真名）并创建了一个新的旧模块。pm与使用该软件的现有软件兼容。实际代码通过import（）以及类和对象方法提供了两个包函数。所以我使用了使用父“NewModule”来继承它们。我相信这也会继承包函数。我用Test2的进行的测试可能会错误地显示它工作了。

多亏了一位同事的错误报告，我才知道这还不够，并发现我还需要导入包函数。

我不能简单地调用有问题的函数来测试兼容性包，因为这是CGI应用程序的一部分，这些函数实际上执行数据库操作或将内容打印到STDOUT，并且会污染我的TAP输出。（是的，我的部分任务当然是摆脱CGI。）

package OldPackage;

# ABSTRACT: transitional package for new name NewPackage

use strict;
use warnings;

use NewPackage;  # this is the line I added to fix the issue

use Exporter qw(import);
our @EXPORT = @NewPackage::EXPORT;   # this line only declared undefined functions

1;




Answer 1

实际上，出口商做了类似的事情：

*main::foo = \&MyPackage::foo;

就像标量、数组和散列一样，引用子元素会使符号生动。具体地说，它会创建一个未定义的sub，就好像你做了sub-foo 。

$ perl -M5.010 -e'
   \&foo;    say *foo{CODE};
   sub bar;  say *bar{CODE};
'
CODE(0x55da28044470)
CODE(0x55da28073750)

存在(

$ perl -M5.010 -e'
   sub foo { }
   sub bar;
   
   for (qw( foo bar baz )) {
      say exists(  &$_ ) ? "$_ exists"     : "$_ doesn\x27t exist";
      say defined( &$_ ) ? "$_ is defined" : "$_ isn\x27t defined";
   }
'
foo exists
foo is defined
bar exists
bar isn't defined
baz doesn't exist
baz isn't defined