sub _save { my $session = $req->content; lock %times; lock %nicks; lock %sessions; $times{$session->{ID}} = time; $nicks{$session->{ID}} = $session->{PLAYER}->get('nickname') unless $session->{PLAYER}->anonymus; $sessions{$session->{ID}} = $session; $logs->enqueue("save request: stored session $session->{ID}") if $debug; $res->content({}); }