Perl繼承

Question

在Perl中，標量爲$ myScalar的包名稱爲「My :: Package」爲什麼要確定My :: Package是否有父級稱爲「My :: Package :: Parent」？這裏的限制是My :: Package可能尚未加載，我們不知道類構造函數所需的參數。

感謝

Answer 1

那麼，直到類存在時，您才能知道類的父類是什麼，因此您需要加載定義它的模塊。然後，您可以使用UNIVERSAL方法isa來查找它是否繼承自My::Package::Parent。

my $class = 'My::Package'; 

my $file = $class; # Or: 
$file =~ s{::}{/}g; # eval "require $class;" or die $@; 
$file .= '.pm';  # 
require $file;  # 

if ($class->isa('My::Package::Parent')) { 
    ... 
} 

參考：

• require
• UNIVERSAL

Answer 2

我想你會想isa()，也許直接探索@ISA，但檢查出man perlobjDOES()和can()了。