面向对象的perl 2

面向对象的perl 2

构造器

让我们先来看看构造器中最重要的一个函数bless.

我查了一下bless的意思，觉得美国传统词典里的第七个解释比较符合这里的情况：

bless: To endow, as with talent. (赋予，如才能）

在perl中，bless把引用转换成了一个对象，既赋予了引用对象的才能。

在上一节中提到了，bless接受两个参数，第一个参数时引用，第二个是要把引用bless成的包。

如果忽略了第二个参数，则使用当前包。

最简单的构造器可以使如下的形式的：

package Hero;

sub new {

bless()

}

这和下面的构造器是等价的：

package Hero;

sub new {

my $self = {};

bless $self, "Hero";

return $self;

}

对于只有一个类的情况，这样的构造器是没有问题的。但是出现继承时，这样简单的构造器就

无法实现你想要的功能了。

例如：一个Superman的类继承与Hero类，但是他没有自己的构造器，在创建一个Superman的时候，

会自动调用Hero的构造器。Superman->new("Superman"); 实际上得到的是一个Hero,

因为这句 bless $self, "Hero"；根本就没有理会Superman->new("Superman");的参数。

下面的构造器可以解决这个问题：

package Hero;

sub new {

my $class = shift;

my $self = {};

bless $self, $class;

return $self;

}

如何从一个对象构造出一个同类的对象

稍微改造一下前面的构造器我们就可以用一个对象的引用构造一个同类的对象。

package Hero;

sub new {

my $invocant = shift;

my $class = ref($invocant) || $invocant;

my $self = {};

bless $self, $class;

return $self;

}

-----------------------------------------

ref

ref Expr

ref

如果Expr是一个引用，那么ref操作符返回一个真值，否则返回假。返回的值取决于该引用

所引用的东西的类型。内置的类型包括：SCALAR, ARRAY, HASH, CODE, GLOB, REF, LVALUE, IO::Handle.

如果这个引用的对象已经bless到了一个包，那么返回的就是该包的名字。