blob: 6f5129cdbb65feb8776bba85c52fecebbc832c31 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
package Reaction::UI::ViewPort::Field::Mutable::Array;
use Reaction::Class;
use namespace::clean -except => [ qw(meta) ];
extends 'Reaction::UI::ViewPort::Field::Array';
with 'Reaction::UI::ViewPort::Field::Role::Mutable';
around value => sub {
my $orig = shift;
my $self = shift;
return $orig->($self) unless @_;
my $value = defined $_[0] ? $_[0] : [];
$orig->($self, (ref $value eq 'ARRAY' ? $value : [ $value ]));
};
__PACKAGE__->meta->make_immutable;
1;
|