File Coverage

blib/lib/Plack/Middleware/SetLocalEnv.pm
Criterion Covered Total %
statement 16 16 100.0
branch 2 2 100.0
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 24 24 100.0


line stmt bran cond sub pod time code
1             package Plack::Middleware::SetLocalEnv;
2 2     2   1207 use 5.008001;
  2         6  
3 2     2   6 use strict;
  2         3  
  2         39  
4 2     2   11 use warnings;
  2         2  
  2         56  
5 2     2   412 use parent "Plack::Middleware";
  2         264  
  2         10  
6              
7             our $VERSION = "0.02";
8              
9             sub call {
10 4     4 1 19570 my ($self, $env) = @_;
11              
12 4         105 local %ENV = %ENV;
13 4         48 for my $key (keys %$self) {
14             $ENV{$key} = $env->{ $self->{$key} }
15 7 100       28 if exists $env->{$self->{$key}};
16             }
17 4         13 $self->app->($env);
18             }
19              
20             1;
21             __END__