/permission/by_module : read modules list from request body

metacpan · Jun 21, 2017 · 39698a8 · 39698a8
1 parent 60689f9
commit 39698a8
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/lib/MetaCPAN/Server/Controller/Permission.pm b/lib/MetaCPAN/Server/Controller/Permission.pm
@@ -23,8 +23,12 @@ sub by_module : Path('by_module') : Args(1) {
 
 sub by_modules : Path('by_module') : Args(0) {
     my ( $self, $c ) = @_;
-    my @modules = $c->req->param('module');
-    my $data    = $self->model($c)->raw->by_modules( \@modules );
+    my $modules
+        = $c->req->body_data
+        ? $c->req->body_data->{module}
+        : [ $c->req->param('module') ];
+    return unless $modules and @{$modules};
+    my $data = $self->model($c)->raw->by_modules($modules);
     return unless $data;
     $c->stash($data);
 }