Commit | Line | Data |
---|---|---|
afa31b01 | 1 | package RemoteTestEngineRole; |
2 | use Moose::Role; | |
3 | require Catalyst; | |
4 | ||
5 | around env => sub { | |
6 | my ($orig, $self, @args) = @_; | |
7 | my $e = $self->$orig(@args); | |
8 | ||
9 | $e->{REMOTE_USER} = $RemoteTestEngine::REMOTE_USER; | |
10 | $e->{SSL_CLIENT_S_DN} = $RemoteTestEngine::SSL_CLIENT_S_DN; | |
11 | return $e; | |
12 | }; | |
13 | ||
14 | 1; | |
15 |