Help for this page

Select Code to Download


  1. or download this
    my $foo : shared = 'foo';
  2. or download this
    my $foo : Sociable = 'foo';
  3. or download this
    my Thread::Sociable $foo : Sociable = 'foo';
  4. or download this
    our $old_scalar_attr = \&UNIVERSAL::MODIFY_SCALAR_ATTRIBUTES;
our $old_array_attr = \&UNIVERSAL::MODIFY_ARRAY_ATTRIBUTES;
...
*UNIVERSAL::MODIFY_SCALAR_ATTRIBUTES = \&SociableScalar;
*UNIVERSAL::MODIFY_ARRAY_ATTRIBUTES = \&SociableArray;
*UNIVERSAL::MODIFY_HASH_ATTRIBUTES = \&SociableHash;