Select Code to Download

package My::Class;
use Scalar::Util qw( refaddr );
...
  if (@_) { $name{ refaddr $self } = shift }
  return $name{ refaddr $self };
}

package My::Class;
use Class::InsideOut qw( public register );
...
  my $class = shift;
  register( bless( {}, $class ) );
}