

duration($seconds)  
duration($seconds, $precision) 
Returns English text expressing the approximate time duration
of abs($seconds), with at most $precision  2 expressed units.
(That is, duration($seconds) is the same as duration($seconds,2).)
For example, duration(120) or duration(120) is 2 minutes. And duration(0) is 0 seconds. The precision figure means that no more than that many units will be used in expressing the time duration. For example, 31,629,659 seconds is a duration of exactly 1 year, 1 day, 2 hours, and 59 seconds (assuming 1 year = exactly 365 days, as we do assume in this module). However, if you wanted an approximation of this to at most two expressed (i.e., nonzero) units, it would round it and truncate it to 1 year and 1 day. Max of 3 expressed units would get you 1 year, 1 day, and 2 hours. Max of 4 expressed units would get you 1 year, 1 day, 2 hours, and 59 seconds, which happens to be exactly true. Max of 5 (or more) expressed units would get you the same, since there are only four nonzero units possible in for that duration. 
duration_exact($seconds)  Same as duration($seconds), except that the returned value is an exact (unrounded) expression of $seconds. For example, duration_exact(31629659) returns 1 year, 1 day, 2 hours, and 59 seconds later, which is exactly true. 
ago($seconds)  
ago($seconds, $precision)  For a positive value of seconds, this prints the same as duration($seconds, [$precision]) . ago. For example, ago(120) is 2 minutes ago. For a negative value of seconds, this prints the same as duration($seconds, [$precision]) . from now. For example, ago(120) is 2 minutes from now. As a special case, ago(0) returns right now. 
ago_exact($seconds)  Same as ago($seconds), except that the returned value is an exact (unrounded) expression of $seconds. 
from_now($seconds)  
from_now($seconds, $precision)  
from_now_exact($seconds)  The same as ago($seconds), ago($seconds, $precision), ago_exact($seconds). For example, from_now(120) is 2 minutes from now. 
later($seconds)  
later($seconds, $precision)  For a positive value of seconds, this prints the same as duration($seconds, [$precision]) . later. For example, ago(120) is 2 minutes later. For a negative value of seconds, this prints the same as duration($seconds, [$precision]) . earlier. For example, later(120) is 2 minutes earlier. As a special case, later(0) returns right then. 
later_exact($seconds)  Same as later($seconds), except that the returned value is an exact (unrounded) expression of $seconds. 
earlier($seconds)  
earlier($seconds, $precision)  
earlier_exact($seconds)  The same as later($seconds), later($seconds, $precision), later_exact($seconds). For example, earlier(120) is 2 minutes earlier. 
concise( function( ... ) )  Concise takes the string output of one of the above functions and makes it more concise. For example, ago(4567) returns 1 hour and 16 minutes ago, but concise(ago(4567)) returns 1h16m ago. 
Little of the internals of this module are Englishspecific. See source and/or contact me if you’re interested in making a localized version for some other language than English.
I wrote the basic ago() function for use in Infobot (http://www.infobot.org), because I was tired of this sort of response from the Purl Infobot:
me> Purl, seen Woozle? <Purl> Woozle was last seen on #perl 20 days, 7 hours, 32 minutes and 40 seconds ago, saying: Wuzzle!I figured if it was 20 days ago, I don’t care about the seconds. So once I had written ago(), I abstracted the code a bit and got all the other functions.
This module calls a durational year an interval of exactly 365 days of exactly 24 hours each, with no provision for leap years or monkey business with 23/25 hour days (much less leap seconds!). But since the main work of this module is approximation, that shouldn’t be a great problem for most purposes.
Date::Interval, which is similarly named, but does something rather different.Star Trek: The Next Generation (19871994), where the character Data would express time durations like 1 year, 20 days, 22 hours, 59 minutes, and 35 seconds instead of rounding to 1 year and 21 days. This is because noone ever told him to use Time::Duration.
Copyright 2013, Sean M. Burke sburke@cpan.org; Avi Finkel, avi@finkel.org, all rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.This program is distributed in the hope that it will be useful, but without any warranty; without even the implied warranty of merchantability or fitness for a particular purpose.
Current maintainer Avi Finkel, avi@finkel.org; Original author Sean M. Burke, sburke@cpan.org
perl v5.20.3  TIME::DURATION (3)  20150425 
Visit the GSP FreeBSD Man Page Interface.
Output converted with manServer 1.07.