File Coverage

blib/lib/Plack/Middleware/SetLocalEnv.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	22	22	100.0

package Plack::Middleware::SetLocalEnv;
use 5.008001;
use strict;
use warnings;
use parent "Plack::Middleware";

our $VERSION = "0.01";

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

    local %ENV = %ENV;
    for my $key (keys %$self) {
        $ENV{$key} = $env->{ $self->{$key} };
    }
    $self->app->($env);
}

1;
__END__