package some_package;
...
{
    my %simple_data = (
        'name'   => 1,
        'age'    => 1,
        ...
    }
    sub AUTOLOAD {
       my $self = shift;
       (my $method) = $AUTOLOAD) =~ s/.*:://;
       return if $method eq 'DESTROY';
       if ( exists $simple_data{$method} ) {
          if ( defined $_[0] ) {
              $self->{$method} = $_[0];
          }
          return $self->{$method};
       }
    }
}
[download]

But if you're inheriting from this class, you definitely need to know too much detail about the implementation, particularly that its using AUTOLOAD for some accessor / mutators.

As was sort of talked about in my other thread, perhaps a better way to do this is along the lines of:

package some_package;
...
{
   BEGIN {
      my @simple_data = qw(name age ...);
      no strict 'refs';
      foreach my $data (@simple_data) {
         *{$data} = sub {
             my $self = shift;
             my ($value) = @_;
             if ( defined $value ) {
                 $self->{$data} = $value;
             }
             return $self->{$data};
          }
      }
      use strict;
}
[download]

This way, these accessor / mutators are in the symbol table, and will be looked up faster, will be found by can(), etc. This avoids the inheritance problem from the other post too.