package XXXXX::SecureBaseController; use strict; use warnings; use parent 'Catalyst::Controller'; sub auto: Private { my ( $self, $c ) = @_; # ungültiges User-Objekt in der Session unless ( $c->session->{user} ) { # Umleitung zum Login $c->response->redirect('/login/'.$c->request->path); return; } return 1; } 1;