如何在Perl运行时获取指定基类的所有派生类列表？

Perl 本身没有内置机制让基类直接获取所有继承它的子类。

核心原因 #

Perl 的继承是单向追踪的：子类通过@ISA数组声明父类，但父类不会自动记录哪些子类继承了自己。当你在foo或bar中设置our @ISA = 'base'时，只有子类知晓继承关系，base类不会收到任何通知。

手动实现方案 #

如果需要让base类获取子类列表，只能通过自定义逻辑实现，常见两种方案：

1. 遍历已加载包检查继承关系 #

遍历当前内存中所有已加载的包，逐一验证它们的@ISA数组是否包含base。这种方式能找到所有已加载的子类，但未加载的子类无法被检测到。

示例代码：

package base;

sub get_subclasses {
    my @subclasses;
    foreach my $pkg_entry (keys %main::) {
        next unless $pkg_entry =~ /::$/;
        my $pkg = $pkg_entry;
        $pkg =~ s/::$//;
        
        no strict 'refs';
        if (grep { $_ eq __PACKAGE__ } @{"${pkg}::ISA"}) {
            push @subclasses, $pkg;
        }
    }
    return @subclasses;
}

2. 子类主动注册机制 #

在基类中维护一个子类注册表，要求每个子类加载时调用基类的注册方法，将自身加入列表。这种方式更可靠，能精准控制记录的子类，但需要子类配合实现。

示例代码：

package base;
our %_subclasses;

sub register_subclass {
    my ($class, $subclass) = @_;
    $_subclasses{$subclass} = 1;
}

sub get_subclasses {
    return keys %_subclasses;
}

package foo;
our @ISA = 'base';
base->register_subclass(__PACKAGE__);

package bar;
our @ISA = 'base';
base->register_subclass(__PACKAGE__);

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