22、Perl面向对象编程：深入探索对象创建与方法实现

Perl面向对象编程：深入探索对象创建与方法实现

1. 构造函数的使用与继承

在Perl中，我们可以通过自定义构造函数来创建对象。例如，下面的 named 方法可以用来创建一个具有名称的对象：

sub named {
    my $class = shift;
    my $name = shift;
    bless \$name, $class;
}

使用这个新的 named 方法，我们可以不直接创建引用就构建一个 Horse 对象：

my $tv_horse = Horse->named('Mr. Ed');

这里， Horse::named 是一个类方法，它接收两个参数：类名 Horse 和对象名称 Mr. Ed 。 bless 操作符不仅将 $name 祝福为指定的类，还返回对 $name 的引用，这个引用就作为对象返回。

通常，构造函数的命名可以根据需要进行选择。虽然很多人习惯使用 new 作为构造函数名，但实际上任何方法都可以作为构造函数。例如，我们可以使用不同名称的构造函数来以不同的方式“创建”对象，如记录其谱系或出生日期。

当我