在Perl中使用多繼承時，是否有一種方法可以指示要使用哪個SUPER函數？

Question

根據標題，我正在研究一些使用多重繼承的代碼，並要求調用兩個SUPER函數。有什麼方法可以向Perl指出我想從哪個父類運行該函數？使用$self->SUPER::foo($bar);僅按照documentation運行@ISA中的第一個匹配功能。

下面給出的類是如何繼承一個想法：

  [Base Class] 
       | 
---------------------------- 
|       | 
[A]      [B] 
|       | 
---------------------------- 
       | 
       [C] 

Answer 1

只需指定：

$self->A::foo($bar) 

或

$self->B::foo($bar) 

您可能也想看看mro 。

Answer 2

有許多選項。

如果有永遠只是兩個候選超，你可以強制@ISA在兩個方向上進行搜索，因此

$self->SUPER::method; 
{ 
    local @ISA = reverse @ISA; 
    $self->SUPER::method; 
} 

，或者如果你想要做的事聰明，你可以建立所有的超類的名字'在運行方法：

my ($caller) = (caller(0))[3] =~ /([^:]+)\z/; 
for my $super (@ISA) { 
    my $method = join '::', $super, $caller; 
    $self->$method if exists &$method; 
} 

第一行提取當前執行的方法的名稱和剝去包名稱信息只留下裸露的名稱。然後將它附加到@ISA中的每個包名稱，如果該方法存在，則調用該方法。