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://blog.csdn.net/zll01/article/details/4520237