package Ox::WebMail; use strict; use warnings; use base 'CGI::Application::Plus'; use Ox::WebMail::Consts; sub cgiapp_get_query {     require CGI::Simple;     my $cgi = CGI::Simple->new();     $cgi->parse_query_string();     return $cgi; } sub setup {     my $self = shift;     $self->tmpl_path(&Ox::WebMail::Consts::TEMPLATE_PATH);     $self->header_props(         -type      =>    'text/html',         -charset    =>    &Ox::WebMail::Consts::CONTENT_CHARSET,     );     $self->mode_param('action');     $self->start_mode('login');     $self->run_modes({         'login' => sub {             require Ox::WebMail::Login;             return Ox::WebMail::Login->new()->run()         }     }); } 1;