Merge pull request #3337 from manwar/patch-for-issue-3235

Proposed patch for issue 3235

Author: oalders

lib/MetaCPAN/Web/Controller/Author.pm

@@ -55,7 +55,11 @@ sub index : Chained('root') PathPart('') Args(0) {
         @{ $releases->{releases} };
     $c->res->last_modified($date) if $date;
 
-    my $faves = $c->model('API::Favorite')->by_user( $author->{user} )->get;
+    # Issue: https://github.com/metacpan/metacpan-web/issues/3235
+    # Explicitly setting size to 500 to override the default size 250.
+    my $size = 500;
+    my $faves
+        = $c->model('API::Favorite')->by_user( $author->{user}, $size )->get;
 
     my $profiles = $c->model('API::Author')->profile_data;
 

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

@@ -24,8 +24,8 @@ sub by_user {
     $size ||= 250;
     return Future->done( [] )
         if !defined $user;
-    return $self->request( "/favorite/by_user/$user", { size => $size } )
-        ->transform(
+    return $self->request( "/favorite/by_user/$user", undef,
+        { size => $size } )->transform(
         done => sub {
             my $data = shift;
             return [] unless exists $data->{favorites};