lib/Reaction/UI/ViewPort/DisplayField/DateTime.pm

   1 package Reaction::UI::ViewPort::DisplayField::DateTime;
   2
   3 use Reaction::Class;
   4 use Reaction::Types::DateTime;
   5 use aliased 'Reaction::UI::ViewPort::DisplayField';
   6
   7 class DateTime is DisplayField, which {
   8   has '+value' => (isa => 'DateTime');
   9   #has '+layout' => (default => 'displayfield/value_string');
  10
  11   has value_string => (isa => 'Str',  is => 'rw', lazy_build => 1);
  12
  13   has value_string_default_format => (
  14     isa => 'Str', is => 'rw', required => 1, default => sub { "%F %H:%M:%S" }
  15   );
  16
  17   implements build_value_string => as {
  18     my $self = shift;
  19     my $value = eval { $self->value };
  20     return '' unless $self->has_value;
  21     my $format = $self->value_string_default_format;
  22     return $value->strftime($format) if $value;
  23     return '';
  24   };
  25
  26 };
  27
  28 1;