无法正确使用 Exporter

Question

我已经在包含Exporter 语句的更大代码块上浪费了很多天，这在大约一年前曾经可以工作。这方面的几个变体都失败了，包括安装 ./FOO/BAR/Foobar.pm 表示成功。

我使用的是 Windows 10，Perl v5.26.0，专为 MSWin32-x64-multi-thread 构建

来电者.pl

   #!/usr/bin/perl

   use lib ".";
   use lib "./FOO/BAR";

   use strict;
   use warnings;

   use FOO::BAR::Foobar;

   print "try FOO::BAR::Foobar::foo()\n";
   FOO::BAR::Foobar::foo();  # perl can't find this

   print "try foo()\n";
   foo();          # errors out - can't find &main::foo

   print "done\n";

./FOO/BAR/Foobar.pl

#!/usr/bin/perl -w

use strict;
use warnings;

package Foobar;

our($VERSION , @ISA , @EXPORT , @EXPORT_OK , %EXPORT_TAGS , $FOO);

BEGIN {
    require Exporter;
    @ISA       = qw(Exporter);
    @EXPORT_OK = qw(foo);
}

sub foo {
    print "Loaded\n";
    $FOO = q{some val};
}

1;

执行转储

perl Caller.pl
try FOO::BAR::Foobar::foo()
Undefined subroutine &FOO::BAR::Foobar::foo called at Caller.pl line 12.

发生了什么事？我应该放弃使用Exporter 吗？那么如何跨模块链接功能呢？

Answer 1

出了三件事：

1. 有FOO::BAR::Foobar::foo()：没有sub，只有Foobar::foo()。

2. 使用foo()：use FOO::BAR::Foobar; 等效于BEGIN { require FOO::BAR::Foobar; FOO::BAR::Foobar->import() }，但在包FOO::BAR::Foobar 中没有可用的方法import，因为您将Exporter 继承到包@ 中987654331@.

3. 使用foo()：您使用的是@EXPORT_OK 而不是@EXPORT，这意味着您需要显式导入foo，但您没有在use FOO::BAR::Foobar; 中这样做。

所以需要做两件事来解决这个问题：

1. 正如@HåkonHægland 在评论中已经指出的，将package Foobar; 更改为package FOO::BAR::Foobar;。

2. 将use FOO::BAR::Foobar; 更改为use FOO::BAR::Foobar qw/foo/;。

那么您显示的代码将起作用 - 无需放弃 Exporter。我只是推荐使用Exporter 的不同风格：不要通过@ISA 继承，只需将import 导入您的包中。这是我将如何编写您的文件./FOO/BAR/Foobar.pm：

package FOO::BAR::Foobar;
use strict;
use warnings;

use Exporter 'import';
our @EXPORT_OK = qw(foo);

our $FOO;
sub foo {
    print "Loaded\n";
    $FOO = q{some val};
}

1;