use Class::Accessor::Grouped's implementation of B::perlstring (ribasushi++)