Add cdn caching to search (most hit end point, will do background revalidation and serve from cache if error)

Author: ranguard

lib/MetaCPAN/Web/Controller/About.pm

@@ -40,6 +40,8 @@ sub meta_hack : Local : Args(0) {
 
 sub resources : Local : Args(0) {
     my ( $self, $c ) = @_;
+    $c->browser_max_age('1y');
+    $c->cdn_max_age('1y');
     $c->res->redirect( '/about/contact', 301 );
     $c->detach;
 }

lib/MetaCPAN/Web/Controller/Pod.pm

@@ -40,6 +40,7 @@ sub view : Private {
     my $release    = $c->stash->{release};
 
     if ( $data->{directory} ) {
+        $c->cdn_max_age('1y');
         $c->res->redirect( $c->uri_for( '/source', @path ), 301 );
         $c->detach;
     }

lib/MetaCPAN/Web/Controller/Release.pm

@@ -65,7 +65,7 @@ sub view : Private {
 
     my $release = $data->{release};
 
-    $c->browser_max_age('1h');
+    $c->browser_max_age('1d');
     $c->res->last_modified( $release->{date} );
     $c->cdn_max_age('1y');
     $c->add_dist_key( $release->{distribution} );

lib/MetaCPAN/Web/Controller/Root.pm

@@ -113,10 +113,11 @@ Attempt to render a view, if needed.
 sub end : ActionClass('RenderView') {
     my ( $self, $c ) = @_;
 
-    # This will only affect if `cdn_max_age` has been set.
-    # https://www.fastly.com/documentation/guides/concepts/edge-state/cache/stale/
-    # If it has then do revalidation in the background
+# This will only affect if `cdn_max_age` has been set.
+# https://www.fastly.com/documentation/guides/concepts/edge-state/cache/stale/
+# If it has then do revalidation in the background
     $c->cdn_stale_while_revalidate('1d');
+
     # And if there is still an error serve from cache
     $c->cdn_stale_if_error('1y');
 

lib/MetaCPAN/Web/Controller/Search.pm

@@ -16,9 +16,13 @@ sub index : Path : Args(0) {
     my $page      = $req->page;
     my $page_size = $req->get_page_size(20);
 
+    # Cache searches as this is where most traffic hits
+    $c->cdn_max_age('1d');
+
     # Redirect back to main page if search query is empty irrespective of
     # whether we're feeling lucky or not.
     unless ( $req->param('q') ) {
+        $c->browser_max_age('1w');
         $c->res->redirect('/');
         $c->detach;
     }