File Coverage

blib/lib/DateTimeX/Format/Ago.pm

Criterion	Covered	Total	%
statement	57	60	95.0
branch	12	16	75.0
condition	3	8	37.5
subroutine	13	14	92.8
pod	3	3	100.0
total	88	101	87.1

use 5.010;
use strict;
use warnings;
use utf8;

package DateTimeX::Format::Ago;

BEGIN {
	$DateTimeX::Format::Ago::AUTHORITY = 'cpan:TOBYINK';
	$DateTimeX::Format::Ago::VERSION   = '0.004';
}

use Carp qw();
use DateTime;
use Scalar::Util qw(blessed);

our %__;
BEGIN {
	$__{ENG} = $__{EN} = {
		future    => "in the future",
		recent    => "just now",
		years     => ["%d years ago", "a year ago"],
		months    => ["%d months ago", "a month ago"],
		weeks     => ["%d weeks ago", "a week ago"],
		days      => ["%d days ago", "a day ago"],
		hours     => ["%d hours ago", "an hour ago"],
		minutes   => ["%d minutes ago", "a minute ago"],
	};
	$__{GER} = $__{DEU} = $__{DE} = {
		future    => "in der Zukunft",
		recent    => "gerade jetzt",
		years     => ["vor %d Jahren", "vor einem Jahr"],
		months    => ["vor %d Monaten", "vor einem Monat"],
		weeks     => ["vor %d Wochen", "vor einer Woche"],
		days      => ["vor %d Tagen", "vor einem Tag"],
		hours     => ["vor %d Stunden", "vor einer Stunde"],
		minutes   => ["vor %d Minuten", "vor einer Minute"],
	};
	$__{FRE} = $__{FRA} = $__{FR} = {
		future    => "à l'avenir",
		recent    => "récemment",
		years     => ["il y a %d ans", "il y a un an"],
		months    => ["il y a %d mois", "il y a un mois"],
		weeks     => ["il y a %d semaines", "il y a une semaine"],
		days      => ["il y a %d jours", "il y a un jour"],
		hours     => ["il y a %d heures", "il y a une heure"],
		minutes   => ["il y a %d minutes", "il y a une minute"],
	};
	$__{KOR} = $__{KO} = {
		future    => "잠시 후",
		recent    => "방금 전",
		years     => ["%d년 전", "작년"],
		months    => ["%d개월 전", "지난달"],
		weeks     => ["%d주 전", "지난주"],
		days      => ["%d일 전", "어제"],
		hours     => ["%d시간 전", "1시간 전"],
		minutes   => ["%d분 전", "1분 전"]
	}; #"# fix for Scite syntax highlighter
	$__{SPA} = $__{ES} = {
		future    => "en el futuro",
		recent    => "ahora mismo",
		years     => ["hace %d años", "hace un año"],
		months    => ["hace %d meses", "hace un mes"],
		weeks     => ["hace %d semanas", "hace una semana"],
		days      => ["hace %d días", "hace un día"],
		hours     => ["hace %d horas", "hace una hora"],
		minutes   => ["hace %d minutos", "hace un minuto"],
	};
	$__{POR} = $__{PT} = {
		future    => "no futuro",
		recent    => "só agora",
		years     => ["%d anos atrás", "há um ano"],
		months    => ["%d meses atrás", "há um mês"],
		weeks     => ["%d semanas atrás", "há uma semana"],
		days      => ["%d days atrás", "há um dia"],
		hours     => ["%d horas atrás", "há uma hora"],
		minutes   => ["%d minutos atrás", "há um minuto"],
	};
	$__{IND} = $__{ID} = {
		future    => "yang akan datang",
		recent    => "baru saja",
		years     => ["%d tahun yang lalu", "setahun yang lalu"],
		months    => ["%d bulan yang lalu", "sebulan yang lalu"],
		weeks     => ["%d minggu yang lalu", "seminggu yang lalu"],
		days      => ["%d hari yang lalu", "sehari yang lalu"],
		hours     => ["%d jam yang lalu", "sejam yang lalu"],
		minutes   => ["%d menit yang lalu", "semenit yang lalu"],
	};
}

sub new
{
	my ($class, %options) = @_;
	$options{'language'} //= ($ENV{LANG} // 'en');
	$options{'language'} =~ s/\..*$//;
	bless \%options, $class;
}

sub parse_datetime
{
	Carp::croak(sprintf("%s doesn't do parsing", __PACKAGE__));
}

sub _now
{
	if ($INC{'Time/HiRes.pm'})
	{
		return 'DateTime'->from_epoch(epoch => Time::HiRes::time());
	}
	return 'DateTime'->now;
}

sub format_datetime
{
	my ($self, $datetime) = @_;
	$self = $self->new unless blessed($self);

	my $now     = $self->_now;
	my $delta   = $now - $datetime;
	my %strings = $self->_strings;

	return $strings{future} if $delta->is_negative;

	foreach my $unit (qw/years months weeks days hours minutes/)
	{
		$strings{$unit}[0] = uc "%d $unit ago"
			unless defined $strings{$unit}[0];

		my $n = $delta->in_units($unit);

		if ($n > 0)
		{
			if (exists $strings{$unit}[$n]
			and defined $strings{$unit}[$n])
			{
				return sprintf($strings{$unit}[$n], $n);
			}

			return sprintf($strings{$unit}[0], $n);
		}
	}

	return $strings{recent};
}

sub _strings
{
	my ($self) = @_;
	$self = $self->new unless blessed($self);

	my $language = uc $self->{language};
	while (length $language)
	{
		return %{$__{$language}} if defined $__{$language};
		$language =~ s/(^|[_-])([^_-]*)$//;
	}

	Carp::croak(sprintf("%s doesn't know about language '%s'", __PACKAGE__, $self->{language}));
}

__PACKAGE__
__END__