Rose::HTML::Form::Field::DateTime::Split::MonthDayYear - Compound field for dates with separate text fields for month, day, and year.

    $field =
      Rose::HTML::Form::Field::DateTime::Split::MonthDayYear->new(
        label   => 'Date',
        name    => 'date', 
        default => '12/31/2002');

    print $field->field('month')->internal_value; # "12"

    print $field->internal_value; # "2002-12-31T20:00:00"
    print $field->output_value;   # "2002-12-31 08:00:00 PM"

    $field->input_value('blah');

    # "Could not parse date: blah"
    $field->validate or warn $field->error;

    $field->input_value('4/30/1980');

    $dt = $field->internal_value; # DateTime object

    print $dt->hour;     # 17
    print $dt->day_name; # Wednesday

    print $field->html;
    ...

package Rose::HTML::Form::Field::DateTime::Split::MonthDayYear;

use strict;

use Rose::DateTime::Util();

use Rose::HTML::Object::Messages qw(:date);

use base 'Rose::HTML::Form::Field::DateTime::Split';

our $VERSION = '0.606';

sub build_field
{
  my($self) = shift;

  $self->add_fields
  (
    month =>
    {
      type      => 'text',
      size      => 2,
      maxlength => 2,
      class     => 'month',
      label_id  => FIELD_LABEL_MONTH,
      error_label_id => FIELD_ERROR_LABEL_MONTH,
    },

    day =>
    {
      type      => 'text',
      size      => 2,
      maxlength => 2,
      class     => 'day',
      label_id  => FIELD_LABEL_DAY,
      error_label_id => FIELD_ERROR_LABEL_DAY,
    },

    year =>
    {
      type      => 'text',
      size      => 4,
      maxlength => 4,
      class     => 'year',
      label_id  => FIELD_LABEL_YEAR,
      error_label_id => FIELD_ERROR_LABEL_YEAR,
    },
  );
}

sub decompose_value
{
  my($self, $value) = @_;

  return undef  unless(defined $value);

  my $date = $self->SUPER::inflate_value($value);

  unless($date)
  {
    no warnings;
    my($month, $day, $year) = split('/', $value);

    return
    {
      month => $month || '',
      day   => $day   || '',
      year  => $year  || '',
    }
  }

  my($month, $day, $year) = Rose::DateTime::Util::format_date($date, '%m', '%d', '%Y');

  return
  {
    month => $month,
    day   => $day,
    year  => $year,
  };
}

sub is_full
{
  my($self) = shift;

  my $count = grep { defined && length } 
              map { $self->field($_)->internal_value }  qw(month day year);

  return $count == 3 ? 1 : 0;
}

sub coalesce_value
{
  my($self) = shift;
  return join('/', map { defined($_) ? $_ : '' } 
                   map { $self->field($_)->internal_value }  qw(month day year));
}

sub deflate_value
{
  my($self, $date) = @_;
  return $self->input_value_filtered  unless($date);
  return Rose::DateTime::Util::format_date($date, '%m/%d/%Y');
}

sub html_field
{
  my($self) = shift;

  return '<span class="date">' .
         $self->field('month')->html_field . '/' .
         $self->field('day')->html_field   . '/' .
         $self->field('year')->html_field .
         '</span>';
}

sub xhtml_field
{
  my($self) = shift;

  return '<span class="date">' .
         $self->field('month')->xhtml_field . '/' .
         $self->field('day')->xhtml_field   . '/' .
         $self->field('year')->xhtml_field .
         '</span>';
}

if(__PACKAGE__->localizer->auto_load_messages)
{
  __PACKAGE__->localizer->load_all_messages;
}

use utf8; # The __DATA__ section contains UTF-8 text

1;

__DATA__

[% LOCALE en %]

FIELD_LABEL_MONTH = "Month"
FIELD_LABEL_DAY   = "Day"
FIELD_LABEL_YEAR  = "Year"

FIELD_ERROR_LABEL_MONTH = "month"
FIELD_ERROR_LABEL_DAY   = "day"
FIELD_ERROR_LABEL_YEAR  = "year"

[% LOCALE de %]

FIELD_LABEL_MONTH = "Monat"
FIELD_LABEL_DAY   = "Tag"
FIELD_LABEL_YEAR  = "Jahr"

FIELD_ERROR_LABEL_MONTH = "Monat"
FIELD_ERROR_LABEL_DAY   = "Tag"
FIELD_ERROR_LABEL_YEAR  = "Jahr"

[% LOCALE fr %]

FIELD_LABEL_MONTH = "Mois"
FIELD_LABEL_DAY   = "Jour"
FIELD_LABEL_YEAR  = "Année"

FIELD_ERROR_LABEL_MONTH = "mois"
FIELD_ERROR_LABEL_DAY   = "jour"
FIELD_ERROR_LABEL_YEAR  = "année"

[% LOCALE bg %]

FIELD_LABEL_MONTH = "Месец"
FIELD_LABEL_DAY   = "Ден"
FIELD_LABEL_YEAR  = "Година"

FIELD_ERROR_LABEL_MONTH = "месец"
FIELD_ERROR_LABEL_DAY   = "ден"
FIELD_ERROR_LABEL_YEAR  = "година"

__END__