NAME

Quiz - Questions wrapper.

SYNOPSIS

        use Quiz;
        use strict;
        my %qz = ('3 * 2' => '6', '2 + 2' => '4',
                'What is the capital of England' => 'London',
                'What are white and fluffy and float in the sky' => 'clouds',
                '7 - 2' => '5',
        );
        my $quiz = Quiz->new(%qz);
        $quiz->prompt('Question: '); #going to use our own prompt.
        while ($quiz->unanswered_questions) {
                print $quiz->next_question, "\n"; 
                $_ = <>;
                if ($quiz->check_guess($_)) {
                        print $quiz->{right_message};
                } else {
                        print $quiz->{wrong_message};
                }
        }
        $quiz->finished;
        print $quiz->results;
        exit;

new

        Create new Quiz:
        
        my $qz = Quiz->new(%question_n_answers);

        eg;
        
        $qz->prompt('What is the sum of..:');

unanswered_questions

        Are there any left?
        
        my $qs_left = $qz->unanswered_questions;

next_question

        Basic loop through all questions...
        
        while (1) {
                print $qz->next_question;
        }
        
        or 
        
        while ($qz->unanswered_questions) {
                print $qz->next_question;
        }

question

        Returns current question:
        
        my $qstn = $qz->question;

answer

        Returns current answer:
        
        my $ans = $qz->answer;

correct_questions

        Returns number of correct_questions so far.
        
        print "Got at least ten right!\n" if $qz->correct_questions >= 10;

guess

        Insert guess into system.
        
        my $guess = $qz->guess('some answer');

check_guess

        Better is to check the guess...
        
        my $result = $qz->check_guess('some other answer');

finished

        Signal end of quiz:
        
        $qz->finished;

results

        Simple print out of Quiz results:
        
        print $qz->results;
        
        Also prints out info on each question if asked:
        
        print $qz->results('question');