$m->session->{user_id} = $User->user_id; #### # Create Mason ApacheHandler object. my $mason = new HTML::Mason::ApacheHandler( comp_root => [ [ document_root => $MYPROJECT::DOCUMENTS_DIR ], [ lib => "$MYPROJECT::ROOT_DIR/mason_lib" ], ], data_dir => "$MYPROJECT::ROOT_DIR/tmp/mason", autohandler_name => '.autohandler.mas', dhandler_name => '.dhandler.mas', allow_globals => [ qw/$dbh $Member %Cookies $Exception $Site/ ], decline_dirs => 1, error_mode => 'fatal', request_class => 'MasonX::Request::WithApacheSession', session_class => 'Apache::Session::MySQL', session_use_cookie => 1, session_cookie_name => 'session_id', session_cookie_expires => '+3d', session_cookie_resend => 1, args_method => "mod_perl", session_handle => $dbh, session_lock_handle => $dbh, );