sub get_map{
my $self = shift;
-
+
unless (exists $self->{-map}){
- # TODO: HOME dupplication correct?
- $self->{-map} = $self->read_map("TERRAIN,HOME,OCCUPANT,TEMPLE,PLAGUE,HOME");
+ #TODO: HOME dupplication correct?
+ $self->{-map} = $self->read_map("TERRAIN,HOME,OCCUPANT,TEMPLE,PLAGUE,HOME");
}
return $self->{-map};
}