perl的測試，如果象徵功能名稱存在

Question

如果我做了一個子程序名，說

$type = 'Circle'; 
$fn = 'My'.$type.'Renderer'; 

如何測試是否被定義在$ FN命名的子程序？

Answer 1

1. PACKAGE->can($fn)，其中PACKAGE爲main默認值。
2. defined &{$fn}

can也會如果存在的話，你代碼引用回到這個功能。

Answer 2

您可能會傾向於使用can方法，但這是錯誤的，它會導致誤報，因爲它服從繼承。你想使用exists。

my $name = ...; 
my @args = ...; 
die("$name doesn't exist\n") if !exists(&$name); 
(\&$name)->(@args); 

$name->(@args)就足夠沒有嚴格。奇怪的語法繞過嚴格。