I've now turned this to a complete module. Should be available from CPAN at Object::Import soon. Thanks to Corion for the inspiration.