package Dog;

BEGIN {
    my @attributes = qw/ bone /;
    for my $attribute ( @attributes ) {
        no strict 'refs';
        *{"get_$attribute"} = sub { ... };
        *{"set_$attribute"} = sub { ... };
    }
}