package Foo;

use strict;
use warnings;

foreach my $name(qw(foo bar baz quux narf)) { 
    no strict 'refs';
    *{ 'Foo::get_' . $name } = sub { 
        my $self = shift;
        return $self->{$name};
    };
}