File Coverage

blib/lib/HTML/Tag/BOOLSELECT.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	4	6	66.6
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	34	37	91.8

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|\n| if ($self->maybenull);
	my @values = $self->nobeforeyes ? (0,1) : (1,0);
	foreach (@values) {
		$ret		.= qq|selected eq $_ ? ' selected' : '') .
								qq|>$bool_descr{$_}\n|;
	}
	return $ret;
}


1;

# vim: set ts=2: