Perl模块中子例程（常量）默认导出失效，原因何在？

编写了一段在Perl模块中动态创建常量并导出的代码，但导出功能失效：显式使用限定符调用常量可正常运行，但默认@EXPORT似乎被忽略。以下是极简示例代码及报错信息：

示例代码 #

Bad.pm #

package Bad;

require 5.018_000;
use warnings;
use strict;

use constant LIST => [qw(ABC DEF)];

our (@EXPORT, @EXPORT_OK, $VERSION);
BEGIN {
    require Exporter;
    our $VERSION = 1.00; # for version checking
    @EXPORT = @EXPORT_OK = @{(LIST)};
}

BEGIN {
    sub ABC () { 0; }
    sub DEF () { 1; }
}

ABC; # no error!

1;

badtest.pl #

#!/usr/bin/perl
use warnings;
use strict;

use Bad;

exit Bad::DEF; # no error
exit ABC; # error!

报错信息 #

Bareword "ABC" not allowed while "strict subs" in use at badtest.pl line 8.
Execution of badtest.pl aborted due to compilation errors.
 at badtest.pl line 8.

核心原因：Exporter导入时机与BEGIN块执行顺序冲突 #

Perl中use Module在编译阶段会依次执行require Module、调用模块的import方法、处理符号表。你的代码存在两个关键顺序问题：

1. 仅require Exporter但未让Bad包继承Exporter的方法，导致Exporter的import机制未被正确触发，@EXPORT的配置无法生效。
2. 给@EXPORT赋值的操作早于常量子程序的定义，Exporter执行import时无法识别尚未存在的符号。

修复步骤 #

1. 让模块正确继承Exporter #

通过继承Exporter来自动引入import方法，替代单纯的require Exporter，Perl 5.10+推荐使用use parent语法：

use parent 'Exporter';

2. 调整执行顺序，确保符号存在后再配置导出列表 #

先定义常量子程序，再给@EXPORT赋值，确保Exporter能识别要导出的符号。修改后的Bad.pm如下：

package Bad;

require 5.018_000;
use warnings;
use strict;
use parent 'Exporter'; # 继承Exporter，自动引入import方法

use constant LIST => [qw(ABC DEF)];

our (@EXPORT, @EXPORT_OK, $VERSION);
$VERSION = 1.00; # for version checking

# 先定义常量子程序
BEGIN {
    sub ABC () { 0; }
    sub DEF () { 1; }
}

# 再配置导出列表，此时符号已存在
@EXPORT = @EXPORT_OK = @{ LIST() };

ABC; # no error!

1;

3. 验证修复效果 #

修改后运行badtest.pl，ABC可直接调用，不会再触发严格模式下的裸词错误。

额外说明 #

• 带()的常量子程序是编译阶段创建的，必须确保Exporter的import在这些子程序定义后执行，否则无法导出。
• 若不使用继承，需手动调用Exporter::import，但继承方式更符合Perl模块的常规写法。

内容的提问来源于stack exchange，提问作者U. Windl