packack Random::Things;
use strict;
use warnings;
use base 'Exporter';
our @EXPORT_OK = qw(RandDayPart RandLight RandWeather RandTense);

sub RandDayPart {
  my @randdaypart = qw(morning evening afternoon night);
  return $randdaypart[rand @randdaypart];
}

sub RandLight {
  my @randlight = qw(bright dark gloomy dazzling);
  return $randlight[rand @randlight];
}

sub RandWeather {
  my @randweather = qw(stormy windy rainy calm);
  return $randweather[rand @randweather];
}

sub RandTense {
  my @randtense = ('was', 'is', 'will be');
  return $randtense[rand @randtense];
}

1;