#!/usr/bin/perl -w
=head1 NAME
Quizzer::Element::Select - Base select input element
=cut
=head1 DESCRIPTION
This is a base Select input element.
=cut
=head1 METHODS
=cut
package Quizzer::Element::Select;
use Quizzer::Element;
use strict;
use vars qw(@ISA);
@ISA=qw(Quizzer::Element);
my $VERSION='0.01';
=head2 show
Select elements are not really visible if there are less than two choices
for them.
=cut
sub visible {
my $this=shift;
my @choices=$this->question->choices_split;
return ($#choices > 0);
}
=head1 AUTHOR
Joey Hess <joey@kitenet.net>
=cut
1