package Ox::WebMail::Login; use strict; use warnings; use base 'CGI::Application::Plus'; sub setup {     my $self = shift;     $self->tmpl_path(&Ox::WebMail::Consts::TEMPLATE_PATH_LOGIN);     $self->header_type('none');     $self->mode_param('login');     $self->start_mode('form');     $self->run_modes({         'form' => 'show_form',     }); } sub show_form {     my $self = shift;     my $tmpl = $self->load_tmpl(         'form.tpl',         die_on_bad_params => 0,         cache => 1     );     return $tmpl->output; } 1;