projekt kivitendo

use strict;

  my ($self, %param) = @_;

  my $auth_level                       = $self->get_auth_level(%param);

  my $handler_name                     = "SL::Dispatcher::AuthHandler::" . ucfirst($auth_level);

  $self->{handlers}                  ||= {};

  $self->{handlers}->{$handler_name} ||= $handler_name->new;