# /api/rpc/artist/id/[id]/update
=cut
+=method_private begin
+
+ :Private
+
+begin is provided in the base class to setup the Catalyst Request object, by applying the DBIC::API::Request role.
+
+=cut
+
+sub begin :Private
+{
+ my ($self, $c) = @_;
+
+ Catalyst::Controller::DBIC::API::Request->meta->apply($c->req)
+ unless Moose::Util::does_role($c->req, 'Catalyst::Controller::DBIC::API::Request');
+}
+
+
=method_protected setup
:Chained('specify.in.subclass.config') :CaptureArgs(0) :PathPart('specify.in.subclass.config')
This action is the chain root of the controller. It must either be overridden or configured to provide a base pathpart to the action and also a parent action. For example, for class MyAppDB::Track you might have
package MyApp::Controller::API::RPC::Track;
- use base qw/Catalyst::Controller::DBIC::API::RPC/;
+ use Moose;
+ BEGIN { extends 'Catalyst::Controller::DBIC::API::RPC'; }
__PACKAGE__->config
( action => { setup => { PathPart => 'track', Chained => '/api/rpc/rpc_base' } },
$self->next::method($c);
}
-This action will populate $c->req->current_result_set with $self->stored_result_source->resultset for other actions in the chain to use.
+This action does nothing by default.
=cut
-sub setup :Chained('specify.in.subclass.config') :CaptureArgs(0) :PathPart('specify.in.subclass.config')
-{
- my ($self, $c) = @_;
-
- Catalyst::Controller::DBIC::API::Request->meta->apply($c->req)
- unless Moose::Util::does_role($c->req, 'Catalyst::Controller::DBIC::API::Request');
-}
+sub setup :Chained('specify.in.subclass.config') :CaptureArgs(0) :PathPart('specify.in.subclass.config') {}
=method_protected deserialize
+ :Chained('setup') :CaptureArgs(0) :PathPart('') :ActionClass('Deserialize')
+
deserialize absorbs the request data and transforms it into useful bits by using CGI::Expand->expand_hash and a smattering of JSON::Any->from_json for a handful of arguments. Current only the following arguments are capable of being expressed as JSON:
search_arg
grouped_by_arg
prefetch_arg
-It should be noted that arguments can used mixed modes in with some caveats. Each top level arg can be expressed as CGI::Expand with their immediate child keys expressed as JSON.
+It should be noted that arguments can used mixed modes in with some caveats. Each top level arg can be expressed as CGI::Expand with their immediate child keys expressed as JSON when sending the data application/x-www-form-urlencoded. Otherwise, you can send content as raw json and it will be deserialized as is with no CGI::Expand expasion.
=cut
sub objects_no_id :Chained('deserialize') :CaptureArgs(0) :PathPart('')
{
my ($self, $c) = @_;
-
- my $vals = $c->req->request_data->{$self->data_root};
- unless(defined($vals))
- {
- # no data root, assume the request_data itself is the payload
- $vals = [$c->req->request_data];
- }
- unless(reftype($vals) eq 'ARRAY')
- {
- $c->log->error('Invalid request data');
- $self->push_error($c, { message => 'Invalid request data' });
- $c->detach();
- }
-
- foreach my $val (@$vals)
+
+ if($c->req->has_request_data)
{
- unless(exists($val->{id}))
+ my $data = $c->req->request_data;
+ my $vals;
+
+ if(exists($data->{$self->data_root}) && defined($data->{$self->data_root}))
{
- $c->req->add_object([$c->req->current_result_set->new_result({}), $val]);
- next;
+ my $root = $data->{$self->data_root};
+ if(reftype($root) eq 'ARRAY')
+ {
+ $vals = $root;
+ }
+ elsif(reftype($root) eq 'HASH')
+ {
+ $vals = [$root];
+ }
+ else
+ {
+ $c->log->error('Invalid request data');
+ $self->push_error($c, { message => 'Invalid request data' });
+ $c->detach();
+ }
}
-
- try
+ else
{
- $c->req->add_object([$self->object_lookup($c, $val->{id}), $val]);
+ # no data root, assume the request_data itself is the payload
+ $vals = [$c->req->request_data];
}
- catch
+
+ foreach my $val (@$vals)
{
- $c->log->error($_);
- $self->push_error($c, { message => $_ });
- $c->detach();
+ unless(exists($val->{id}))
+ {
+ $c->req->add_object([$c->req->current_result_set->new_result({}), $val]);
+ next;
+ }
+
+ try
+ {
+ $c->req->add_object([$self->object_lookup($c, $val->{id}), $val]);
+ }
+ catch
+ {
+ $c->log->error($_);
+ $self->push_error($c, { message => $_ });
+ $c->detach();
+ }
}
}
}
$self->list_munge_parameters($c);
$self->list_perform_search($c);
$self->list_format_output($c);
+
+ # make sure there are no objects lingering
+ $c->req->clear_objects();
}
=method_protected list_munge_parameters
}
else
{
- $c->stash->{response}->{$self->item_root} = $self->each_object_inflate($c, $c->req->get_object(0));
+ $c->stash->{response}->{$self->item_root} = $self->each_object_inflate($c, $c->req->get_object(0)->[0]);
}
}
It should be noted that the return_object attribute will produce the above result for you, free of charge.
-For REST the only difference besides the class names would be that create should be :Private rather than an endpoint.
-
Similarly you might want create, update and delete to all forward to the list action once they are done so you can refresh your view. This should also be simple enough.
If more extensive customization is required, it is recommened to peer into the roles that comprise the system and make use
BEGIN { extends 'Catalyst::Controller::DBIC::API'; }
__PACKAGE__->config(
- 'action' => { object => { PathPart => 'id' } },
+ 'action' => { object_with_id => { PathPart => 'id' } },
'default' => 'application/json',
'stash_key' => 'response',
'map' => {
=method_protected create
-Chained: L</object_no_id>
+Chained: L</objects_no_id>
PathPart: create
CaptureArgs: 0
=cut
-sub create :Chained('object_no_id') :PathPart('create') :Args(0)
+sub create :Chained('objects_no_id') :PathPart('create')
{
my ($self, $c) = @_;
$c->forward('update_or_create');
=cut
-sub list :Chained('deserialize') :PathPart('list') :Args(0) {
+sub list :Chained('deserialize') :PathPart('list')
+{
my ($self, $c) = @_;
-
- $self->next::method($c);
+ $self->next::method($c);
}
=method_protected item
=cut
-sub item :Chained('object_with_id') :PathPart('') :Args(0) {
+sub item :Chained('object_with_id') :PathPart('')
+{
my ($self, $c) = @_;
-
- $c->forward('view');
+ $self->next::method($c);
}
=method_protected update
=cut
-sub update :Chained('object_with_id') :PathPart('update') :Args(0) {
+sub update :Chained('object_with_id') :PathPart('update')
+{
my ($self, $c) = @_;
-
$c->forward('update_or_create');
}
=cut
-sub delete :Chained('object_with_id') :PathPart('delete') :Args(0)
+sub delete :Chained('object_with_id') :PathPart('delete')
{
my ($self, $c) = @_;
$self->next::method($c);
=method_protected update_bulk
-Chained: L</object_no_id>
+Chained: L</objects_no_id>
PathPart: update
Args: 0
=cut
-sub update_bulk :Chained('object_no_id') :PathPart('update') :Args(0)
+sub update_bulk :Chained('objects_no_id') :PathPart('update')
{
my ($self, $c) = @_;
$c->forward('update_or_create');
=method_protected delete_bulk
-Chained: L</object_no_id>
+Chained: L</objects_no_id>
PathPart: delete
Args: 0
=cut
-sub delete_bulk :Chained('object_no_id') :PathPart('delete') :Args(0)
+sub delete_bulk :Chained('objects_no_id') :PathPart('delete')
{
my ($self, $c) = @_;
$self->next::method($c);
projects / catagits/Catalyst-Controller-DBIC-API.git / commitdiff