Help for this page

Select Code to Download

Select or download this
my $ref = \do{my $some_scalar};

Select or download this

use Scalar::Util qw(refaddr);
...
my $this = bless \do{my $some_scalar}, $class;
my $key = refaddr $this;