中企动力网站模板,长沙网站开发在线咨询,网站建设实践报告绪论,西地那非片的功效与作用perl里面隐式的继承隐式的继承今天看见某断代码: A.pmCODE:[Copy to clipboard]Package A;...sub test{print test\n;}B.pmCODE:[Copy to clipboard]Package B;use A;B-test();觉得比较奇怪,B并未显式从A继承,何以能使用A的test函数最后发现A.pm里面重写了impo…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
