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

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")

希望这会有所帮助。