Perl Object

====================================================================================
Perl Object Invoke:
1、使用$pkg_ref->method时，第一个参数是包的引用，随后才使在调用是客户代码传入的参数；
2、使用-w参数执行perl脚本或者在脚本中加入use warnings;来使你的脚本更加健壮；
3、new中可以bless一个引用，当然也可以不bless任何引用，但必须返回包的引用，即new方法的第一个参数。
====================================================================================
Note in Perl:
package Graph::Base;
use vars qw(@ISA);
require Exporter;
@ISA = qw(Exporter);
||
||
use vars qw(@ISA) ==> 把@ISA变成包全局变量，所以能在整个包中使用, 注意和my的不同；
require Exporter ==> 类似于use,导入包或程序，他们之间有些差别；
@ISA ==> 表明Graph :: Base，用于查看父包；
Exporter ==> 用于输出方法，恰好可以使得这段代码的方法可以输出，Exporter没用写成@Exporter=qw(a, b, c)，保证了里面的所有方法都可以输出。




Perl codeuse vars qw(@ISA);
require Exporter;
@ISA= qw(Exporter);
对应新的语法：
Perl codeuse base qw(Exporter);




@EXPORT =qw(
setBeanType #空格，不是逗号。
printType
);
表示可以被继承，perl方法没有public,private的声明，必须通过输出模块来声明哪些是public的方法
====================================================================================
Perl qw:    
   @list = qw(
        a # a comment
        b # another comment
    );

Or

   @list = (
        'a',    # a comment
        'b',    # another comment
    );
====================================================================================
Perl:
@INC 是包含文件的寻找路径。
@ISA 数组含有类(包)名，当一个方法在当前包中未找到时就到@ISA中的包去寻找。
@ISA 中还含有当前类继承的基类名。
@EXPORT 包含了需要默认输出的函数列表。

====================================================================================

Perl Global Variable:
use vars @arrary;
||
our @arrary;
====================================================================================