The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use warnings;
use strict;
 
package Jifty::Web::Form::Field::DateTime;

use base qw/Jifty::Web::Form::Field/;

=head1 NAME

Jifty::Web::Form::Field::DateTime - Add date pickers to your forms

=head1 METHODS

=head2 classes

Output date fields with the class 'date'

=cut

sub classes {
    my $self = shift;
    return join(' ', 'datetime', ($self->SUPER::classes));
}

=head2 canonicalize_value

If the value is a DateTime, return nothing if the epoch is 0

=cut

sub canonicalize_value {
    my $self  = shift;
    my $value = $self->current_value;

    if (UNIVERSAL::isa($value, 'DateTime')) {
        return unless $value->epoch;
    }

    return $value;
}

1;