Merge pull request #1924 from metacpan/mickey/cleanup_method

Removed unused method
metacpan · Jun 20, 2017 · 866a70a · 866a70a
2 parents bedb887 + 4bcdb89
commit 866a70a
Showing 1 changed file with 0 additions and 49 deletions.
diff --git a/lib/MetaCPAN/Web/Model/API/Release.pm b/lib/MetaCPAN/Web/Model/API/Release.pm
@@ -320,61 +320,12 @@ sub versions {
     );
 }
 
-sub favorites {
-    my $self = shift;
-    $self->request( '/favorite/_search', {} );
-}
-
 sub topuploaders {
     my ( $self, $range ) = @_;
     my $param = $range ? { range => $range } : ();
     $self->request( '/release/top_uploaders', undef, $param );
 }
 
-sub no_latest {
-    my ( $self, @distributions ) = @_;
-
-    # If there are no distributions return
-    return Future->done( {} ) unless (@distributions);
-
-    @distributions = uniq @distributions;
-    $self->request(
-        '/release/_search',
-        {
-            size  => scalar @distributions,
-            query => {
-                bool => {
-                    must => [
-                        { terms => { distribution => \@distributions } },
-                        { term  => { status       => 'latest' } }
-                    ]
-                }
-            },
-            fields => [qw(distribution status)]
-        }
-        )->transform(
-        done => sub {
-            my $data = shift;
-            my @latest
-                = map { $_->{fields}->{distribution} }
-                @{ $data->{hits}->{hits} };
-            return (
-                {
-                    took      => $data->{took},
-                    no_latest => {
-                        map {
-                            my $distro = $_;
-                            ( first { $_ eq $distro } @latest )
-                                ? ()
-                                : ( $distro, 1 );
-                        } @distributions
-                    }
-                }
-            );
-        }
-        );
-}
-
 __PACKAGE__->meta->make_immutable;
 
 1;