Perl面向对象编程与测试实践

21、添加一个与 Animal 处于同一级别的 Person 类，让它们都继承自一个名为 LivingCreature 的新类。同时，让 speak 方法接受一个表示要说内容的参数，如果没有提供参数，则使用默认声音（对于 Person 是发出嗡嗡声）。要确保动物不能说话（即不让 Animal 的 speak 方法有参数）。尽量不重复代码，但要捕获可能的使用错误，比如忘记为动物定义声音。在 scripts/person.pl 程序中演示 Person 类，让 Person 说“Hello, World!”。

以下是实现步骤：

首先，创建 LivingCreature 类作为基类，其中包含一个 speak 方法：

package LivingCreature;
our $VERSION = '0.01';

sub speak {
    my $class = shift;
    if (@_) {
        print "a $class goes '@_'";
    } else {
        print "a $class goes ", $class->sound, "\n";
    }
}

1;

接着，创建 Person 类，继承自 LivingCreature 并定义一个简单的 sound ：

package Person;
use parent qw(LivingCreature);

sub sound {
    "hmmmm"
}

1;

然后，创建 Animal 类，同样继承自 LivingCreature ，在 speak 方法中检查确保动物不会在调用 speak 时带有参数：

package Animal;
use parent qw(LivingCreature);

sub sound {
    die "all Animals should define a sound"
}

sub speak {
    my $class = shift;
    die "animals can't talk!" if @_;
    $class->SUPER::speak;
}

1;

最后，创建 scripts/person.pl 程序，加载新的 Person 类并调用其 speak 方法：

use Person;
Person->speak;
Person->speak("Hello, world!");

运行该程序，会看到 Person 发出默认声音并说出“Hello, World!”：

% perl scripts/person.pl
hmmmm
Hello, World!

22、用25分钟将t/Animal.t测试添加到你的发行版中并使其正常运行。在添加测试的各个部分时，在添加下一部分测试之前运行测试套件。

首先创建一个名为 `t/Animal.t` 的文件来测试 `lib/Animal.pm` 中的函数。开始时使用 `Test::More` 里的特殊 `pass` 子程序，这是一个始终成功的测试，代码如下：

```perl
use strict;
use warnings;
use Test::More tests => 1;

pass();

运行测试套件，确保 t/Animal.t 测试运行并成功。

之后添加更多有趣的测试，再次在 t/Animal.t 中测试 lib/Animal.pm 是否编译，代码如下：

use strict;
use warnings;
use Test::More tests => 1;

BEGIN {
    require_ok( 'Animal' ) || print "Bail out!\n";
}

diag( "Testing Animal $Animal::VERSION, Perl $], $^X" );

如果 Test::More 版本足够新，可使用 BAIL_OUT 子程序处理错误，代码如下：

use strict;
use warnings;
use Test::More 0.62 tests => 1;

在添加每部分测试后，都要运行测试套件。

##23、为牛、马和羊类创建测试文件。添加一个测试以确保每个类都能正确编译。添加测试来检查每个类的声音方法。
以马类为例，测试文件 `t/Horse.t` 示例如下：

```perl
use Test::More;
BEGIN { use_ok( 'Horse' ) }
is( Horse->sound, 'neigh', 'The horse make the right sound' );
done_testing();

其他动物的测试文件只需替换动物名称和对应的声音。

24、用5分钟时间，使用Devel::Cover来衡量测试套件的覆盖率。由于还没有对Cow、Horse和Sheep类进行全面测试，会发现覆盖率指标的数值较低。