perl里面隱式的繼承
隱式的繼承
今天看見某斷代碼:

A.pm

CODE: [Copy to clipboard] Package A;

...

sub test{
? ?? ???print "test\n";
} B.pm

CODE: [Copy to clipboard] Package B;
use A;

B->test(); 覺得比較奇怪,B并未顯式從A繼承,何以能使用A的test函數

最后發現A.pm里面重寫了import函數

CODE: [Copy to clipboard] sub import{
? ? ? ? my $class = $_[0];
? ? ? ? my $caller = caller(0);
? ? ? ? unless($caller->isa('A')){
? ? ? ? ? ? ? ?
? ? ? ? ? ? ? ? no strict 'refs';
? ? ? ? ? ? ? ? print "importing A\n";
? ? ? ? ? ? ? ? push @{"$caller\::ISA"}, $class;

? ? ? ? }
? ? ? ?
} 這里的caller是指調用棧,caller(0)為最頂層的PACKAGE名,由于B調用A的import,所以為'B'
B::ISA為父類數組

轉載于:https://www.cnblogs.com/maqintoshi/archive/2007/12/03/perl_implicit_inheritance.html

總結

以上是生活随笔為你收集整理的perl里面隐式的继承的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。