sub AUTOLOAD {                          ## Default method
  my ($self) = @_;

  my $name = $AUTOLOAD;
  $name =~ s/.*://;
  croak qq[unknown method "$name"] unless $public_attr{$name};

  no strict 'refs';          ## no critic ProhibitNoStrict
  *{$AUTOLOAD} = sub {
    my $self = shift;
    $self = $self->_defaults unless ref($self);
    $self->{$name} = shift || 0 if scalar @_;
    return $self->{$name};
  };

  goto &{$AUTOLOAD};
}