Added new /release/modules/PAUSEID/RELNAME endpoint

This endpoint will replace the query sent from WEB.
metacpan · Jun 23, 2017 · c114465 · c114465
1 parent 54e5bc3
commit c114465
Show file tree

Hide file tree

Showing 2 changed files with 100 additions and 0 deletions.
diff --git a/lib/MetaCPAN/Document/Release.pm b/lib/MetaCPAN/Document/Release.pm
@@ -960,5 +960,98 @@ sub recent {
     };
 }
 
+sub modules {
+    my ( $self, $author, $release ) = @_;
+
+    my $body = {
+        query => {
+            bool => {
+                must => [
+                    { term => { release   => $release } },
+                    { term => { author    => $author } },
+                    { term => { directory => 0 } },
+                    {
+                        bool => {
+                            should => [
+                                {
+                                    bool => {
+                                        must => [
+                                            {
+                                                exists => {
+                                                    field => 'module.name'
+                                                }
+                                            },
+                                            {
+                                                term =>
+                                                    { 'module.indexed' => 1 }
+                                            }
+                                        ]
+                                    }
+                                },
+                                {
+                                    bool => {
+                                        must => [
+                                            {
+                                                range => {
+                                                    slop => { gt => 0 }
+                                                }
+                                            },
+                                            {
+                                                exists => {
+                                                    field => 'pod.analyzed'
+                                                }
+                                            },
+                                            {
+                                                term => { 'indexed' => 1 }
+                                            },
+                                        ]
+                                    }
+                                }
+                            ]
+                        }
+                    }
+                ]
+            }
+        },
+        size => 999,
+
+        # Sort by documentation name; if there isn't one, sort by path.
+        sort => [ 'documentation', 'path' ],
+
+        _source => [ "module", "abstract" ],
+
+        fields => [
+            qw(
+                author
+                authorized
+                distribution
+                documentation
+                indexed
+                path
+                pod_lines
+                release
+                status
+                )
+        ],
+    };
+
+    my $ret = $self->es->search(
+        index => $self->index->name,
+        type  => 'file',
+        body  => $body,
+    );
+    return unless $ret->{hits}{total};
+
+    my @files = map { single_valued_arrayref_to_scalar($_) }
+        map +{ %{ $_->{fields} }, %{ $_->{_source} } },
+        @{ $ret->{hits}{hits} };
+
+    return {
+        files => \@files,
+        total => $ret->{hits}{total},
+        took  => $ret->{took}
+    };
+}
+
 __PACKAGE__->meta->make_immutable;
 1;
diff --git a/lib/MetaCPAN/Server/Controller/Release.pm b/lib/MetaCPAN/Server/Controller/Release.pm
@@ -67,6 +67,13 @@ sub files : Path('files') : Args(1) {
     $c->stash($data);
 }
 
+sub modules : Path('modules') : Args(2) {
+    my ( $self, $c, $author, $name ) = @_;
+    my $data = $self->model($c)->raw->modules( $author, $name );
+    return unless $data;
+    $c->stash($data);
+}
+
 sub recent : Path('recent') : Args(0) {
     my ( $self, $c ) = @_;
     my @params = @{ $c->req->params }{qw( page page_size type )};