Perl - 未定义的子例程

Question

我有以下 Perl 代码：

use Email::Sender::Simple;
use IO::Socket::SSL;

IO::Socket::SSL::set_defaults(SSL_verify_mode => SSL_VERIFY_NONE);

Email::Sender::Simple::sendmail($email, { transport => $transport });

当我运行它时，我得到了这个错误：

Undefined subroutine &Email::Sender::Simple::sendmail called at script.pl line 73.

如果我将代码更改为具有以下内容，那么它可以工作：

use Email::Sender::Simple qw(sendmail);

sendmail($email, { transport => $transport });

有人可以解释为什么我必须更改 sendmail 的代码，而我不必更改 set_defaults 的代码，如下所示：

use IO::Socket::SSL qw(set_defaults);

set_defaults(SSL_verify_mode => SSL_VERIFY_NONE);

Answer 1

看看代码Email/Sendmail/Simple.pm。该程序中没有sendmail 子例程。相反，如果您查看标题，您会看到：

use Sub::Exporter -setup => {
  exports => {
    sendmail        => Sub::Exporter::Util::curry_class('send'),
    try_to_sendmail => Sub::Exporter::Util::curry_class('try_to_send'),
  },
};

我不熟悉Sub::Exporter，但我确实注意到了这个描述。

Sub::Exporter 与现有导出器（包括无处不在的 Exporter.pm）相比的最大优势在于它能够构建新的导出代码引用，而不是简单地导出与导出包中相同的代码。

哦...

因此，使用Sub::Exporter 的目的是导出包中不属于子例程的子例程名称。

如果你有兴趣，可以阅读Sub::Exporter的教程，不过貌似可以导出不同名字的子程序。

因此，Email::Sender::Simple::sendmail 不是子例程，但 sendmail 仍然可以导出。