sub hours {
    my $self = shift;
    my $name = (caller(0))[3];

    return $self->_format_time((defined($_[0]) && $_[0] eq 'trunc')
			       ? '%hv'
			       : '%hd')
}