package PKG;
use strict;
require Carp;

sub new {bless {}, shift;}

sub DESTROY {}

sub AUTOLOAD {
  no strict;
  if ($AUTOLOAD=~/(\w+)$/) {
    my $field = $1;
    *{$field} = sub {
      my $self = shift;
      @_ ? $self->{$field} = shift
        : $self->{$field};
    };
    &$field(@_);
  }
  else {
    Carp::confess("Cannot figure out field name from '$AUTOLOAD'");
  }
}