package Foo;
BEGIN {
   our ($VERSION, @ISA, @METHODS);
   @METHODS = qw(foo bar quux);
 
   for my $field (@METHODS) {
       *{__PACKAGE__.'::'.$field} = sub {
          my $self = shift @_;
          if (@_) {
            return $self->set($field, @_);
          } else {
            return $self->get($field);
          }
      };
   }
   for (qw(set get)) {
      *{__PACKAGE__.'::'.$_} = sub {
          my $self = shift @_;
          if (@_ == 1) {
            return $$self{$_[0]};
          } elsif (@_ > 1) {
            return $self->{$_[0]} = $_[1];
          } else {
            $self->_croak('Wrong number of arguments received');
          }
      };
   }
}