view release on metacpan or  search on metacpan

lib/Acme/Time/FooClock.pm  view on Meta::CPAN

format hh:mm. Will round to the nearest vegetable.

=cut

# }}}

# sub time {{{

sub time {
    my $time = shift;
    my $class =caller();

    my $times;
    {
        no strict 'refs';
        $times = ${ $class . '::times' };
    }

    my ($h, $m);

    if ($time) {