sub create :Chained('base') :PathPart('create') :Args(0) {
my ($self, $c) = @_;
my $vp_args = {
- next_action => 'list'
+ next_action => 'list',
on_apply_callback => sub { $self->after_create_callback($c => @_); },
};
$c->forward( basic_model_action => $vp_args);
sub update :Chained('object') :Args(0) {
my ($self, $c) = @_;
+ #this needs a better solution. currently thinking about it
my @cap = @{$c->req->captures};
pop(@cap); # object id
my $vp_args = { next_action => [ $self, 'redirect_to', 'list', \@cap ]};
sub delete :Chained('object') :Args(0) {
my ($self, $c) = @_;
+ #this needs a better solution. currently thinking about it
my @cap = @{$c->req->captures};
pop(@cap); # object id
my $vp_args = { next_action => [ $self, 'redirect_to', 'list', \@cap ]};