After all, someone wrote Attribute::Handlers and Hook::WrapSub, so you aren't alone on this one.

You realize, of course, that these modules can be used for a huge range of things far beyond introducing BDSM OO to Perl, don't you. :) For an example, see adrianh's Class::InsideOut - yet another riff on inside out objects..

Makeshifts last the longest.