package HTML::Tag::BOOLSELECT;
use strict;
use warnings;
use Class::AutoAccess;
use base qw(Class::AutoAccess HTML::Tag::SELECT);
use HTML::Tag::Lang qw(%bool_descr);
our $VERSION = '1.00';
BEGIN {
our $class_def = {
element => 'BOOLSELECT',
tag => 'SELECT',
selected => '',
maybenull => 0,
nobeforeyes => 0,
}
}
sub inner {
my $self = shift;
my $ret = '';
$ret .= qq|<option value=""></option>\n| if ($self->maybenull);
my @values = $self->nobeforeyes ? (0,1) : (1,0);
foreach (@values) {
$ret .= qq|<option value="$_"| . ($self->selected eq $_ ? ' selected' : '') .
qq|>$bool_descr{$_}</option>\n|;
}
return $ret;
}
1;
# vim: set ts=2: