File Coverage

blib/lib/HTML/Tag/YEAR.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	6	6	100.0
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	39	40	97.5

package HTML::Tag::YEAR;

use strict;
use warnings;

use Class::AutoAccess;
use Tie::IxHash;
use base qw(Class::AutoAccess HTML::Tag::SELECT);

our $VERSION = '1.01';

BEGIN {
	our $class_def	= {
							element			=> 'YEAR',
							tag 				=> 'SELECT',
							from				=> (localtime())[5] + 1800,
							to					=> (localtime())[5] + 2000,
							selected		=> (localtime())[5] + 1900,
							maybenull		=> 0,
							permitted 	=> undef,
							value				=> '',
	}
}

sub inner {
	my $self 	= shift;
	my $ret		= '';
	$ret			.= qq|\n| if ($self->maybenull);
	my $year 	= (localtime())[5]+1900;
	my @permitted = $self->permitted ? sort @{$self->permitted} : ($self->from..$self->to);
	foreach (@permitted) {
		$_ = sprintf('%04d',$_);
		$ret		.= qq|selected eq $_ ? ' selected' : '') .
								qq|>$_\n|;
	}
	return $ret;
}




1;

# vim: set ts=2: