Select Code to Download

package My::Singleton;

...
sub new {
  $self ||= register( bless \(my $s), shift );
}