Mud in perl

use Room;
sub new {
my $this = shift;
my $class = ref($this) || $this;
my $self = $this->SUPER::new;
bless $self, $class;
$self->short('Orto di Baar');
$self->desc( "Questo e` la parte di mezzo del giardino centrale. " .
"Il terreno e` coltivato ad orto e tutt'intorno. " .
"si vedono lunghe file di zucchine, lattuga, erba cipollina " .
"e anche qualche albero da frutta " .
"C'e` una piccola casetta in muratura, con una sola finestra " .
"Di fronte alla casa c'e` un pozzo per l'acqua." );
$self->add_detail(['casa','casetta'],
"E' la casa di Baar, il custode dell'orto." );
$self->add_detail(['giardino'],
"Sei proprio nel centro del giardino" );
$self->add_detail(['terreno','coltivato','orto'],
"L'orto e` ben curato coltivato, sicuramente " .
"il custode sta facendo un buon lavoro." );
$self->add_detail(['zucchine','lattuga','erba'],
"Meglio non toccare nulla." );
$self->add_detail(['acqua'],
"E' nel pozzo." );
$self->add_detail(['pozzo','vera','marmo'],
"Si tratta di un bel pozzo in mattoni con una vera in marmo" .
", con solchi profondi " .
"a causa delle corde usate per attingere l'acqua: " .
"attento a non caderci dentro." );
$self->add_exit('est', './orto_6');
$self->add_wandering_area( ['orto','salazar'] );
$self->add_object( '../mon/baar');
$self->set_property('outdoor');
return $self;
}