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函數(shù)

最后發(fā)現(xiàn)A.pm里面重寫了import函數(shù)

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是指調(diào)用棧,caller(0)為最頂層的PACKAGE名,由于B調(diào)用A的import,所以為'B'
B::ISA為父類數(shù)組

轉(zhuǎn)載于:https://www.cnblogs.com/maqintoshi/archive/2007/12/03/perl_implicit_inheritance.html

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。