Provide a redirect when requesting / rather than erroring

metacpan · Nov 18, 2016 · d986d00 · d986d00
1 parent 9339e16
commit d986d00
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/lib/MetaCPAN/Server/Controller/Root.pm b/lib/MetaCPAN/Server/Controller/Root.pm
@@ -15,6 +15,15 @@ sub default : Path {
     $c->forward( '/not_found', [] );
 }
 
+# handle /
+sub all : Path('') : Args(0) {
+    my ( $self, $c ) = @_;
+    $c->res->redirect(
+        'https://github.com/metacpan/metacpan-api/blob/master/docs/API-docs.md',
+        301
+    );
+}
+
 # The parent class has a sub with this signature but expects a namespace
 # and an es type... since this controller doesn't have those, just overwrite.
 sub get : Path('') : Args(1) {