Question

与Perl5中的大多数内容一样，有很多方法可以创建一个支持其属性的自定义类型强制的类。这是一个简单的，从数组引用到哈希：

#!/usr/bin/env perl

package Local::Class {
  use Moo;
  use Types::Standard qw( HashRef ArrayRef );

  has set => (
    is => 'ro',
    coerce => 1,
    isa => HashRef->plus_coercions(
      ArrayRef, sub { return { map { $_ => 1} @{$_[0]} } },
    ),
  );
}

my $o = Local::Class->new({ set => [qw( a b b c )] });
# $o->set now holds { a => 1, b => 1, c => 1}

我一直在尝试将这样的东西移植到Perl6，似乎我需要的是一种强制Array到SetHash的方法。到目前为止，我能够做到这一点的唯一方法就是这样：

#!/usr/bin/env perl6

class Local::Class {
  has %.set;
  ## Wanted to have
  # has %.set is SetHash;
  ## but it dies with "Cannot modify an immutable SetHash"

  submethod TWEAK (:$set) {
    self.set = $set.SetHash;
  }
}

my $o = Local::Class.new( set => [< a b b c >] );
# $o.set now holds {:a, :b, :c}

但是在我看来这不是正确的做法，至少对于将奇数编号列表传递给构造函数的微小细节会使脚本死亡。

那么，这是如何在Perl6中完成的？为类属性实现自定义类型强制的推荐方法是什么（因为我确定不止一个）？

Answer 1

TWEAK在对象被BUILD初始化之后运行，这就是提供奇数编号阵列会爆炸的地方。

将强制移至BUILD时间，事情应按预期进行：

class Local::Class {
  has %.set;
  submethod BUILD (:$set) {
    %!set := $set.SetHash;
  }
}

如果您可以将强制SetHash()参数类型与自动属性初始化结合使用，那将会很好，但这会失败，因为sigil是属性名称的一部分，参数不能是{{1}如果你想接受非关联类型，则为-sigilled。

但是，如果您使用% - sigilled属性，它可以正常工作：

正如@smls指出的那样，以下变种

class Local::Class {
  has $.set;
  submethod BUILD (SetHash() :$!set) {}
}

可能也应该工作，而不是死于无法修改不可变的SetHash 。

作为class Local::Class { has %.set is SetHash; submethod BUILD (:$set) { %!set = $set.SetHash; } }无法分配的解决方法，您可以使用

SetHash

在Perl6类属性

1 个答案: