package Reaction::UI::Controller::Collection::CRUD;
-use strict;
-use warnings;
-use base 'Reaction::UI::Controller::Collection';
-use Reaction::Class;
+use Moose;
+BEGIN { extends 'Reaction::UI::Controller::Collection'; }
-use aliased 'Reaction::UI::ViewPort::Action';
use aliased 'Reaction::UI::ViewPort::ListView';
-sub _build_action_viewport_map {
- my $self = shift;
- my $map = $self->next::method(@_);
- $map->{list} = ListView if exists $map->{list};
-
- my %allowed = map { $_ => undef }
- ( @{$self->default_member_actions}, @{$self->default_collection_actions} );
-
- my @local_actions = qw/create update delete delete_all/;
- $map->{$_} = Action for grep { exists $allowed{$_} } @local_actions;
-
+__PACKAGE__->config(
+ action => {
+ create => { Chained => 'base', },
+ delete_all => { Chained => 'base', },
+ update => { Chained => 'object', },
+ delete => { Chained => 'object', },
+ },
+);
+
+with(
+ 'Reaction::UI::Controller::Role::Action::Create',
+ 'Reaction::UI::Controller::Role::Action::Update',
+ 'Reaction::UI::Controller::Role::Action::Delete',
+ 'Reaction::UI::Controller::Role::Action::DeleteAll',
+);
+
+around _build_action_viewport_map => sub {
+ my $orig = shift;
+ my $map = shift->$orig( @_ );
+ $map->{list} = ListView;
return $map;
-}
+};
sub _build_default_member_actions {
[ @{shift->next::method(@_)}, qw/update delete/ ];
[ @{shift->next::method(@_)}, qw/create delete_all/ ];
}
-sub get_model_action {
- my ($self, $c, $name, $target) = @_;
- return $target->action_for($name, ctx => $c);
-}
-
-sub create :Chained('base') :PathPart('create') :Args(0) {
- my ($self, $c) = @_;
- my $vp_args = {
- on_apply_callback => sub { $self->after_create_callback($c => @_); },
- on_close_callback => sub { $self->on_create_close_callback($c => @_) }
- };
- $self->basic_model_action( $c, $vp_args);
-}
-
-sub delete_all :Chained('base') :PathPart('delete_all') :Args(0) {
- my ($self, $c) = @_;
- $self->basic_model_action( $c, {
- on_close_callback => sub { $self->on_delete_all_close_callback($c => @_) }
- });
-}
+##DEFAULT CALLBACKS
sub on_delete_all_close_callback {
my($self, $c) = @_;
$self->redirect_to($c, 'list');
}
-sub after_create_callback {
+sub on_create_apply_callback {
my ($self, $c, $vp, $result) = @_;
return $self->redirect_to
( $c, 'update', [ @{$c->req->captures}, $result->id ] );
$self->redirect_to( $c, 'list' );
}
-sub update :Chained('object') :Args(0) {
- my ($self, $c) = @_;
- my $vp_args = {
- on_close_callback => sub { $self->on_update_close_callback($c => @_ ) }
- };
- $self->basic_model_action( $c, $vp_args);
+sub on_update_close_callback {
+ my($self, $c) = @_;
+ #this needs a better solution. currently thinking about it
+ my @cap = @{$c->req->captures};
+ pop(@cap); # object id
+ $self->redirect_to($c, 'list', \@cap);
}
-sub on_update_close_callback {
+sub on_delete_close_callback {
my($self, $c) = @_;
#this needs a better solution. currently thinking about it
my @cap = @{$c->req->captures};
$self->redirect_to($c, 'list', \@cap);
}
-sub delete :Chained('object') :Args(0) {
- my ($self, $c) = @_;
- my $vp_args = {
- on_close_callback => sub { $self->on_update_close_callback($c => @_) }
- };
- $self->basic_model_action( $c, $vp_args);
+#### DEPRECATED METHODS
+
+sub get_model_action {
+ my ($self, $c, $name, $target) = @_;
+ if( $c->debug ){
+ my ($package,undef,$line,$sub_name,@rest) = caller(1);
+ my $message = "The method 'get_model_action', called from sub '${sub_name}' in package ${package} at line ${line} is deprecated.";
+ $c->log->debug( $message );
+ }
+ return $target->action_for($name, ctx => $c);
}
sub basic_model_action {
my ($self, $c, $vp_args) = @_;
-
- my $target = exists $c->stash->{object} ?
- $c->stash->{object} : $self->get_collection($c);
+ if( $c->debug ){
+ my ($package,undef,$line,$sub_name,@rest) = caller(1);
+ my $message = "The method 'basic_model_action', called from sub '${sub_name}' in package ${package} at line ${line} is deprecated.";
+ $c->log->debug( $message );
+ }
+ my $stash = $c->stash;
+ my $target = delete $vp_args->{target};
+ $target ||= ($stash->{object} || $stash->{collection} || $self->get_collection($c));
my $action_name = join('', map{ ucfirst } split('_', $c->stack->[-1]->name));
my $model = $self->get_model_action($c, $action_name, $target);
=head1 NAME
-Reaction::UI::Controller::CRUD - Basic CRUD functionality for Reaction::InterfaceModel data
+Reaction::UI::Controller::Collection::CRUD - Basic CRUD functionality for Reaction::InterfaceModel data
=head1 DESCRIPTION
InterfaceModel models by providing a simple way to render and process your
custom InterfaceModel Actions and customize built-ins.
+=head1 ROLES CONSUMED
+
+This role also consumes the following roles:
+
+=over4
+
+=item L<Reaction::UI::Controller::Role::Action::Create>
+
+=item L<Reaction::UI::Controller::Role::Action::Update>
+
+=item L<Reaction::UI::Controller::Role::Action::Delete>
+
+=item L<Reaction::UI::Controller::Role::Action::DeleteAll>
+
+=back
+
=head1 METHODS
=head2 get_model_action $c, $action_name, $target_im
-Get an instance of the C<$action_name>
+DEPRECATED. Get an instance of the C<$action_name>
L<InterfaceModel::Action|Reaction::InterfaceModel::Action> for model C<$target>
This action is suitable for passing to an
C<Action|Reaction::UI::ViewPort::Action> viewport
+=head2 basic_model_action $c, \%vp_args
+
+DEPRECTAED extension to C<basic_page> which automatically instantiates an
+L<InterfaceModel::Action|Reaction::InterfaceModel::Action> with the right
+data target using C<get_model_action>
+
=head2 after_create_callback $c, $vp, $result
When a <create> action is applied, move the user to the new object's,
C<update> page.
-=head2 basic_model_action $c, \%vp_args
+=head2 _build_action_viewport_map
-Extension to C<basic_page> which automatically instantiates an
-L<InterfaceModel::Action|Reaction::InterfaceModel::Action> with the right
-data target using C<get_model_action>
+Map C<list> to L<ListView|Reaction::UI::ViewPort::ListView>.
-=head2 _build_action_viewport_map
+=head2 _build_default_member_actions
-Map C<create>, C<update>, C<delete> and C<delete_all> to use the
-C<Action|Reaction::UI::ViewPort::Action> viewport by default.
+Add C<update> and C<delete> to the list of default actions.
-=head2 _build_action_viewport_args
+=head2 _build_default_collection_actions
-Add action_prototypes to the C<list> action so that action links render correctly in L<ListView|Rection::UI::ViewPort::Listview>.
+Add C<create> and C<delete_all> to the list of default actions.
=head1 ACTIONS
=head2 create
-Chaned to C<base>. Create a new member of the collection represented by
-this controller. By default it attaches the C<after_create_callback> to
-DWIM after apply operations.
-
-See L<Create|Reaction::InterfaceModel::Action::DBIC::ResultSet::Create>
- for more info.
+Chained to C<base>. See L<Reaction::UI::Controller::Role::Action::Create>
=head2 delete_all
-Chained to B<base>, delete all the members of the B<collection>. In most cases
-this is very much like a C<TRUNCATE> operation.
-
-See L<DeleteAll|Reaction::InterfaceModel::Action::DBIC::ResultSet::DeleteAll>
- for more info.
+Chained to C<base>. See L<Reaction::UI::Controller::Role::Action::DeleteAll>
=head2 update
-Chained to C<object>, update a single object.
-
-See L<Update|Reaction::InterfaceModel::Action::DBIC::Result::Update>
- for more info.
+Chained to C<object>. See L<Reaction::UI::Controller::Role::Action::Update>
=head2 delete
-Chained to C<object>, deletee a single object.
-
-
-See L<Delete|Reaction::InterfaceModel::Action::DBIC::Result::Delete>
- for more info.
+Chained to C<object>. See L<Reaction::UI::Controller::Role::Action::Delete>
=head1 SEE ALSO