sub getter_setter {
   my $self = shift;
   if (@_) {
      $self->{value} = $_[0];
   }
   return $self->{value};
}