package Games::Traveller::Sophont;
   {
      use Class::BuildMethods qw/
         name 
         longname 
         homeworld 
         star 
         orbit 
         status 
         niche
   ... etc ...
      /;
   
      sub new { bless {}, shift }
      ... etc ...
   }
   1;     

   package My::Purple::Blovinator;
   my $foo = new Games::Traveller::Sophont;
   $foo->name( "Chamaxi" );
   ... etc ...