no_latest: use callback.

Author: mavorg

lib/MetaCPAN/Web/Controller/Author.pm

@@ -60,12 +60,13 @@ sub index : Chained('root') PathPart('') Args(0) {
 
  my @all_fav = map { $_->{fields}->{distribution} }
  @{ $faves_data->{hits}->{hits} };
- my $noLatest = $c->model('API::Release')->no_latest(@all_fav);
+ my $noLatest = $c->model('API::Release')->no_latest(@all_fav)->recv;
+ $took += $noLatest->{took} || 0;
 
  $faves = [
  map {
  my $distro = $_->{fields}->{distribution};
- $noLatest->{$distro} ? () : $_->{fields};
+ $noLatest->{no_latest}->{$distro} ? () : $_->{fields};
  } @{ $faves_data->{hits}->{hits} }
  ];
  $self->single_valued_arrayref_to_scalar($faves);

lib/MetaCPAN/Web/Model/API/Release.pm

@@ -445,12 +445,13 @@ sub topuploaders {
 
 sub no_latest {
  my ( $self, @distributions ) = @_;
+ my $cv = $self->cv;
 
  # If there are no distributions return
  return {} unless (@distributions);
 
  @distributions = uniq @distributions;
- my $result = $self->request(
+ $self->request(
  '/release/_search',
  {
  size => scalar @distributions,
@@ -467,17 +468,28 @@ sub no_latest {
  },
  fields => [qw(distribution status)]
  }
- )->recv;
-
- my @latest
- = map { $_->{fields}->{distribution} } @{ $result->{hits}->{hits} };
-
- my %no_latest = map {
- my $distro = $_;
- ( first { $_ eq $distro } @latest ) ? () : ( $distro, 1 );
- } @distributions;
-
- return \%no_latest;
+ )->cb(
+ sub {
+ my $data = shift->recv;
+ my @latest
+ = map { $_->{fields}->{distribution} }
+ @{ $data->{hits}->{hits} };
+ $cv->send(
+ {
+ took => $data->{took},
+ no_latest => {
+ map {
+ my $distro = $_;
+ ( first { $_ eq $distro } @latest )
+ ? ()
+ : ( $distro, 1 );
+ } @distributions
+ }
+ }
+ );
+ }
+ );
+ return $cv;
 }
 
 __PACKAGE__->meta->make_immutable;