Quizzer::Element::Select - Base select input element

Contained in the Quizzer distribution.

Code Index:

This is a base Select input element.

Select elements are not really visible if there are less than two choices for them.

Joey Hess <joey@kitenet.net>

Contained in the Quizzer distribution.

#!/usr/bin/perl -w

package Quizzer::Element::Select;
use Quizzer::Element;
use strict;
use vars qw(@ISA);
@ISA=qw(Quizzer::Element);

my $VERSION='0.01';

sub visible {
	my $this=shift;
	
	my @choices=$this->question->choices_split;
	return ($#choices > 0);
}