使用闭包限制属性访问时，如何在Perl中定义子类并新增属性？

你遇到的核心问题是：父类A返回的是被bless的闭包对象，而非普通的哈希引用，所以直接用哈希操作或者错误复用父类闭包逻辑都会报错。下面是正确的实现思路和代码：

问题原因拆解 #

1. $this->{'b'} = 2报错：$this是父类new返回的闭包引用，不是哈希，自然不能用哈希的键值访问语法。
2. &$this('b', 2)报错（或不符合设计）：父类闭包绑定的是自身私有哈希，即便能成功赋值，'b'也会变成父类属性，而非子类独有的扩展属性，违背了子类封装的初衷。

正确实现代码 #

父类A（保持原有封装逻辑不变） #

package A;

sub new
{
   my $class = shift;
   my $this  = { 'a' => 1 };
   my $closure = sub {
      my $field = shift;
      @_ and $this->{$field} = shift;
      return $this->{$field};
   };
   return bless($closure, $class);
}

子类B（修正后的扩展逻辑） #

package B;

use parent 'A';

sub new
{
   my $class = shift;
   # 获取父类的闭包对象，用于操作父类私有属性
   my $parent_accessor = $class->SUPER::new();
   # 子类独有的属性哈希，保持封装
   my $subclass_attrs = { 'b' => 2 };

   # 子类的闭包访问器，同时处理父类和子类属性
   my $closure = sub {
      my $field = shift;
      # 优先处理子类自身属性
      if (exists $subclass_attrs->{$field}) {
          $subclass_attrs->{$field} = shift if @_;
          return $subclass_attrs->{$field};
      }
      # 父类属性交给父类的闭包处理
      return $parent_accessor->($field, @_);
   };

   return bless($closure, $class);
}

测试验证 #

my $b_instance = B->new();
# 读取父类属性
print $b_instance->('a'), "\n"; # 输出: 1
# 读取子类属性
print $b_instance->('b'), "\n"; # 输出: 2

# 修改属性
$b_instance->('a', 100);
$b_instance->('b', 200);

print $b_instance->('a'), "\n"; # 输出: 100
print $b_instance->('b'), "\n"; # 输出: 200

逻辑说明 #

• 子类通过SUPER::new()获取父类的闭包访问器，以此间接操作父类的私有属性，不破坏父类的封装。
• 子类维护自己的属性哈希，存储独有的属性，保持子类内部状态的独立性。
• 子类闭包做了分支判断：优先处理子类属性，否则委托给父类闭包处理，完美实现继承与扩展。

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