Select Code to Download

sub date_hash {
    my ($dtm, $rv) = (shift // time, {});
    @{$r}{qw(sec min hour mday mon year wday yday isdst)} = localtime(
+$dtm);
    return $rv;
}