如何設置AoArrayrefs屬性，使用標量強制轉換爲arrayref？

Question

我想設置一個屬性，該屬性是一個arrayrefs數組，強制nonarrayrefs數組參考。例如。

[0，[0,0，0]，[1,2,3]]到[[0]，[0，0，0]，[1,2,3]]

也，我希望能夠以強制的方式推動或設置AoA元素。這是我的嘗試：

{ 
    package MyArray; 
    use namespace::autoclean; 
    use Moose::Util::TypeConstraints; 
    use Moose; 

    subtype 'My::ArrayRef' => as 'ArrayRef'; 
    coerce 'My::ArrayRef' 
     => from 'Num|Str' 
     => via {[$_]}; 

    has 'ents' => (
     traits => ['Array'], 
     is  => 'rw', 
     isa  => 'ArrayRef[My::ArrayRef]', 
     default => sub { [] }, 
     handles => { 
      push  => 'push', 
      get  => 'get', 
      set  => 'set', 
      elements => 'elements', 
      count  => 'count', 
     }, 
     coerce => 1, 
    ); 

    __PACKAGE__->meta->make_immutable; 

} 

use Modern::Perl; 

my $a0 = MyArray->new(ents => [ 0, [ 0, 0, 0 ], [1,2,3] ]) ; 

use Data::Dumper; 

print Dumper $a0; 

$a0->set(0,'cat'); 
print Dumper $a0; 
$a0->push(1.0); 
print Dumper $a0; 

Answer 1

該類型需要在強制之前未能匹配，但在之後成功。

這是卓有成效的（測試）：上PerlMonks

my $array_ref = Moose::Util::TypeConstraints::find_type_constraint('ArrayRef'); 

# Create an alias so we don't affect others with our coercion. 
subtype 'My::Data::Structure' 
    => as 'ArrayRef[ArrayRef[Str|Num]]'; 

coerce 'My::Data::Structure' 
    => from 'ArrayRef[ArrayRef[Str|Num]|Str|Num]' 
     => via { [ map $array_ref->check($_) ? $_ : [ $_ ], @$_ ] };