t/lib/RemoteTestEngine.pm

   1 package RemoteTestEngine;
   2 BEGIN {
   3   require Catalyst;
   4   if ($Catalyst::VERSION >= 5.89000) {
   5     require Catalyst::Engine;
   6     @ISA = qw(Catalyst::Engine);
   7   } else {
   8     require Catalyst::Engine::CGI;
   9     @ISA = qw(Catalyst::Engine::CGI);
  10   }
  11 }
  12
  13 our $REMOTE_USER;
  14 our $SSL_CLIENT_S_DN;
  15
  16 sub env {
  17     my $self = shift;
  18     my %e;
  19     if ($Catalyst::VERSION >= 5.89000) {
  20       %e = %{ $self->SUPER::env() };
  21     } else {
  22       %e = %ENV;
  23     }
  24
  25     $e{REMOTE_USER} = $REMOTE_USER;
  26     $e{SSL_CLIENT_S_DN} = $SSL_CLIENT_S_DN;
  27     return \%e;
  28 };
  29
  30 1;