1 package Reaction::UI::ViewPort::Field::DateTime;
3 use Scalar::Util 'blessed';
5 use Reaction::Types::DateTime ();
6 use aliased 'Reaction::UI::ViewPort::Field';
8 use namespace::clean -except => [ qw(meta) ];
12 has '+value' => (isa => Reaction::Types::DateTime::DateTime());
14 has value_string_default_format => (
15 isa => 'Str', is => 'rw', required => 1, default => sub { "%F %H:%M:%S" }
18 around _value_string_from_value => sub {
21 my $format = $self->value_string_default_format;
22 return $self->$orig(@_)->strftime($format);
25 __PACKAGE__->meta->make_immutable;