our $old_scalar_attr = \&UNIVERSAL::MODIFY_SCALAR_ATTRIBUTES;
our $old_array_attr = \&UNIVERSAL::MODIFY_ARRAY_ATTRIBUTES;
our $old_hash_attr = \&UNIVERSAL::MODIFY_HASH_ATTRIBUTES;
*UNIVERSAL::MODIFY_SCALAR_ATTRIBUTES = \&SociableScalar;
*UNIVERSAL::MODIFY_ARRAY_ATTRIBUTES = \&SociableArray;
*UNIVERSAL::MODIFY_HASH_ATTRIBUTES = \&SociableHash;