fixed _build_value_string for ChooseOne fields

[catagits/Reaction.git] / lib / Reaction / UI / ViewPort / Field / HiddenArray.pm

package Reaction::UI::ViewPort::Field::HiddenArray;

use Reaction::Class;

class HiddenArray is 'Reaction::UI::ViewPort::Field', which {

  has '+value' => (isa => 'ArrayRef');

  around value => sub {
    my $orig = shift;
    my $self = shift;
    if (@_) {
      #this hsould be done with coercions
      $orig->($self, (ref $_[0] eq 'ARRAY' ? $_[0] : [ $_[0] ]));
      $self->sync_to_action;
    } else {
      $orig->($self);
    }
  };

  implements _empty_value => as { [] };
};

1;

=head1 NAME

Reaction::UI::ViewPort::Field::HiddenArray

=head1 DESCRIPTION

=head1 SEE ALSO

=head2 L<Reaction::UI::ViewPort::Field>

=head1 AUTHORS

See L<Reaction::Class> for authors.

=head1 LICENSE

See L<Reaction::Class> for the license.

=cut