my $class = ref($self);
  my %editable = do {
    no strict 'refs';
    %{"${class}::__EDITABLE__"};
  };

  die "No such method $AUTOLOAD. Barfing\n"
      unless exists $editable{$field};

  if ($editable{$field}) {
    *$AUTOLOAD = sub {
      my $self = shift;
      $self->{$field}{value} = shift if @_;
      $self->{$field}{value};
    };
  } else {
    *$AUTOLOAD = sub {
      my $self = shift;
      die "Can't modify readonly field '$field'" if @_;
      $self->{$field}{value};
    };
  }
  goto &$AUTOLOAD;