sub regenerate_session_id { my $sess = shift; $sess->dataref->{_SESSION_ID} = $sess->_id_generator->generate_id( $sess->{_DRIVER_ARGS},''); $sess->_set_status($sess->STATUS_MODIFIED); $sess->flush(); return $sess->dataref->{_SESSION_ID}; }