perl中的后期静态绑定

Question

在perl中是否有用于指示“Late Static Bindings”的语法？ 在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