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

发布时间：2020-12-16 06:20:45 所属栏目：大数据来源：网络整理

导读：我是Catalyst的新手,刚开始构建一个Web应用程序来学习一些东西. 我还没想到的一件事是如何将对给定控制器方法的请求限制为POST(例如). 一个具体的例子是,将触发在数据库中创建对象的请求.由于我希望这个应用程序对REST动词非常严格,这应该只能通过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',},);
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!