File Coverage

blib/lib/HTML/Tag/DATE.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	4	6	66.6
condition	1	3	33.3
subroutine	7	7	100.0
pod	0	1	0.0
total	41	46	89.1

package HTML::Tag::DATE;

use strict;
use warnings;

use Class::AutoAccess;
use base qw(Class::AutoAccess HTML::Tag);

our $VERSION = '1.02';

BEGIN {
	our $class_def	= {
							element			=> 'DATE',
							tag 				=> 'SELECT',
							js					=> 'html_tag_datetime_loader.js',
							value				=> '',
	}
}

sub html {
	my $self		= shift;
	my $name		= $self->name;
	my $value		= $self->value;

	$value 			= &_normalize_value($value);
	my $js			= $HTML::Tag::DATE::js || $self->js;
	my $ret		=<<"";




	return $ret;
}

sub _normalize_value {
	my $value = shift;
	if ($value eq 'now') {
		my ($day,$month,$year) = (localtime())[3..5];
		$year += 1900;
		$month++;
		$month 	= "0$month" if length($month) == 1;
		$day 		= "0$day" if length($day) == 1;
		$value 	= "$year-$month-$day";
	}
	return $value;
}


1;

# vim: set ts=2: