X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FReaction%2FUI%2FViewPort%2FField%2FMutable%2FChooseMany.pm;h=1b7a4113501313650ecf914d3990c919ddea3009;hb=7b5e71adcc00ae151a7908c2cddcd7323408efc7;hp=0833c73e79e137082c2e702cd65436a35388b515;hpb=8139388160b0a38002b22ff95c3fee3d8380f156;p=catagits%2FReaction.git diff --git a/lib/Reaction/UI/ViewPort/Field/Mutable/ChooseMany.pm b/lib/Reaction/UI/ViewPort/Field/Mutable/ChooseMany.pm index 0833c73..1b7a411 100644 --- a/lib/Reaction/UI/ViewPort/Field/Mutable/ChooseMany.pm +++ b/lib/Reaction/UI/ViewPort/Field/Mutable/ChooseMany.pm @@ -8,13 +8,14 @@ my $listify = sub{ }; use namespace::clean -except => [ qw(meta) ]; +use MooseX::Types::Moose qw/ArrayRef/; extends 'Reaction::UI::ViewPort::Field'; with 'Reaction::UI::ViewPort::Field::Role::Mutable'; with 'Reaction::UI::ViewPort::Field::Role::Choices'; #MUST BE HERE, BELOW THE 'does', OR THE TRIGGER WILL NOT HAPPEN! -has '+value' => (isa => 'ArrayRef'); +has '+value' => (isa => ArrayRef); around value => sub { my $orig = shift; @@ -81,7 +82,7 @@ __PACKAGE__->meta->make_immutable; =head1 NAME -Reaction::UI::ViewPort::Field::ChooseMany +Reaction::UI::ViewPort::Field::Mutable::ChooseMany =head1 DESCRIPTION