perl - 我可以在 perl 中导出使用 enum::fields 创建的常量吗？

Question

我可以导出使用创建的常量enum::fields吗？例如：

package XLine {
    use enum::fields qw{VAL SLOPE INTERVAL};
    use parent qw(Exporter);

    our @EXPORT = qw(VAL SLOPE INTERVAL);

    sub new {
    my $class = shift;
    my $self = bless [], $class;
    return($self);
    }
}

my $x = XLine->new();

printf("INTERVAL = %d\n", INTERVAL);

我应该使用不同的“常量”包吗？我用这个是因为我读到它很快，在这里： http: //neilb.org/reviews/constants.html

Answer 1

enum::fields 不是这里的问题。当您添加XLine->import(qw(INTERVAL));或者更实际地/遵循最佳实践，将 XLine 包移动到它自己的 .pm 文件中时，该代码可以工作。