如何为Perl类实现轻量默认访问器？无需第三方包的方案

问题背景 #

我有一个Perl类示例如下：

package Foo;

sub new {
    my ($class,$hashref) = @_;
    my $self = bless $hashref, $class;
}

通过以下代码初始化：

my $foo = Foo->new( { bar => 2, othervar => 8 } );

目前我可以通过print $foo->{ bar };访问属性，但这种方式较为繁琐，更倾向于使用print $foo->bar的形式。不过类中有大量属性键，我不想为每个键编写单独的访问器（或者这才是最佳实践？）。

我尝试使用AUTOLOAD实现：

our $AUTOLOAD;
sub AUTOLOAD {
    my $self = shift;

    my $called =  $AUTOLOAD =~ s/.*:://r;

    die "No such attribute: $called"
        unless exists $self->{$called};

    return $self->{$called};
}

sub DESTROY { } # see below

但perldoc perlobj中指出# XXX - this is a terrible way to implement accessors。请问在不使用Moose、Class::Accessor等第三方包的情况下，有没有更好的轻量实现方案？

可行方案 #

1. 动态生成静态访问器 #

在类加载或对象初始化时，为属性生成对应的静态方法，避免AUTOLOAD的性能开销和调试复杂度。

固定属性列表场景

如果属性是预先已知的，可以在包内直接遍历生成：

package Foo;

sub new {
    my ($class, $hashref) = @_;
    my $self = bless $hashref, $class;
    return $self;
}

# 定义允许的属性集合
my @allowed_attrs = qw(bar othervar);

foreach my $attr (@allowed_attrs) {
    no strict 'refs';
    # 生成只读访问器
    *{$attr} = sub {
        my $self = shift;
        return $self->{$attr};
    };
}

动态属性场景

如果属性是构造时动态传入的，可以在new方法中为首次出现的属性生成访问器：

sub new {
    my ($class, $hashref) = @_;
    my $self = bless $hashref, $class;
    
    foreach my $attr (keys %$hashref) {
        no strict 'refs';
        # 仅当方法未定义时生成
        unless (defined &{$attr}) {
            *{$attr} = sub {
                my $self = shift;
                return $self->{$attr};
            };
        }
    }
    
    return $self;
}

这种方式生成的方法是静态存在的，后续调用无需走AUTOLOAD逻辑，性能更优，且可读性更强。

2. 优化版AUTOLOAD #

如果必须使用AUTOLOAD，可通过缓存生成的方法来避免重复解析开销：

package Foo;

our $AUTOLOAD;

sub AUTOLOAD {
    my $self = shift;
    my $called = $AUTOLOAD =~ s/.*:://r;
    
    # 校验属性是否存在
    die "No such attribute: $called" unless exists $self->{$called};
    
    # 动态生成该属性的访问器，后续直接调用
    no strict 'refs';
    *{$AUTOLOAD} = sub { shift->{$called} };
    
    # 执行刚生成的方法
    return $self->$called;
}

sub DESTROY {} # 避免AUTOLOAD捕获DESTROY调用

第一次调用属性方法时走AUTOLOAD逻辑，之后会直接调用生成的静态方法，性能接近手动编写的访问器。

关于最佳实践的讨论 #

• 如果属性数量可控且固定，手动编写访问器是最优选择：可在方法中添加参数校验、类型检查等逻辑，代码可读性和可维护性更强，也避免了AUTOLOAD的潜在问题（如方法名冲突、调试困难）。
• 若属性数量极多或动态变化，动态生成访问器或优化后的AUTOLOAD是合理的折中方案，兼顾开发效率和性能。

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