sub get_serverid  { $_[0]->{SERVER} }
sub set_serverid  { $_[0]->{SERVER} = $_[1] }

sub get_requestip { $_[0]->{REQIP} }
sub set_requestip { $_[0]->{REQIP} = $_[1] }

etc

##</code><code>##

sub set_widget {
    my ($self, $arg) = @_;
    die "Can't set_widget to "$arg"\n" unless $arg =~ m/something/;
    $self->{WIDGET} = $arg;
}