foreach my $accessor (@object_properties) {
  no strict 'refs';
  *$accessor = sub {
    my $self = shift;
    $self->{$accessor} = shift if @_;
    $self->{$accessor};
  };
}