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";