=cut
-sub base : Chained('setup') PathPart('') ActionClass('REST') Args {
- my ( $self, $c ) = @_;
+sub no_id : Chained('object_no_id') PathPart('') ActionClass('REST') :CaptureArgs(0) {}
+sub no_id_PUT
+{
+ my ( $self, $c ) = @_;
+ $c->forward('update_or_create');
}
-sub base_PUT {
+sub no_id_POST
+{
my ( $self, $c ) = @_;
-
- $c->forward('object');
- return if $self->get_errors($c);
$c->forward('update_or_create');
}
-sub base_POST {
+sub no_id_DELETE
+{
my ( $self, $c ) = @_;
+ $c->forward('delete');
+}
+
+sub no_id_GET
+{
+ my ( $self, $c ) = @_;
+ $c->forward('list');
+}
- $c->forward('object');
- return if $self->get_errors($c);
+sub with_id :Chained('object_with_id') :PathPart('') :ActionClass('REST') :CaptureArgs(0) {}
+
+sub with_id_PUT
+{
+ my ( $self, $c ) = @_;
$c->forward('update_or_create');
}
-sub base_DELETE {
+sub with_id_POST
+{
my ( $self, $c ) = @_;
- $DB::single =1;
- $c->forward('object');
- return if $self->get_errors($c);
- $c->forward('delete');
+ $c->forward('update_or_create');
}
-sub base_GET {
+sub with_id_DELETE
+{
my ( $self, $c ) = @_;
+ $c->forward('delete');
+}
- $c->forward('list');
+sub with_id_GET
+{
+ my ( $self, $c ) = @_;
+ $c->forward('item');
}
1;