File Coverage

blib/lib/Plack/Middleware/SetEnvFromHeader.pm

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

use strict;
use warnings;

package Plack::Middleware::SetEnvFromHeader;
use parent 'Plack::Middleware';
use Plack::Request;

our $VERSION = '0.01';

sub call {
    my ($self, $env) = @_;
    my $req = Plack::Request->new($env);

    # Passed ENV_NAME => "Header-Name"
    $env = {
        %$env,
        map  { $_ => scalar $req->header($self->{$_}) }
        grep { $_ ne 'app' }
        keys %$self
    };

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

1;
__END__