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...