Question

我想知道如何在运行时将抽象角色混合到变量中。这是我想出来的

role jsonable {
    method to-json( ) { ... }
}

class Bare-Word {
    has $.word;
    method new ( Str $word ) {
        return self.bless( $word );
    }
}

my $that-word = Bare-Word.new( "Hola" ) but role jsonable { method to-json() { return "['$!word']"; } };

然而，这会引发（完全合理的）错误：

$ perl6 role-fails.p6
===SORRY!=== Error while compiling /home/jmerelo/Code/perl6/dev.to-code/perl6/role-fails.p6
Attribute $!word not declared in role jsonable
at /home/jmerelo/Code/perl6/dev.to-code/perl6/role-fails.p6:14
------> hod to-json() { return "['$!word']"; } }⏏;
    expecting any of:
        horizontal whitespace
        postfix
        statement end
        statement modifier
        statement modifier loop

$!word属于该类，因此它在mixin声明中不可用这样。但是，but is simply a function call所以声明的变量应该在里面可用，对吗？访问它的正确语法是什么？

Answer 1

正确的语法是$.word，它基本上是self.word的缩写，因此它使用公共访问方法。

但我认为这里存在一些拼写错误和一些误解。错误（我认为）是.bless只接受命名参数，因此它应该是$word而不是:$word（将位置转换为word => $word）。此外，定义但未实现方法，然后使用相同名称来实现具有该名称的角色的角色没有意义。而且我很惊讶它没有产生错误。所以现在摆脱它。这是我的“解决方案”：

class Bare-Word {
    has $.word;
    method new ( Str $word ) {
        return self.bless( :$word );  # note, .bless only takes nameds
    }
}

my $that-word = Bare-Word.new( "Hola" ) but role jsonable {
    method to-json() {
        return "['$.word']"; # note, $.word instead of $!word
    }
}

dd $that-word; # Bare-Word+{jsonable}.new(word => "Hola")

希望这有帮助。

混合角色声明中可用的混合对象变量

1 个答案: