sub AUTOLOAD {
  my $self = $_[ 0 ];
  ( my $name = our $AUTOLOAD ) =~ s/.*:://;
  return if $name eq 'DESTROTY';
  die "Unknown field: $name" unless exists $OK_FIELDS{ $name };
  return @_ ? $self->{ $name } = shift : $self->{ $name };
}