sub countdown

gistfile1.PL

sub countdown
{
    my ($self, $future) = @_;

    my $now = DateTime->now;
    return unless $future > $now;

    my $diff = $future->subtract_datetime($now);
    my $delta = $now->delta_days($future)->delta_days;

    if ($delta > 0) {
        return 'Expires in <dfn title="' . format($self, $future) . '">' . $delta . '</dfn> days.';
    } else {
        return 'Expires in ' . $diff->hours . ' hours, and ' . $diff->minutes . ' minutes.';
    }
}