package MyDeflator;
use strict;
use warnings;
use base 'HTML::FormFu::Deflator';

use DateTime;

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

   my $year  = $self->parent;
   my $month = $self->form->get_field({ name => 'month', type => 'text' });
   my $day   = $self->form->get_field({ name => 'day',   type => 'text' });

   if ( !defined $value && !defined $month->default && !defined $day->default )
   {
       my $dt = DateTime->today( time_zone => 'local' );

       $month->default( $dt->month );
       $day->default(   $dt->day );

       return $dt->year;
   }

   return $value;
}

1;