Perl的對象體系內省

Question

可以說我有以下包層次：

A--> B --> C --> D 

這意味着A是基類，並從它B繼承反過來從乙C繼承等。

也可以說我有下面的代碼行：

my $co = D->new(); 

有沒有什麼辦法來檢查（一些UNIVERSAL方法？）如果對象co是爲A的後裔？ （或者一般來說，爲了測試對象X是否是包P的後代）

Answer 1

請參閱UNIVERSAL。

if ($D->isa('A')) {print "do something fancy"} 

或

if ($D->can('method_defined_in_A')) {print "can do that";} 

Answer 2

我相信你可以只使用

$co->isa($package_name); 

它的通用方法，所有的perl祝福引用有。 http://perldoc.perl.org/UNIVERSAL.html