package My::Singleton;

use Class::InsideOut qw( public register id );

public name => my %name;
public rank => my %rank;

my $self;

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