One option is to consider an alternative inside-out system like Class::InsideOut that does not force a constructor/initialization approach on you.

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 );
}
[download]

Note: Class::InsideOut doesn't yet support Storable singletons, but it is on the Todo list for the next couple releases.

If you want to use a singleton class with Class::Std then just don't the :ATTR hashes variables. The :ATTR is what makes the variables unique for each object. Get rid of this and then all of your variables will be shared by all the objects.

To the program the objects will still look different but there will only be one set of values.

That would work, I guess, but it's not a true singleton. Defining a class method to do it, ala:

sub get_manager {

  $manager = AAPA::Manager->new();
  $manager->set_galaxy(AAPA::Galaxy->new());

  return $manager;

}
[download]

Doesn't work -- "Can't locate object method "get_manager" via package "AAPA::Manager" at ../AAPA/Ship.pm line 25." Fair enough, since get_manager's supposed to be a _class_ method. I just can't figure out how to tell Class::Std that...