DateTimeX::Format::Ago - I should have written this module "3 years ago"
my $then = DateTime->now->subtract(days => 3); say DateTimeX::Format::Ago->format_datetime($then); # "3 days ago"
Ever wished DateTime::Format::Natural had a format_datetime method? This module provides human-friendly datetime formatting, outputting strings like "3 days ago".
format_datetime
Primary use case: websites that show a list of a person's recent activities.
new(language => $lang)
Creates a formatter object for the given language (a BCP47 language code). If the language is omitted, extracts it from $ENV{LANG}.
$ENV{LANG}
Decent English ('en'), German ('de') and French ('fr') support is provided. Portuguese ('pt') and Castillian Spanish ('es') are also provided, but some of the strings were translated with Google Translate, so they might not be perfect.
format_datetime($dt)
Returns something like "3 days ago", "just now" or "hace un año".
parse_datetime($string)
Croaks. Don't use this.
Imagine the time is currently 2020-01-01T12:00:00.200. If you try to format the time 2020-01-01T12:00:00.100 you'll get back the result "in the future". So what's going on? DateTimeX::Format::Ago figures out when "now" is using DateTime->now, which rounds back to the nearest whole second.
DateTime->now
If you know you're going to be dealing with high resolution datetimes, and don't want to occasionally see "in the future" for times in the very recent past, then use Time::HiRes.
use Time::HiRes qw();
That's all you need to do. Merely loading it will give DateTimeX::Format::Ago an indication that you want it to use a more accurate idea of "now".
This module only supports a handful of languages. I'm seeking translations. Feel free to attach patches for other languages as bug reports.
Please report any bugs to http://rt.cpan.org/Dist/Display.html?Queue=DateTimeX-Format-Ago.
DateTime, DateTime::Format::Natural.
http://www.rfc-editor.org/rfc/bcp/bcp47.txt.
Toby Inkster <tobyink@cpan.org>.
This software is copyright (c) 2011-2012 by Toby Inkster.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
1 POD Error
The following errors were encountered while parsing the POD:
Non-ASCII character seen before =encoding in 'año".'. Assuming UTF-8
To install DateTimeX::Format::Ago, copy and paste the appropriate command in to your terminal.
cpanm
cpanm DateTimeX::Format::Ago
CPAN shell
perl -MCPAN -e shell install DateTimeX::Format::Ago
For more information on module installation, please visit the detailed CPAN module installation guide.