lib/Plack/Middleware/OverrideEnv.pm

   1 package Plack::Middleware::OverrideEnv;
   2
   3 use strict;
   4 use warnings;
   5 use parent 'Plack::Middleware';
   6
   7 use Plack::Util::Accessor qw(env_override);
   8
   9 sub call {
  10     my ($self, $env) = @_;
  11     return $self->app->({ %{ $env }, %{ $self->env_override || {} } });
  12 }
  13
  14 1;