perl裡面隱式的繼承

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為父類數組