Help for this page

Select Code to Download

Select or download this

  DB<127> $self->{exits}=  { kitchen => 42, living => 666 , toilet => 
+"00" }
 => { kitchen => 42, living => 666, toilet => "00" }
...

  DB<132> $rand_value = @values[rand @values]
 => 666

Select or download this

  DB<134> $h_exits = $self->{exits}
 => { kitchen => 42, living => 666, toilet => "00" }

  DB<135> $random_room = $h_exits->{ ( keys %$h_exits )[ rand keys %$h
+_exits ] }
 => "00"