UNIVERSAL 类是Perl中所有类的基类。
Perl 中的继承机制
在Perl中类的继承机制是通过@ISA 数组实现的，每个类中都维护有一个全局作用域的@ISA 数组，@ISA中存储着其父类的包名。
当你调用一个方法，且Perl在调用者的包里找不到这个方法时，它就会去检查对应包中的@ISA数组，并把@ISA数组中的包当作父类逐个进行搜索。如果在父类中找到了你调用的方法，就调用它，如果所有父类都搜索结束了还没有找到，就继续检查所有父类的@ISA数组。以次类推，直到找到你调用的方法或检查完了所有祖先类为止。
在上面的介绍中并没有 UNIVERSAL 类的相关信息，并且在所有类的@ISA数组中也不会自动的被加入 UNIVERSAL 包名。但UNIVERSAL包作为所有类的基类存在。在上面对类存在继承关系时方法调用的介绍中，当检查完所有@ISA数组后如果还没有找到你调用的方法，Perl就会去UNIVERSAL包中进行最后的检查。如果最终在UNIVERSAL中还是没有找到你调用的方法Perl会报错，并结束执行。
UNIVERSAL 包中的方法
在UNIVERSAL包中的方法，是所有对象和包都可以调用的，当作类方法和对象方法都行。
isa
语法如下：
$Class->isa(TYPE);
$obj->isa(TYPE);
其中 $Class 是一个类，$obj 是一个对象。TYPE 是一个类（可以是字符串，也可以是裸字符串）。
如果$Class 就是TYPE，或者是直接或间接的从TYPE继承而来的类，isa 方法就返回 true，否则返回 false；
如果$obj 是TYPE的对象，或是任何TYPE子类的对象，isa 方法返回 true，否则返回 false。
can
语法如下：
$Class->can(METHOD);
$obj->can(METHOD);
其中 $Class 是一个类，$obj 是一个对象。METHOD是一个字符串形式的方法名。
如果$Class 中声明了 METHOD 方法或其祖先类中声明 METHOD 方法，can方法返回 true，否则返回 false；
如果$obj 对象所属的类中声明了METHOD或其所属类的祖先类中声明了METHOD方法，can方法返回 true，否则返回 false。
VERSION
语法如下：
$Class->VERSION();
$obj->VERSION();
$Class->VERSION(NEED);
$obj->VERSION(NEED);
其中 $Class 是一个类，$obj 是一个对象。NEED是一个版本号，表示我们希望使用的最小版本号。
在调用VERSION 方法时如果不传传NEED参数时，返回类的版本号。也就是存储在包中的$VERSION 变量中的值。
当传一个NEED参数时，如果包的实际版本高于NEED，则返回实际的版本号；如果包的实际版本低于NEED则抛出异常。
网友评论