[catagits/Catalyst-Runtime.git] / lib / Plack / Middleware / OverrideEnv.pm

package Plack::Middleware::OverrideEnv;

use strict;
use warnings;
use parent 'Plack::Middleware';

use Plack::Util::Accessor qw(env_override);

sub call {
    my ($self, $env) = @_;
    return $self->app->({ %{ $env }, %{ $self->env_override || {} } });
}

1;
Commit	Line	Data
65791fc5	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;