12、Perl面向对象编程：深入解析与实践

Perl面向对象编程：深入解析与实践

1. UNIVERSAL模块

在Perl中，所有模块都隐式地继承自一个名为 UNIVERSAL 的内置模块，并继承了以下三个方法：
- isa (package name) ：用于检查一个模块是否继承自指定的包。例如， Rectangle->isa('Shape') ，如果 Rectangle 模块（无论间接与否）继承自 Shape 模块，则返回 true 。
- can (function name) ：检查一个模块或其任何基包中是否包含指定名称的函数。例如， Rectangle->can('draw') ，如果 Rectangle 或其基包中有名为 draw 的函数，则返回 true 。
- VERSION (need version) ：用于版本检查。例如：

package Bank;
$VERSION = 5.1;

当用户使用 use Bank 5.2; 时，Perl会自动调用 Bank->VERSION(5.2) ，确保加载版本5.2所需的所有库。如果 Bank