如何在Catalyst中限制POST的请求

时间:2011-11-09 21:48:08

标签: perl catalyst

我是Catalyst的新手,刚刚开始构建一个Web应用程序来学习一些东西。

我还没想到的一件事是如何将对给定控制器方法的请求限制为POST(例如)。

一个具体的例子是,将触发在数据库中创建对象的请求。由于我希望这个应用程序对REST动词非常严格,所以这应该只能通过POST。

我知道我可以使用     $ C->方法 检查请求中使用的方法,并返回错误或类似的东西,如果我找不到我要找的东西,但我希望有一个...更清洁的方式。

现在我有类似

的东西
sub create :Local :Args(0) {
    ...
}

我注定要检查子程序中的方法,并为每个方法执行此操作吗?

请记住,我对Catalyst非常陌生,所以这可能是一个愚蠢的问题。

感谢您的帮助!

3 个答案:

答案 0 :(得分:6)

您可以使用Catalyst::Controller::REST模块。

sub thing : Local : ActionClass('REST') { }

# Answer POST requests to "thing"
sub thing_POST {
   my ( $self, $c ) = @_;

   # Return a 200 OK, with the data in entity
   # serialized in the body
   $self->status_ok(
        $c,
        entity => {
            some => 'data',
            foo  => 'is real bar-y',
        },
   );
}

答案 1 :(得分:2)

if ( $c->req->method eq 'POST' ) {
    $form->process( params => $c->req->params );
}

答案 2 :(得分:0)

Catalyst已经在核心中进行了近一年的HTTP方法匹配:

http://www.catalystframework.org/calendar/2013/3

在Catalyst :: Action :: REST上使用它有利有弊。主要是它归结为样式,并且CAR在设置HTTP接受标头方面做得更好(对于硬核REST应用程序可能对您很重要)

但是对于基础知识来说,开箱即用的东西很好。