NAME

MathsQuestion - Supplier of simple maths questions to Question or Quiz.

SYNOPSIS

        use MathsQuestion;
        use Quiz;
        use strict;
        my @list;
        my @qs = qw(add subtract multiply divide); 
        foreach (@qs) {
                my ($qst, $ans) = MathsQuestion->new($_, 1);
                push (@list, $qst, $ans);
        }
        my $quiz = Quiz->new(@list);
        $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 object:
        
        my $m = MathsQuestion->new($func, $level); 
        
        #$level is either 1, 2 or 3, default is 1.
        
        #add, subtract, multiply, divide
        #? or a, s, m, d 
        #? or + - x / %(o)
        
        my $mx = MathsQuestion->new('m');