use strict;
use warnings;
use RandomThings;

my $dp = RandDayPart->new ();
my $lt = RandLight->new ();
my $wt = RandWeather->new ();
my $tense = RandThing->new ('was', 'is', 'will be');

print "It $tense a $lt and $wt $dp.\n";
$dp->genValue ();
print "It $tense a $lt and $wt $dp.\n";