一个Perl类是仅是一个包而已
一个模块就是一个包,一个包就是一个类
Perl中的继承只继承方法
记住保留“1;”为最后一行。这是Perl包的必需条件,否则该包就不会被Perl处理。
package Cocoa;
#
- Put “require” statements in for all required,imported packages
#
#
- Just add code here
#
1; # terminate the package with the required 1;
创建对象的方法有多种:
Cocoa::new()
Cocoa→new()
new Cocoa
注意:
1、一定要在构造函数中初始化变量;
2、一定要用my函数在方法中创建变量;
3、一定不要在方法中使用local,除非真的想把变量传递给其它子程序;
4、一定不要在类模块中使用全局变量。
对象知道自己属于哪个类,引用则不属于任何类。
Perl有两种方法:静态方法和虚方法。
require Exporter;ISA = qw (Exporter); Perl类的继承是通过
ISA数组实现的。它与@INC数组类似
如果一个方法在@ISA数组中未找到,Perl就到AUTOLOAD()子程序中寻找(必须用use Autoload),如果AUTOLOAD也失败了,Perl再到UNIVERSAL类做最后一次尝试,如果仍失败,Perl就生成关于该无法解析函数的错误。
注意:
1、一定要通过方法来访问类变量。
2、一定不要从模块外部直接访问类变量