my $foo : shared = 'foo';

##</code><code>##

my $foo : Sociable = 'foo';

##</code><code>##

my Thread::Sociable $foo : Sociable = 'foo';

##</code><code>##

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;