Help for this page

Select Code to Download


  1. or download this
    package My::Class;
    
    ...
      bless $self, $class;
    }
    
  2. or download this
    my $REGISTRY;
    
    ...
      $REGISTRY{ $_[1] }{ refaddr $_[0] } = $_[0];
      return $_[0];
    }
    
  3. or download this
    my $NAME_OF{ id $self } = "Larry";
    
    # instead of
    
    my $NAME_OF{ refaddr $self } = "Larry";