Accessor Names

has 'foo' => (
    reader => 'get_foo',
    writer => 'set_foo',
);

my $class = Class->new( foo => 42 );
$class->get_foo;        # 42
$class->set_foo(6 * 9); # 42