StartQuiz( $quizfile, $userfile );
...
sub StartQuiz {
my( $quizfile, $userfile ) = @_;
for my $question ( Questions( $quizfile ) ){
my $answer = GetAnswer( $question );
SaveAnswer( $userfile, $question, $answer );
}
}
####
my $answer = single_choice(
text => "If a=1, b=2. What is a+b?",
choices => [
[ A => 12 ],
[ B => 3 ],
[ C => 2 ],
[ D => 42 ],
[ E => "Fish" ],
],
);
##
##
if ($ask->question(text => "Are you happy?")
and $ask->question(text => "Do you know it?")
and $ask->question(text => "Really want to show it?")) {
$ask->info(text => "Then clap your hands!");
}