on second thought, make all empty specs return a lexical sort

[catagits/Reaction.git] / lib / Reaction / UI / ViewPort / Object / Mutable.pm

diff --git a/lib/Reaction/UI/ViewPort/Object/Mutable.pm b/lib/Reaction/UI/ViewPort/Object/Mutable.pm
index 3de5438..797f8c6 100644 (file)
--- a/lib/Reaction/UI/ViewPort/Object/Mutable.pm
+++ b/lib/Reaction/UI/ViewPort/Object/Mutable.pm
@@ -13,68 +13,17 @@ use aliased 'Reaction::UI::ViewPort::Field::Mutable::Password';
 use aliased 'Reaction::UI::ViewPort::Field::Mutable::DateTime';
 use aliased 'Reaction::UI::ViewPort::Field::Mutable::ChooseOne';
 use aliased 'Reaction::UI::ViewPort::Field::Mutable::ChooseMany';
-
 use aliased 'Reaction::UI::ViewPort::Field::Mutable::File';
-#use aliased 'Reaction::UI::ViewPort::Field::Mutable::TimeRange';
-
-use MooseX::Types::Moose qw/Int/;
-use Reaction::Types::Core qw/NonEmptySimpleStr/;
 
 use namespace::clean -except => [ qw(meta) ];
 extends Object;
-with 'Reaction::UI::ViewPort::Action::Role::OK';
 
+#this her for now. mutable fields need an action to build correctly
 has model => (
   is => 'ro',
   isa => 'Reaction::InterfaceModel::Action',
-  required => 1
- );
-
-has changed => (
-  is => 'rw',
-  isa => Int,
-  reader => 'is_changed',
-  default => sub{0}
- );
-
-#this has to fucking go. it BLOWS.
-has method => (
-  is => 'rw',
-  isa => NonEmptySimpleStr,
-  default => sub { 'post' }
- );
-
-sub can_apply {
-  my ($self) = @_;
-  foreach my $field ( @{ $self->fields } ) {
-    return 0 if $field->needs_sync;
-    # if e.g. a datetime field has an invalid value that can't be re-assembled
-    # into a datetime object, the action may be in a consistent state but
-    # not synchronized from the fields; in this case, we must not apply
-  }
-  return $self->model->can_apply;
-}
-
-sub do_apply {
-  shift->model->do_apply;
-}
-
-after apply_child_events => sub {
-  # interrupt here because fields will have been updated
-  my ($self) = @_;
-  $self->sync_action_from_fields;
-};
-
-sub sync_action_from_fields {
-  my ($self) = @_;
-  foreach my $field (@{$self->fields}) {
-    $field->sync_to_action; # get the field to populate the $action if possible
-  }
-  $self->model->sync_all;
-  foreach my $field (@{$self->fields}) {
-    $field->sync_from_action; # get errors from $action if applicable
-  }
-}
+  required => 1,
+);
 
 sub _build_fields_for_type_Num {
   my ($self, $attr, $args) = @_;
@@ -158,18 +107,6 @@ Reaction::UI::ViewPort::Object::Mutable
 
 =head1 SYNOPSIS
 
-  use aliased 'Reaction::UI::ViewPort::Object::Mutable';
-
-  $self->push_viewport(Mutable,
-    layout => 'register',
-    model => $action,
-    next_action => [ $self, 'redirect_to', 'accounts', $c->req->captures ],
-    ctx => $c,
-    field_order => [
-      qw / contact_title company_name email address1 address2 address3
-           city country post_code telephone mobile fax/ ],
-  );
-
 =head1 DESCRIPTION
 
 This subclass of L<Reaction::UI::ViewPort::Object> is used for rendering a
@@ -181,53 +118,29 @@ collection of C<Reaction::UI::ViewPort::Field::Mutable::*> objects for user edit
 
 L<Reaction::InterfaceModel::Action>
 
-=head2 ok_label
-
-Default: 'ok'
-
-=head2 apply_label
-
-Default: 'apply'
-
-=head2 close_label_close
-
-Default: 'close'
-
-=head2 close_label_cancel
-
-This label is only shown when C<changed> is true.
-
-Default: 'cancel'
-
-=head2 fields
-
-=head2 can_apply
-
-=head2 can_close
-
-=head2 changed
+=head1 METHODS
 
-Returns true if a field has been edited.
+=head2  _build_fields_for_type_Num
 
-=head2 next_action
+=head2  _build_fields_for_type_Int
 
-=head2 on_apply_callback
+=head2  _build_fields_for_type_Bool
 
-CodeRef.
+=head2  _build_fields_for_type_Reaction_Types_Core_SimpleStr
 
-=head1 METHODS
+=head2  _build_fields_for_type_Reaction_Types_File_File
 
-=head2 ok
+=head2  _build_fields_for_type_Str
 
-Calls C<apply>, and then C<close> if successful.
+=head2  _build_fields_for_type_Reaction_Types_Core_Password
 
-=head2 close
+=head2  _build_fields_for_type_Reaction_Types_DateTime_DateTime
 
-Pop viewport and proceed to C<next_action>.
+=head2  _build_fields_for_type_Enum
 
-=head2 apply
+=head2  _build_fields_for_type_DBIx_Class_Row
 
-Attempt to save changes and update C<changed> attribute if required.
+=head2  _build_fields_for_type_ArrayRef
 
 =head1 SEE ALSO