Koha/Middleware/UserEnv.pm

   1 package Koha::Middleware::UserEnv;
   2 use Modern::Perl;
   3
   4 use parent qw(Plack::Middleware);
   5
   6 use C4::Context;
   7
   8 sub call {
   9     my ( $self, $env ) =@_;
  10
  11     my $req = Plack::Request->new($env);
  12
  13     C4::Context->_unset_userenv;
  14
  15     return $self->app->($env);
  16 }
  17
  18 1;