simplify /v1/ dev rewrite

Author: haarg

app.psgi

@@ -61,6 +61,9 @@ my $static
 
 my $urlmap = Plack::App::URLMap->new;
 $urlmap->map( '/static' => $static );
-$urlmap->map( '/'       => MetaCPAN::Server->app );
+if ( $ENV{PLACK_ENV} && $ENV{PLACK_ENV} eq 'development' ) {
+    $urlmap->map( '/v1' => MetaCPAN::Server->app );
+}
+$urlmap->map( '/' => MetaCPAN::Server->app );
 
 return $urlmap->to_app;

cpanfile

@@ -115,7 +115,6 @@ requires 'Plack', '1.0048';
 requires 'Plack::App::Directory';
 requires 'Plack::Middleware::Header';
 requires 'Plack::Middleware::ReverseProxy';
-requires 'Plack::Middleware::Rewrite';
 requires 'Plack::Middleware::Session';
 requires 'Plack::Session::Store';
 requires 'Pod::Markdown', '3.300';
@@ -167,5 +166,4 @@ requires 'Test::Routine', '0.012';
 requires 'Test::Vars', '0.015';
 
 # author requirements
-requires 'Plack::Middleware::Rewrite';
 requires 'App::perlimports';

cpanfile.snapshot

@@ -6109,18 +6109,6 @@ DISTRIBUTIONS
       Test::More 0
       parent 0
       perl 5.008001
-  Plack-Middleware-Rewrite-2.102
-    pathname: A/AR/ARISTOTLE/Plack-Middleware-Rewrite-2.102.tar.gz
-    provides:
-      Plack::Middleware::Rewrite 2.102
-    requirements:
-      Plack 0.9942
-      Plack::Middleware 0
-      Plack::Request 0
-      Plack::Util 0
-      Plack::Util::Accessor 0
-      overload 0
-      perl 5.006
   Plack-Middleware-Session-0.34
     pathname: M/MI/MIYAGAWA/Plack-Middleware-Session-0.34.tar.gz
     provides:

lib/MetaCPAN/Server.pm

@@ -107,10 +107,6 @@ sub app {
             };
         };
 
-        if ( $ENV{PLACK_ENV} && $ENV{PLACK_ENV} eq 'development' ) {
-            enable 'Rewrite', rules => sub {s{^/?v\d+/}{}};
-        }
-
         $class->apply_default_middlewares( $class->psgi_app );
     };
 }