perl - 如何在 "nicely"中检测 Perl 类的直接父级？

Question

请注意 UNIVERSAL::isa 在这种情况下对我不起作用。我不想像 __PACKAGE__->isa('UNIVERSAL') 那样遍历继承树。

这是一个例子:

  use 5.10.1;
  use strict;
  use warnings;
  use utf8;
  {
    package Parent;
    #How to do this more elegantly?
    sub inherits_from_parent {
      no strict 'refs';
      return (__PACKAGE__ eq @{"$_[0]\::ISA"}[0]);
    }
  }
  {
    package Child;  
    use parent -norequire, qw(Parent);
  }
  package main;

  say "Child directly inherits from Parent"
    if Child->inherits_from_parent;
  #not wat I want 
  say 'Child is universal:'.Child->isa('UNIVERSAL');

是否有更好的方法(不使用 no strict 'refs';)来检测类的直接父类？谢谢。

Answer 1

我不认为查看类的 @ISA 数组有什么问题，事实上，这就是 Perl 所做的，而且几乎可以肯定任何诊断模块都会这样做。请记住，当您知道为什么要这样做时，关闭部分 strict 并没有什么坏处，这就是其中一种情况。

对于您的实际问题，使用谷歌搜索可以找到一些可能性，其中 Curtis Poe (Ovid) 的 Class::Sniff可能是最好的例子。

我知道Data::Printer转储对象时打印出类层次结构。它的输出是为人类读者准备的，但您可以查看它的代码以了解它的作用。同样，我几乎可以肯定它完全符合您在示例中所做的!