package IIc0dddbcc5525420e139003092ae80eb6::dtformat; use strict; use Zen::PerlHandler; sub get { my ($view, $f) = @_; my %date_fmt = ( full => '%e %B %Y года', short => '%e %B', digit => '%e.%m', sqldate => '%Y-%m-%d', ); my $dates; while (my ($k, $v) = each %date_fmt) { $dates->{$k} = Zen::PerlHandler->new("Minima::ATK::View::datetime::datetime(sql,$v)")->do({'f' => $view->{$f}}, 'f'); } ($dates->{Y}, $dates->{M}, $dates->{D}) = $view->{$f} =~ /^(\d{4})-?(\d{2})-?(\d{2})/; $dates; } 1; 