#!/usr/bin/perl
#use Mooix::Thing;

run sub {
	my $this=shift;
	%_=@_;
	my $time = time + $this->_timeoffset;
	
	eval "use Time::Human";
	if ($@) {
		eval { sub humanize {} };
	}
	else {
		$Time::Human::templates{English}{format} = $this->timeformat;
	}

	my ($sec,$min,$hour,$mday,$mon,$year,$wday, @rest) = localtime($time);
	$hour = 12 if $hour == 0;
	my $ampm = ($hour > 12) ? "pm" : "am";
	$hour -= 12 if $hour > 12;
	$min="0$min" if length($min) < 2;
	my $humantime = humanize(localtime($time));
	$humantime="$hour\:$min" unless defined $humantime;
	# humantime leaves some annyoing spaces.
	$humantime=~y/ / /s;
	$humantime=~s/ $//;
	
	$this->msg("look", %_,
		hour => $hour,
		minute => $min,
		second => $sec,
		ampm => $ampm,
		day => $mday,
		month => $mon + 1,
		year => $year + 1900,
		humantime => $humantime,
	);
}
