move MetaCPAN::Model::Search to MetaCPAN::Query::Search

The module more resembles a query module.

Author: haarg

lib/MetaCPAN/API/Plugin/Model.pm

@@ -5,7 +5,7 @@ use Mojo::Base 'Mojolicious::Plugin';
 use Carp ();
 
 # Models from the catalyst app
-use MetaCPAN::Model::Search ();
+use MetaCPAN::Query::Search ();
 
 # New models
 use MetaCPAN::API::Model::Cover    ();
@@ -21,9 +21,9 @@ has download => sub {
 
 has search => sub {
     my $self = shift;
-    return MetaCPAN::Model::Search->new(
-        es    => $self->app->es,
-        index => 'cpan',
+    return MetaCPAN::Query::Search->new(
+        es         => $self->app->es,
+        index_name => 'cpan',
     );
 };
 

lib/MetaCPAN/Model/Search.pm renamed to lib/MetaCPAN/Query/Search.pm

@@ -1,4 +1,4 @@
-package MetaCPAN::Model::Search;
+package MetaCPAN::Query::Search;
 
 use MetaCPAN::Moose;
 
@@ -10,18 +10,7 @@ use MetaCPAN::Types::TypeTiny qw( Object Str );
 use MetaCPAN::Util qw( single_valued_arrayref_to_scalar true false );
 use MooseX::StrictConstructor;
 
-has es => (
-    is       => 'ro',
-    isa      => Object,
-    handles  => { _run_query => 'search', },
-    required => 1,
-);
-
-has index => (
-    is       => 'ro',
-    isa      => Str,
-    required => 1,
-);
+with 'MetaCPAN::Query::Role::Common';
 
 const my $RESULTS_PER_RUN => 200;
 const my @ROGUE_DISTRIBUTIONS => qw(
@@ -368,7 +357,7 @@ sub build_query {
 
 sub run_query {
     my ( $self, $type, $es_query ) = @_;
-    return $self->_run_query(
+    return $self->es->search(
         index       => $self->index,
         type        => $type,
         body        => $es_query,

lib/MetaCPAN/Server/Model/Search.pm

@@ -4,20 +4,20 @@ use strict;
 use warnings;
 
 use Moose;
-use MetaCPAN::Model::Search ();
+use MetaCPAN::Query::Search ();
 
 extends 'MetaCPAN::Server::Model::CPAN';
 
 has search => (
     is      => 'ro',
-    isa     => 'MetaCPAN::Model::Search',
+    isa     => 'MetaCPAN::Query::Search',
     lazy    => 1,
     handles => [qw( search_for_first_result search_web )],
     default => sub {
         my $self = shift;
-        return MetaCPAN::Model::Search->new(
-            es    => $self->es,
-            index => $self->index,
+        return MetaCPAN::Query::Search->new(
+            es         => $self->es,
+            index_name => $self->index,
         );
     },
 );

t/model/search.t

@@ -2,17 +2,17 @@ use strict;
 use warnings;
 use lib 't/lib';
 
-use MetaCPAN::Model::Search ();
+use MetaCPAN::Query::Search ();
 use MetaCPAN::TestServer    ();
 use MetaCPAN::Util          qw(true false);
 use Test::Deep              qw( cmp_deeply ignore );
 use Test::More;
 
 # Just use this to get an es object.
 my $server = MetaCPAN::TestServer->new;
-my $search = MetaCPAN::Model::Search->new(
-    es    => $server->es_client,
-    index => 'cpan',
+my $search = MetaCPAN::Query::Search->new(
+    es         => $server->es_client,
+    index_name => 'cpan',
 );
 
 ok( $search, 'search' );

xt/search_web.t

@@ -5,15 +5,15 @@ use lib 't/lib';
 # USE `bin/prove_live` to run this
 # READ the README.txt in this dir
 
-use MetaCPAN::Model::Search ();
+use MetaCPAN::Query::Search ();
 use MetaCPAN::TestServer    ();
 use Test::More;
 
 # Just use this to get an es object.
 my $server = MetaCPAN::TestServer->new;
-my $search = MetaCPAN::Model::Search->new(
-    es    => $server->es_client,
-    index => 'cpan',
+my $search = MetaCPAN::Query::Search->new(
+    es          => $server->es_client,
+    index_name => 'cpan',
 );
 
 my %tests = (