Added /release/by_author_and_name/PAUSEID/RELNAME API endpoint

This new endpoint will be used to replace sent query from WEB.
metacpan · Jun 23, 2017 · 03afd2a · 03afd2a
1 parent 0795374
commit 03afd2a
Show file tree

Hide file tree

Showing 2 changed files with 38 additions and 0 deletions.
diff --git a/lib/MetaCPAN/Document/Release.pm b/lib/MetaCPAN/Document/Release.pm
@@ -612,6 +612,37 @@ sub activity {
     return { activity => $line };
 }
 
+sub by_author_and_name {
+    my ( $self, $author, $release ) = @_;
+
+    my $body = {
+        query => {
+            bool => {
+                must => [
+                    { term => { 'name' => $release } },
+                    { term => { author => uc($author) } }
+                ]
+            }
+        }
+    };
+
+    my $ret = $self->es->search(
+        index => $self->index->name,
+        type  => 'release',
+        body  => $body,
+    );
+    return unless $ret->{hits}{total};
+
+    my $data = [ map { $_->{_source} } @{ $ret->{hits}{hits} } ];
+    single_valued_arrayref_to_scalar($data);
+
+    return {
+        took     => $ret->{took},
+        releases => $data,
+        total    => $ret->{hits}{total}
+    };
+}
+
 sub latest_by_distribution {
     my ( $self, $distribution ) = @_;
 

diff --git a/lib/MetaCPAN/Server/Controller/Release.pm b/lib/MetaCPAN/Server/Controller/Release.pm
@@ -75,6 +75,13 @@ sub recent : Path('recent') : Args(0) {
     $c->stash($data);
 }
 
+sub by_author_and_name : Path('by_author_and_name') : Args(2) {
+    my ( $self, $c, $author, $name ) = @_;
+    my $data = $self->model($c)->raw->by_author_and_name( $author, $name );
+    return unless $data;
+    $c->stash($data);
+}
+
 sub latest_by_distribution : Path('latest_by_distribution') : Args(1) {
     my ( $self, $c, $dist ) = @_;
     my $data = $self->model($c)->raw->latest_by_distribution($dist);