perl - Perl オブジェクト階層のイントロスペクション

Question

次のパッケージ階層があるとします。

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

つまりA、基本クラスであり、Bそれから継承し、次にCB から継承します。

また、次のコード行があるとしましょう。

my $co = D->new();

UNIVERSALオブジェクトcoがの子孫であるかどうかを確認する方法はありAますか? (または一般に、オブジェクトXが package の子孫であるかどうかをテストするためP)

Answer 1

ユニバーサルを参照してください。

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

また

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