You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
ngcp-panel/lib/NGCP/Panel/Controller/Logout.pm

48 lines
627 B

package NGCP::Panel::Controller::Logout;
use NGCP::Panel::Utils::Generic qw(:all);
use strict;
use warnings;
use parent 'Catalyst::Controller';
=head1 NAME
NGCP::Panel::Controller::Logout - Catalyst Controller
=head1 DESCRIPTION
Catalyst Controller.
=head1 METHODS
=cut
=head2 index
=cut
sub index :Path {
my ( $self, $c, $realm ) = @_;
$c->logout;
$c->response->redirect($c->uri_for('/login'));
}
=head1 AUTHOR
Andreas Granig,,,
=head1 LICENSE
This library is free software. You can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
1;
# vim: set tabstop=4 expandtab: