sub logout {
    my($app)=...@_;

    $app->authen->logout;

    $app->forward( $app->start_mode ); # would be nice!
}


instead I will declare a lexical variable for the Application package
($start_mode) and use it in both defining the start mode and forwarding to
it.

#####  CGI::Application community mailing list  ################
##                                                            ##
##  To unsubscribe, or change your message delivery options,  ##
##  visit:  http://www.erlbaum.net/mailman/listinfo/cgiapp    ##
##                                                            ##
##  Web archive:   http://www.erlbaum.net/pipermail/cgiapp/   ##
##  Wiki:          http://cgiapp.erlbaum.net/                 ##
##                                                            ##
################################################################

Reply via email to