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的部分并没有什么不好的，这就是其中之一。

对于你的实际问题，一个小小的谷歌搜索已经产生了一些可能性，其中柯蒂斯坡（奥维德）的Class::Sniff可能是最好的例子。

我知道转储对象时Data::Printer会打印出类层次结构。它的输出适用于人类读者，但您可以查看其代码以了解它的作用。再说一次，我几乎可以肯定它完全符合你在你的例子中所做的那样！

如何“很好地”检测Perl中类的直接父级？

1 个答案: