perl中的後期靜態綁定

Question

是否有用於在perl中指示「後期靜態綁定」的語法？ 在PHP中，有。 http://php.net/manual/en/language.oop5.late-static-bindings.php

我只是在尋找他們的Perl。

Answer 1

Perl沒有靜態方法，所以你不需要技巧來使靜態方法像虛擬方法一樣工作。

package ClassA {  
    sub who { print __PACKAGE__, "\n" } 
    sub test { my ($class) = @_; $class->who(); } 
} 

package ClassB { 
    our @ISA = 'ClassA'; 
    sub who { print __PACKAGE__, "\n" } 
} 

ClassA->test(); # ClassA 
ClassB->test(); # ClassB