sub list : Path('/user/list') {
    my ($self, $c) = @_;

    my %data = ( template     => 'user/list.tmpl',
                 title        => 'Benutzerliste',

                 navigationfile   => 'sub_naviagtion_user.tmpl',
                 username         => 'XXXXXX',
                 show_images      => 1,
            );
    
    while (my ($k, $v) = each %data) { $c->stash->{$k} = $v }

    die;
} # list
# ------------------------------------------------------------
sub end : Private {
    my ($self, $c) = @_;

    $c->forward("MyPBoard::View::HTC");
} # end