Merge pull request #816 from metacpan/haarg/author-prefix-search

author prefix search endpoint

Author: oalders

cpanfile

@@ -8,6 +8,7 @@ requires 'CPAN::DistnameInfo', '0.12';
 requires 'CPAN::Meta', '2.150005'; # Avoid issues with List::Util dep under carton install.
 requires 'CPAN::Meta::Requirements', '2.140';
 requires 'CPAN::Meta::YAML', '0.018';
+requires 'CPAN::Repository::Perms';
 requires 'Captcha::reCAPTCHA', '0.99';
 requires 'Catalyst', '5.90103';
 requires 'Catalyst::Action::RenderView';
@@ -25,20 +26,19 @@ requires 'Catalyst::Utils';
 requires 'Catalyst::View';
 requires 'Catalyst::View::JSON', '0.36';
 requires 'CatalystX::Component::Traits';
+requires 'CatalystX::Fastly::Role::Response', '0.06';
 requires 'CatalystX::InjectComponent';
 requires 'CatalystX::RoleApplicator';
-requires 'CatalystX::Fastly::Role::Response', '0.06';
-requires 'CPAN::Repository::Perms';
 requires 'Config::ZOMG', '>=', '1.000000';
 requires 'Const::Fast';
 requires 'Cpanel::JSON::XS', '3.0115';
 requires 'Cwd';
-requires 'Data::Printer', '0.38';
 requires 'DBD::SQLite', '>=1.50';
 requires 'DBI', '1.616';
 requires 'Data::DPath';
 requires 'Data::Dump';
 requires 'Data::Dumper';
+requires 'Data::Printer', '0.38';
 requires 'DateTime', '1.24';
 requires 'DateTime::Format::ISO8601';
 requires 'Devel::ArgNames';
@@ -99,18 +99,18 @@ requires 'Module::Load';
 requires 'Module::Metadata', '1.000022';
 requires 'Module::Pluggable';
 requires 'Module::Runtime';
-requires 'Moose', ' >= 2.1403';
 requires 'Mojo::Pg', '>= 4.08';
+requires 'Moose', ' >= 2.1403';
 requires 'Moose::Role';
 requires 'Moose::Util';
 requires 'MooseX::Aliases';
 requires 'MooseX::Attribute::Deflator', '2.1.5';
 requires 'MooseX::ChainedAccessors';
 requires 'MooseX::ClassAttribute';
+requires 'MooseX::Fastly::Role', '0.02';
 requires 'MooseX::Getopt', '0.71';
 requires 'MooseX::Getopt::Dashes';
 requires 'MooseX::Getopt::OptionTypeMap';
-requires 'MooseX::Fastly::Role', '0.02';
 requires 'MooseX::StrictConstructor';
 requires 'MooseX::Types';
 requires 'MooseX::Types::Common::String';
@@ -130,8 +130,8 @@ requires 'Parse::CPAN::Packages::Fast', '0.09';
 requires 'Parse::CSV', '2.04';
 requires 'Parse::PMFile', '0.41';
 requires 'Path::Class', '>= 0.36';
-requires 'Path::Iterator::Rule', '>=1.011';
 requires 'Path::Class::File';
+requires 'Path::Iterator::Rule', '>=1.011';
 requires 'PerlIO::gzip';
 requires 'Pithub', '0.01033';
 requires 'Plack', '1.0039';
@@ -158,8 +158,8 @@ requires 'Regexp::Common::time';
 requires 'Safe', '2.35'; # bug fixes (used by Parse::PMFile)
 requires 'Search::Elasticsearch', '== 2.03';
 requires 'Starman';
-requires 'Time::Local';
 requires 'Throwable::Error';
+requires 'Time::Local';
 requires 'Try::Tiny', '0.24';
 requires 'URI', '1.71';
 requires 'URI::Escape';
@@ -178,17 +178,17 @@ requires 'version', '0.9901';
 requires 'warnings';
 
 test_requires 'App::Prove';
+test_requires 'CPAN::Faker', '0.010';
 test_requires 'Code::TidyAll', '>= 0.47';
 test_requires 'Code::TidyAll::Plugin::UniqueLines';
-test_requires 'CPAN::Faker', '0.010';
-test_requires 'Devel::Confess';
-test_requires 'Module::Faker', '0.015';
-test_requires 'Module::Faker::Dist', '0.010';
 test_requires 'Config::General';
+test_requires 'Devel::Confess';
 test_requires 'File::Copy';
 test_requires 'HTTP::Cookies';
 test_requires 'LWP::ConsoleLogger::Easy';
 test_requires 'MetaCPAN::Client', '>=', '2.017000';
+test_requires 'Module::Faker', '0.015';
+test_requires 'Module::Faker::Dist', '0.010';
 test_requires 'Perl::Tidy' => '20180220';
 test_requires 'Plack::Test::Agent';
 test_requires 'Test::Code::TidyAll';

lib/MetaCPAN/Document/Author/Set.pm

@@ -11,7 +11,7 @@ has query_author => (
     isa     => 'MetaCPAN::Query::Author',
     lazy    => 1,
     builder => '_build_query_author',
-    handles => [qw< by_ids by_user search >],
+    handles => [qw< by_ids by_user search prefix_search >],
 );
 
 sub _build_query_author {

lib/MetaCPAN/Query/Author.pm

@@ -105,5 +105,38 @@ sub search {
     };
 }
 
+sub prefix_search {
+    my ( $self, $query, $opts ) = @_;
+    my $size = $opts->{size} // 500;
+    my $from = $opts->{from} // 0;
+
+    my $body = {
+        query => {
+            prefix => {
+                pauseid => $query,
+            },
+        },
+        size => $size,
+        from => $from,
+    };
+
+    my $ret = $self->es->search(
+        index => $self->index_name,
+        type  => 'author',
+        body  => $body,
+    );
+
+    my @authors = map {
+        single_valued_arrayref_to_scalar( $_->{_source} );
+        +{ %{ $_->{_source} }, id => $_->{_id} }
+    } @{ $ret->{hits}{hits} };
+
+    return +{
+        authors => \@authors,
+        took    => $ret->{took},
+        total   => $ret->{hits}{total},
+    };
+}
+
 __PACKAGE__->meta->make_immutable;
 1;

lib/MetaCPAN/Server/Controller/Author.pm

@@ -61,4 +61,14 @@ sub by_users : Path('by_user') : Args(0) {
         $self->model($c)->by_user( $c->read_param('user') ) );
 }
 
+# /author/by_prefix/PAUSE_ID_PREFIX
+sub by_prefix : Path('by_prefix') : Args(1) {
+    my ( $self, $c, $prefix ) = @_;
+    my ($size) = $c->read_param('size')->[0] // 500;
+    my ($from) = $c->read_param('from')->[0] // 0;
+
+    $c->stash_or_detach( $self->model($c)
+            ->prefix_search( $prefix, { size => $size, from => $from } ) );
+}
+
 1;