Mold::spawn
Mold::init
Prefs::spawn
UI_Curses::spawn
Command_Interpreter::spawn
Grid::spawn
Command_Processor::spawn
Player::spawn
EventQueue::spawn
Data::Monsters::spawn
Message::spawn

##</code><code>##

sub spawn
{
   my $this=shift or die;
   my $class=ref($this) || $this;
   my $self = bless {},$class;
   $main::mold=$self;
   $self->init()
   return($self);
}

##</code><code>##

$mold=Mold->spawn;
$mold->init();

##</code><code>##

   $self->{parent}=$self || die;
   $self->{mold}=$self || die;