Perl 中的 use base 的用法

use base 是面向对象编程时，用来描述“基类”的，其实说白了，

use base somemodule;
就相当于以下两句的结合：

BEGIN{
    use somemodule ();
    push @ISA, qw(somemodule);
}
也可以同时 use base 两个或者两个以上的模块，例如：

use base qw(Foo Bar);
就相当于：

BEGIN {
    use Foo ();
    use Bar ();
    push @ISA, qw(Foo Bar);
}
至于 @ISA 是个什么样的数组，这完全不关 use base 的事，
只不过，@ISA 是一个比较特殊的数组，它的含义可以参见大骆驼中的描述。

顺便说一下，


use Foo ();
和
use Foo;
是不同的，
后者会自动调用 Foo 包里的 import 函数，而前者不会。

use base somemodule;
比
use somemodule;
多了并且只多了一句
push @ISA, qw(somemodule);

 

******************************************************************

*摘自http://www.diybl.com/course/4_webprogram/cgi/perljs/2008627/128814.html

******************************************************************