Select Code to Download

my %class_records;
my $class_objects;
...
    my $this = $class_records{$refaddr($self)};
    ...
}

my $class_name = __PACKAGE__;
my %class_records;
...
    my $this = $class_records{$self->{$class_name}};
    ...
}