无需AUTOLOAD，Perl子类如何批量实现父类函数的向量化？

可以通过批量生成向量化方法的方案解决这个问题——遍历父类OriginalClass的符号表，为NewClass自动创建对应的向量化方法，性能和手写方法完全一致，还能避免AUTOLOAD的动态派发开销。

实现代码 #

package OriginalClass;

sub new { return bless {bar => 123}, 'OriginalClass' }
sub foo { return shift->{bar}; }
sub baz { my $self = shift; return $self->{bar} * shift; } # 新增方法示例
1;

package NewClass;
use parent 'OriginalClass';

sub new { 
  my $class = shift;
  # 实例化前批量生成向量化方法
  $class->_generate_vectorized_methods();
  return bless \@_, 'NewClass';
}

# 批量生成向量化方法的核心逻辑
sub _generate_vectorized_methods {
  my $class = shift;
  my $parent_class = 'OriginalClass';

  no strict 'refs';
  # 遍历父类符号表中的所有条目
  foreach my $method (keys %{"${parent_class}::"}) {
    # 跳过特殊方法与私有方法
    next if $method =~ /^_/ || $method eq 'new' || $method eq 'DESTROY';
    # 仅处理子例程类型的方法
    next unless defined &{"${parent_class}::${method}"};

    # 为当前类生成向量化方法
    *{"${class}::${method}"} = sub {
      my $self = shift;
      my @args = @_;
      # 对每个封装的父类对象调用目标方法
      return map { $_->$method(@args) } @$self;
    };
  }
}

1;

方案说明 #

• 性能优势：生成的方法是直接绑定到NewClass的子例程，和手写的向量化方法执行逻辑完全一致，没有AUTOLOAD的动态查找开销。
• 自动同步：只要OriginalClass新增了公共方法，下次实例化NewClass时会自动生成对应的向量化方法，无需手动维护。
• 灵活过滤：可以通过修改过滤规则，跳过不需要向量化的方法（比如构造函数、销毁函数、私有方法），也可以指定只生成特定方法。

注意事项 #

• 如果OriginalClass在运行时动态新增方法，需要手动调用NewClass->_generate_vectorized_methods()来更新向量化方法。
• 若NewClass已有同名自定义方法，生成逻辑会覆盖它，需在过滤规则中排除对应的方法名。

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