如何在Catalyst中限制POST的请求

pca*_*cao 4 perl catalyst

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

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

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

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

现在我有类似的东西

sub create :Local :Args(0) {
    ...
}
Run Code Online (Sandbox Code Playgroud)

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

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

谢谢您的帮助!

Que*_*tin 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',
        },
   );
}
Run Code Online (Sandbox Code Playgroud)