Perl Moose 默认值未设置

Question

我正在使用草莓 Perl Moose 2.0010

在类中：

package Cat;
use 5.010;
use strict;
use Moose;

has 'name',       is => 'ro', isa => 'Str', default => 'Beauty';
#has 'age',       is => 'ro';
has 'diet',       is => 'rw', default => 'fish';
has 'birth_year', is => 'ro', isa=> 'Int',
                  default => 1997;
sub age
{
    my $self = shift;
    my $year = (localtime)[5] + 1900;

    return $year - $self->birth_year();
}

在应用程序中：

use 5.010;
use strict;
use Cat;

my $kitty = Cat->new();
say 'I have a kitten named ', $kitty->name(), ' eats ', $kitty->diet(),
    'in age ', $kitty->age();

输出：

使用未初始化的值 Cat.pm 第 16 行的减法 (-)。I 2011年有一只名叫吃的小猫 按任意键继续。 。 .

未设置默认值。

谢谢。

Answer 1

您今天的其他问题在您展示完整内容后显示了问题所在来源为 Cat.pm。您定义了一个杂散的 new 方法，该方法覆盖了 Moose 提供的 new 方法。删除那个杂散的 new 方法，它就可以正常工作了。

Answer 2

$year 就可以了，(localtime)[5] 也是如此。

问题是您的对象由于某种原因尚未初始化。也就是说， $self->birth_year() 返回未定义。

如果你看看你的输出，“有一只小猫，名字叫2011年吃”，你会错过名字、它吃什么，而且年龄是2011 - 0（或者如果我记得我的减法表的话，就是2011年）。由于 undef 被视为 0，因此在担心年龄计算之前您需要解决一些问题。

另外，我运行了你的代码，你要么没有告诉我们一些事情，要么这是你实际代码的释义。当我运行它时，我得到了预期的结果：“我有一只名叫 Beauty 的小猫在 1997 年出生，14 岁吃鱼”

我相信这是因为您没有包含尾随 1; 在 Cat.pm 中，因此，它甚至无法编译。