是否有标准的CPAN方法来查找Perl类的所有超类(或更好的整个超类树,直到UNIVERSAL)？
或者是为每个班级,班级的父母等简单地检查@ {“${$class} :: ISA”}的最佳做法？
解决方法
没有“标准方式”,因为这不是您想要做的标准事情.除了可视化之外,想要检查继承树的是OO红旗.
除了Class :: ISA之外,还有mro::get_linear_isa().两者都已经在核心中存在了一段时间,所以它们可以被认为是某些定义的“标准”.这两个都显示继承作为一个平面列表,而不是一个树,这对于深层魔法很有用.
perl5i meta object提供linear_isa(),就像mro(它只是调用mro)和ISA()返回类’@ISA.它可以用于使用简单递归构造树而无需进入符号表.
- use perl5i::2;
- func print_isa_tree($class,$depth) {
- $depth ||= 0;
- my $indent = " " x $depth;
- say $indent,$class;
- for my $super_class ($class->mc->ISA) {
- print_isa_tree($super_class,$depth+1);
- }
- return;
- }
- my $Class = shift;
- $Class->require;
- print_isa_tree($Class);
- __END__
- DBIx::Class
- DBIx::Class::Componentised
- Class::C3::Componentised
- DBIx::Class::AccessorGroup
- Class::Accessor::Grouped