package Catalyst::Controller::DBIC::API::REST; #ABSTRACT: Provides a REST interface to DBIx::Class use Moose; BEGIN { extends 'Catalyst::Controller::DBIC::API'; } __PACKAGE__->config( 'default' => 'application/json', 'stash_key' => 'response', 'map' => { 'application/x-www-form-urlencoded' => 'JSON', 'application/json' => 'JSON', }); =head1 DESCRIPTION Provides a REST style API interface to the functionality described in L. By default provides the following endpoints: $base (accepts PUT and GET) $base/[identifier] (accepts POST and DELETE) Where $base is the URI described by L, the chain root of the controller, and the request type will determine the L method to forward. =method_protected setup Chained: override PathPart: override CaptureArgs: 0 As described in L, this action is the chain root of the controller but has no pathpart or chain parent defined by default, so these must be defined in order for the controller to function. The neatest way is normally to define these using the controller's config. __PACKAGE__->config ( action => { setup => { PathPart => 'track', Chained => '/api/rest/rest_base' } }, ... ); =method_protected base Chained: L PathPart: none CaptureArgs: 0 Forwards to list level methods described in L as follows: DELETE: forwards to L then L POST/PUT: forwards to L then L GET: forwards to L =cut sub base : Chained('setup') PathPart('') ActionClass('REST') Args { my ( $self, $c ) = @_; } sub base_PUT { my ( $self, $c ) = @_; $c->forward('object'); return if $self->get_errors($c); $c->forward('update_or_create'); } sub base_POST { my ( $self, $c ) = @_; $c->forward('object'); return if $self->get_errors($c); $c->forward('update_or_create'); } sub base_DELETE { my ( $self, $c ) = @_; $DB::single =1; $c->forward('object'); return if $self->get_errors($c); $c->forward('delete'); } sub base_GET { my ( $self, $c ) = @_; $c->forward('list'); } 1;