It goes something like this:

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 };
}
[download]

I've seen many descriptions of this technique. You can find one in this section of perltoot. Also, The Perl Cookbook, the Alpaca book, Object Oriented Perl discuss the use of AUTOLOAD to generate accessors. I'm sure this list is far from exhaustive.

Thanks, I'll look into the docs. However I'm too young in OOP to try anything like this at the moment :)

You setup a constant or package variable or what not that has a list of what your member names are. You then write a sub AUTOLOAD { ... } which looks to see if $AUTOLOAD is in that list and if so maps it into retrieving (or setting if given argument(s)) $self->{"_$AUTOLOAD"} as appropriate (possibly generating a coderef which does the same thing and assigning that to the correct glob so AUTOLOAD is bypassed the next time).