The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

package Accessor_maker;
sub import {
  no strict 'refs';
  *{ caller() . '::' . 'foo' } = sub { $_[0]->{ 'foo' } };
}
1;