珀尔 | OOP 中的多态性

多态性是面向对象编程的三大特性之一，另外两个是继承和封装。在 Perl 中，多态性是通过基于引用的对象实现的。

什么是多态性？

多态性是指，同一个方法在不同的对象上有不同的实现。这意味着，如果我们有一个类 A 和类 B，它们都实现了同一个方法 foo，但是对于类 A 和类 B 的对象来说，foo 的实现是不同的。

在 Perl 中实现多态性

在 Perl 中，多态性是通过基于引用的对象实现的。这意味着我们可以在运行时决定使用哪一个方法实现。下面我们来看一个简单的例子。

首先，我们定义一个 Animal 类。

package Animal;

sub new {
    my ($class, %args) = @_;
    my $self = bless {
        name => $args{name},
    }, $class;
    return $self;
}

sub speak {
    my ($self) = @_;
    print "$self->{name} makes a noise.\n";
}

这个类有一个 speak 方法，用来输出动物发出的声音。

接下来，我们定义一个 Dog 类，继承自 Animal 类。

package Dog;

use parent 'Animal';

sub speak {
    my ($self) = @_;
    print "$self->{name} barks.\n";
}

注意，在 Dog 类中，我们重新定义了 speak 方法，让它输出“汪汪汪”。

现在，我们来创建一个 Animal 对象和一个 Dog 对象，并分别调用它们的 speak 方法。

my $animal = Animal->new(name => "Animal");
my $dog = Dog->new(name => "Dog");

$animal->speak();
$dog->speak();

输出结果如下：

Animal makes a noise.
Dog barks.

可以看到，虽然我们调用了相同的方法，但是在 Animal 对象和 Dog 对象上的出现形式却不同。

这就是多态性的魅力，可以让我们使用相同的代码处理不同的对象。

总结

在 Perl 中，多态性是通过基于引用的对象实现的。这种实现方式可以让我们在运行时决定使用哪一个方法实现，让我们使用相同的代码处理不同的对象。