Help for this page

Select Code to Download

Select or download this
```
chomp (my $roomcmd = <>) ;
```

Select or download this

package Room;
sub new {
...
    my ($self, $room_type) = @_;
    return $self->{rooms}{$room_type};
  }