t/lib/RemoteTestEngineRole.pm

   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