I was looking to see if there is something on the CPAN which already handles this. I see nothing, but if someone else does, I'd like to hear about it.

Refactor to roles and use Class::Roles does method?