package Whatever::Makes::Sense;
sub create_accessors {
  my $class = caller();
  foreach my $accessor (@_) {
    no strict 'refs';
    *{"$class\::$accessor"} = sub {
      my $self = shift;
      $self->{$accessor} = shift if @_;
      return $self->{$accessor};
    };
  }
}
# And elsewhere...
Whatever::Makes::Sense::create_accessors(qw(foo bar baz));