微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

mixins – 为混合角色的属性赋值

我正在尝试使用 Enumeration role in Perl 6(作为修复文档问题 Enumeration role is not documented的一部分)的示例.我想出了这个简单的例子:

class DNA does Enumeration {
    my $DNAindex = 0;
    my %pairings = %( A => "T",T => "A",C => "G",G => "T" );

    method new( $base-pair where "A" | "C" | "G" | "T" )  {
        self.bless( key => $base-pair,value => %pairings{$base-pair},index => 33);
    }

    multi method gist(::?CLASS:D:) {
        return "$!key -> $!value with $!index";
    }

}

for <A C G T>.roll( 16 ) -> $letter {
    my DNA $base = DNA.new( $letter );
    say "Pairs ",$base.pair," with ",$base.gist;
}

从理论上讲,Enumeration有$!index,而index => 33我试着给它分配一个值;然而,它返回的就像是

Pairs T => A with T -> A with 0

任何其他方式直接为$!index分配一个值,我得到the “cannot assign to an immutable value我得到了另一个问题.根据one of the answers,这可能是一个错误;在这种情况下,我想知道是否有一些解决方法.

解决方法

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。

相关推荐