如何导出或查看CPAN模块enum创建的枚举结构？

方法1：从符号表提取枚举常量 #

enum模块会将创建的枚举常量直接导入当前包的符号表中，你可以遍历符号表筛选出所有枚举值：

use enum qw(
    BITMASK:BITS_ FOO BAR CAT DOG
    ENUM: FALSE TRUE
    ENUM: NO YES
    BITMASK: ONE TWO FOUR EIGHT SIX_TEEN
);

my %enum_data;
# 禁用严格引用检查，遍历当前包符号表
no strict 'refs';
foreach my $sym (keys %main::) {
    # 只保留enum创建的常量（以子程序形式存在）
    next unless defined &$sym;
    $enum_data{$sym} = &$sym;
}

# 打印提取结果
use Data::Dumper;
print Dumper(\%enum_data);

这段代码会把所有枚举成员（比如BITS_FOO、FALSE、ONE等）和对应的值存入%enum_data哈希，直接拿到最终的键值对。

方法2：读取enum模块的内部存储 #

enum模块在运行时会把枚举的完整定义存在内部哈希%enum::enums中，你可以直接读取这个结构来获取分组、类型、前缀等完整信息：

use enum qw(
    BITMASK:BITS_ FOO BAR CAT DOG
    ENUM: FALSE TRUE
    ENUM: NO YES
    BITMASK: ONE TWO FOUR EIGHT SIX_TEEN
);

use Data::Dumper;
print Dumper(\%enum::enums);

这个哈希会按你定义的分组存储，包含每个分组的类型（ENUM/BITMASK）、前缀、成员列表和对应值，完全还原你创建的枚举结构，适合生成文档或做配置验证。

注意事项 #

• 如果是在自定义包中使用enum，需要把%main::替换为对应包的符号表，比如%My::Package::。
• %enum::enums属于模块未公开的内部变量，没有官方文档保证兼容性，生产环境使用前建议测试对应版本的稳定性。

内容的提问来源于stack exchange，提问作者Erik Bennett