EvanCarroll

Your problem is now solved by Moose::Policy, here is a quick example:

package Point;
use Moose::Policy 'Moose::Policy::FollowPBP';
use Moose;

has 'x' => (is => 'rw', isa => 'Int');
has 'y' => (is => 'rw', isa => 'Int');
[download]

Now Point has get_x, get_y, set_x and set_y methods generated for it's accessors.

You can find a use.perl post here with some more details.