Perl OOP

1. 模块/类(包)

创建一个名为Apple.pm的包文件(扩展名pm是包的缺省扩展名，意为Perl Module)。
一个模块就是一个类(包)。

2. new方法

new()方法是创建对象时必须被调用的，它是对象的构造函数。

sub new
{
    my $class = shift;
    my $this = {};
    bless $this, $class;
    return $this;
}

this={}创建一个没有键/值对的哈希引用，返回值被赋给局域变量this。
bless()函数将类名与引用相关联。从new()函数返回后，$this引用被销毁。

3. bless方法

构造函数是类的子程序，它返回与类名相关的一个引用。
bless()函数将类名与引用相关联。
其语法为：bless reference [,class]
reference: 对象的引用
class: 是可选项，指定对象获取方法的包名，缺省值为当前包名。

4. 类方法

有两种方法：静态方法（如：构造函数）和虚方法。
静态方法第一个参数为类名，虚方法第一个参数为对象的引用。
虚方法通常首先把第一个参数shift到变量self或this中，然后将该值作普通的引用使用。
静态方法直接使用类名来调用，虚方法通过该对象的引用来调用。

5. 继承

@ISA数组含有类(包)名，@INC数组含有文件路径。
当一个方法在当前包中未找到时，就到@ISA中去寻找。
@ISA中还含有当前类继承的基类。

类中调用的所有方法必须属于同一个类或@ISA数组定义的基类。
@ISA中的每个元素都是一个其它类(包)的名字。
当类找不到方法时，它会从 @ISA 数组中依次寻找（深度优先）。
类通过访问@ISA来知道哪些类是它的基类。
e.g.

use Fruit;
our @ISA = qw(Fruit);

6. OOP Sample

Super Class: Fruit.pm

#!/usr/bin/perl -w

use strict;
use English;
use warnings;

package Fruit;

sub prompt
{
    print "\nFruit is good for health\n";
}

1;

Sub Class: Apple.pm
Note: Sub class Apple.pm extends super class Fruit.pm via putting Fruit into array @ISA in Apple.pm

#!/usr/bin/perl -w

use strict;
use English;
use warnings;

package Apple;

use Fruit;
our @ISA = qw(Fruit);

sub new
{
    my $class = shift;
    my %parm = @_;

    my $this = {};

    $this -> {'name'} = $parm{'name'};
    $this -> {'weight'} = $parm{'weight'};

    bless $this, $class;

    $this -> init();

    return $this;
}

sub init
{
    my $reference = shift;
    my $class = ref $reference;

    print "class: $class\n";

    while (my ($key, $value) = each (%$reference))
    {
        print "$key = $value\n";
    }
}

sub order
{
    my $class = ref shift;
    my $customer = shift;
    my $address = shift;
    my $count = shift;

    print "\n$customer order $count $class to $address\n";
}

1;

Main Class: Purchase.pl

#!/usr/bin/perl -w

use strict;
use English;
use warnings;

use Apple;

my $apple = new Apple('name' => 'Red Fuji', 'weight' => 300);

$apple -> prompt();

$apple -> order('Zhou Shengshuai', 'ChengDu', 99);

Output:

class: Apple
weight = 300
name = Red Fuji

Fruit is good for health

Zhou Shengshuai order 99 Apple to ChengDu