# Create File::Session Object
my $session = File::Session->new({'namespace'=>'sessions',
                                 'cache_root'=>"$DATADIR/cache",
                                 'default_expires_in' => '900s',
                                 'cache_depth' => '0'});
# Retrieve the session_id if there is still a session_cookie
# or if not create a cookie and redirect
my $session_id = $session->retrieve_session;
[...]
sub login {
# Wie gehabt. Nur muss der Login Status wie folgt gespeichert werden
# hier muss ich die set Funktion in jedem Fall noch überschreiben
$session->set($session_id, {"login" => "can_access"});
}
[...]
# Der Login Status wird wie folgt ausgelesen (zugleich wird die Zeit
# bis zum automatischen Logout durch die get_data Funktion hochgesetzt)
my $session_data = $session->get_data;
my $login = $session_data->{'login'} || undef;