sub setup {

    my $self = shift;

    tie %session, 'Apache::Session', $self->query->cookie('session_id');
    $self->param('session', \%session);

    # etc.

}

sub current_run_mode {

    my $self = shift;

    # etc.

    my $uid = $self->param('session')->{uid};

    # etc.

}