File Coverage

blib/lib/Plack/Middleware/ForceEnv.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	19	19	100.0

use strict;
use warnings;

package Plack::Middleware::ForceEnv;
use parent 'Plack::Middleware';

our $VERSION = '0.02';

sub call {
    my ($self, $env) = @_;

    # Add to env whatever the user gave us
    $env = {
        %$env,
        map { $_ => $self->{$_} } grep { $_ ne 'app' } keys %$self
    };

    return $self->app->($env);
}

1;
__END__