Beginnings of URL handling for source files. We'll want to unzip them…

… on the fly if they haven't already been unzipped.

lib/Plack/Middleware/CPANSource.pm

@@ -0,0 +1,20 @@
+package Plack::Middleware::CPANSource;
+
+use parent qw( Plack::Middleware );
+
+use Data::Dump qw( dump );
+use Modern::Perl;
+
+sub call {
+    my($self, $env) = @_;
+    # Do something with $env
+
+    say dump( $env ); 
+    # $self->app is the original app
+    my $res = $self->app->($env);
+
+    # Do something with $res
+    return $res;
+}
+
+1;

source/app.psgi

@@ -0,0 +1,12 @@
+use Plack::App::Directory;
+use Plack::Builder;
+
+# plackup -I../lib
+
+my $app = Plack::App::Directory->new(root => "/home/cpan/CPAN")->to_app;
+
+builder {
+    enable "Plack::Middleware::CPANSource";
+    $app;
+};
+