perl – 如何在Catalyst中限制POST的请求

前端之家收集整理的这篇文章主要介绍了perl – 如何在Catalyst中限制POST的请求前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我是Catalyst的新手,刚开始构建一个Web应用程序来学习一些东西.

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

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

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

现在我有类似的东西

sub create :Local :Args(0) {
    ...
}

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

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

谢谢您的帮助!

解决方法

您可以使用 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',},);
}

猜你在找的Perl相关文章