perl - 具有相同属性名称的 Moose Parent 和 Child

Question

这个问题是关于 Perl 和 Moose 继承的。

假设我有一个父类和一个婴儿类。婴儿“延伸” parent 。如果两个类都具有属性“name”，那么 Baby 如何在不获取自己的名字的情况下访问父类的名字？

package Baby;
use Moose;
extends 'Parent';

has 'name', is => 'ro', isa => 'Str', default => 'Baby';

注意:父类本质上与名称 default => 'Parent' 相同。

所以问题是，在我的程序中，我将如何访问 parent 的姓名？

例如:

...
$baby = Baby->new();
say "my name is " . $baby->name();
say "my Parent's name is " . ???? 

谢谢!

Answer 1

你不知道。您还没有创建新属性；您刚刚覆盖了父类中的那个。你为你的示例类选择的名字真的很不幸，因为在现实世界中一个婴儿“有一个” parent ，但是通过使用继承你创造了一个婴儿“是一个” parent 的情况。