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;