Как настроить атрибут AoArrayrefs с приведением из скаляра в arrayref? - PullRequest
Новая
       54

Как настроить атрибут AoArrayrefs с приведением из скаляра в arrayref?

2 голосов
/ 28 июля 2011

Я хотел бы установить атрибут, который является массивом arrayrefs с приведением nonarrayrefs к массиву refs.например.

[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;

1 Ответ

4 голосов
/ 29 июля 2011

Тип не должен совпадать до приведения, но должен быть успешным после.

Это помогает (проверено): 

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($_) ? $_ : [ $_ ], @$_ ] };
...