perl - 在 perl 中使用 enum::fields 创建的奇怪导出常量

Question

我创建了两个测试模块，X.pm并且X2.pm. 该X.pm模块有效。该X2.pm模块没有，至少不像我期望的那样。

下午

package X {

    use enum::fields qw(I_VAL);
    use parent qw(Exporter);

    our @EXPORT = qw(I_VAL);
}

X2.pm

package X2 {

    our @EXPORT = qw(I2_VAL);

    use enum::fields (@EXPORT);
    use parent qw(Exporter);

}

测试程序是：

use X;
use X2;

printf("I_VAL = %d\n", I_VAL);
printf("I2_VAL = %d\n", I2_VAL);

输出是：

bash$ ./tmp/testit
I_VAL = 0
Undefined subroutine &X2::I2_VAL called at /home/bennett/tmp/testit line 15.

真正的项目有几十个enum::fields，并且X2.pm是我尝试使枚举与导出保持同步。

我的问题是：

• 为什么不起作用X2？enum::fields是在运行前导出（导入） 吗？
• 我该怎么办？

Answer 1

Use 语句在编译后立即执行，因此

use enum::fields (@EXPORT);

之前执行

our @EXPORT = qw(I2_VAL);

这会起作用：

package X3;

use strict;
use warnings;

my @enum; BEGIN { @enum = qw( I2_VAL ); }

use Exporter     qw( import );
use enum::fields @enum;

our @EXPORT = @enum;

1;