return $yy && $mm && $dd ? DateTime->new(year => $yy, month => $mm, day => $dd) : undef;
}
+sub format_date_object_to_time {
+ my ($self, $datetime, %params) = @_;
+
+ return $datetime->strftime('%H:%M');
+}
+
sub format_date_object {
my ($self, $datetime, %params) = @_;