Select Code to Download

our %appdata;
*appdata = \%SOD::Config::appdata;

my $planet = SOD::Planet->new($dbh, $some_id);
my $stats = $planet->game_stats->record;

$self->{GAMESTATS} ||= SOD::SharedObject::PlanetStatus->new($self->{ID
+});

sub new {
   my ($class, $type, $id) = @_;
...
   }
   $self;
}

   unless ($req->send($sock, 'save  ', { 'type'   => $self->{TYPE}, 
                                         'id'     => $self->{ID},
                                         'object' => $self->{RECORD}
                                       })) {
   [...]

sub send {
   my $self = shift || return 0;
...
   }
   1;
}

sub receive {
   my $self = shift;                                  # Perl OO mantra
+ ...
...
   }
   1;
}

eval "_".$req->command;

sub _save {
   my $cont = $req->content; 
...
   }
   [...]
}

sub __merge {
   my ($old, $new) = @_;
...

   $old;
}