The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
[% USE date %]

[% MACRO date_format(intime, fmt) BLOCK;

    UNLESS fmt;
        fmt = '%Y-%m-%d %I:%M:%S';
    END;
    IF c.config.timezonediff;
        intime = intime + c.config.timezonediff;
    END;

    IF intime == '-' OR intime <= 0;
        intime;
    ELSE;
        date.format(intime, format => fmt);
    END;

END; %]