wip: move ES code out of controllers

metacpan · Nov 23, 2016 · 57f3c8e · 57f3c8e
1 parent bb62ce5
commit 57f3c8e
Show file tree

Hide file tree

Showing 2 changed files with 21 additions and 15 deletions.
diff --git a/lib/MetaCPAN/Document/Release.pm b/lib/MetaCPAN/Document/Release.pm
@@ -365,6 +365,26 @@ sub find_github_based {
         { and => [ { term => { status => 'latest' } }, { or => $or } ] } );
 }
 
+sub latest_by_author {
+    my ( $self, $author ) = @_;
+
+    my $filter = {
+        and => [
+            { term => { author => uc($author) } },
+            { term => { status => 'latest' } }
+        ]
+    };
+
+    my $file
+        = $self->filter($filter)
+        ->sort(
+        [ 'distribution', { 'version_numified' => { reverse => 1 } } ] )
+        ->fields( [qw< author distribution name status abstract date >] )
+        ->size(1000)->all;
+
+    return $file;
+}
+
 sub top_uploaders {
     my ( $self, $range ) = @_;
 

diff --git a/lib/MetaCPAN/Server/Controller/Release.pm b/lib/MetaCPAN/Server/Controller/Release.pm
@@ -52,21 +52,7 @@ sub get : Path('') : Args(2) {
 
 sub latest_by_author : Path('latest_by_author') : Args(1) {
     my ( $self, $c, $author ) = @_;
-
-    my $filter = {
-        and => [
-            { term => { author => uc($author) } },
-            { term => { status => 'latest' } }
-        ]
-    };
-
-    my $file
-        = $self->model($c)->raw->filter($filter)
-        ->sort(
-        [ 'distribution', { 'version_numified' => { reverse => 1 } } ] )
-        ->fields( [qw< author distribution name status abstract date >] )
-        ->size(1000)->all;
-
+    my $file = $self->model($c)->raw->latest_by_author($author);
     $c->stash($file);
 }