#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;

        my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
                localtime(time + $this->timeoffset);
	$hour = 12 if $hour == 0;
	$hour -= 12 if $hour > 12;
		
	$this->msg('chime',
		hour => $hour,
		s => $hour == 1 ? "" : "s",
	);
}
