oo perl 繼承問題

wxPerl是一個純oo的gui庫。今天在看它的例子的時候，也試了一下不同的繼承方法。
在wxPerl的hello.pl中是這樣用的：
use vars qw(@ISA);

@ISA = qw(Wx::App);
在programming Perl裡查了一下use vars這個pragma. 發現，這種用法已經在某種程度
上廢棄了，因為有了our. 上面的代碼等同於：
our (@ISA) = qw(Wx::App);
他們的作用都是定義一個包全域變數。 要注意的是不要混合使用，即，不要在一段
代碼中對@ISA同時使用use vars 和 our。(在一個檔案裡定義一個以上的包時）
除了這兩種方法，還可以用:
use base qw(Wx::App);
這段代碼等價於：
BEGIN{

    require Wx::App;  # 注意，這裡用的是裸字。具體看require的介紹

    push @ISA, qw(Wx::App);

｝

還發現了一個小問題，在用use base qw(Wx::App);
的時候，父類必須以１；結尾，而另外兩種方法，不用也有可能ｏｋ．

這可能是ｒｅｑｕｉｒｅ的原因。

@ISA數組中列出的類（包）表明了當前類的父類（parent class）或基類（base class）。它是Perl賴以實現繼承的方式。@ISA數組中含有類（包）的列表，當Perl在當前類（包）中無法找到所需方法時，便會在該數組列出的類中尋找。如果還是找不到的話，Perl還會搜尋並調用AUTOLOAD函數。如果仍然找不到的話，Perl會在預定義的UNIVERSAL包中進行最後的搜尋。UNIVERSAL類時所有包的全域基類，也是類繼承機制中位於最頂層的類。

在通常的子常式調用過程中，並不會搜尋@ISA數組。但如果使用者以調用方法的文法來調用子程式的話，程式就會去搜尋@ISA數組。

如果Perl 一個包沒有new函數進行定義，但是需要調用這個包裡面的函數，那麼一種方法就是將該包的那個函數用一下方法加入ISA。之後在另一個包中在該函數加入& 。

require Exporter;
use vars ('@ISA');
@ISA = qw(Exporter);
our @EXPORT= qw(函數名稱);

第二種方法就是在開頭加入 use 包路徑名，之後用 類名->包路徑名：：函數名 的方式來引用該包下的函數。。