add RequestID middleware

lib/Plack/Middleware/MetaCPAN/RequestID.pm

@@ -0,0 +1,46 @@
+package Plack::Middleware::MetaCPAN::RequestID;
+use strict;
+use warnings;
+
+our $VERSION = 'v1.0.1';
+
+use Moo;
+
+use Digest::SHA;
+
+use namespace::clean;
+
+with qw(MetaCPAN::Role::Middleware);
+
+has env_key => (
+  is       => 'ro',
+  required => 1,
+);
+
+sub call {
+  my ( $self, $env ) = @_;
+
+  $env->{ $self->env_key } = Digest::SHA::sha1_hex( join(
+    "\0", $env->{REMOTE_ADDR}, $env->{REQUEST_URI}, time, $$, rand, ) );
+
+  $self->app->($env);
+}
+
+1;
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=for stopwords MDC
+
+=head1 NAME
+
+Plack::Middleware::MetaCPAN::RequestID - Generate a Request ID
+
+=head1 ATTRIBUTES
+
+=head2 env_key
+
+=cut

t/basic.t

@@ -7,6 +7,7 @@ use Catalyst::Plugin::MetaCPAN::Fastly;
 use Plack::Middleware::MetaCPAN::ReverseProxy;
 use Plack::Middleware::MetaCPAN::L4PContext;
 use Plack::Middleware::MetaCPAN::CSP;
+use Plack::Middleware::MetaCPAN::RequestID;
 use MetaCPAN::Role::Middleware;
 use MetaCPAN::Common;
 use MetaCPAN::Logger;

t/requestid.t

@@ -0,0 +1,27 @@
+use strict;
+use warnings;
+
+use Test::More;
+use Data::Dumper ();
+use Plack::Middleware::MetaCPAN::RequestID;
+use HTTP::Request::Common qw(GET);
+use Plack::Test           qw(test_psgi);
+
+my $app = sub {
+  my $env = shift;
+  [ 200, [], [ $env->{'request-id'} ] ];
+};
+$app = Plack::Middleware::MetaCPAN::RequestID->wrap(
+  $app,
+  {
+    env_key => 'request-id',
+  }
+);
+
+test_psgi $app, sub {
+  my $cb  = shift;
+  my $res = $cb->( GET "/" );
+  like $res->content, qr/\A[a-zA-Z0-9]{40}\z/, 'has a request id';
+};
+
+done_testing;