Rich Bowen
and 1 contributors

NAME

Acme::Time::FooClock - Base class for picture clocks

SYNOPSIS

Used for making arbitrary picture-clock classes.

 use Acme::Time::FooClock;
 $times = [
        'Tomato',      'Eggplant',       'Carrot',     'Garlic',
        'Green Onion', 'Pumpkin',        'Asparagus',  'Onion',
        'Corn',        'Brussels Sprout', 'Red Pepper', 'Cabbage',
    ];

 sub footime() {
     return Acme::Time::FooClock::time(shift);
 }

DESCRIPTION

"And now it's time for silly songs with Larry."

Figures out time on the vegetable clock. See http://DrBacchus.com/images/clock.jpg

BUGS/ToDo

I suppose one could consider the very existence of this module to be a bug. Also, I have never been quite sure if that thing was a brussel sprout or a cauliflower.

The input checking could probably be improved.

Make it easier to extend for use with other varieties of clocks. I am considering having a more generic Acme::Time::Food, of which this would be a subclass. Subclasses would just pass in a listref of foods. This would make the module more useful to the sushi crowd, for example.

Some way to convert back to "real" time from vegetable notation.

SUPPORT

You're kidding, right? Stop being so silly!

AUTHOR

        Rich 'DrBacchus' Bowen
        CPAN ID: RBOW
        rbowen@rcbowen.com
    http://www.DrBacchus.com/

Kudos to Kate L Pugh for submitting a patch, and demonstrating that there are other people in the world as silly as I am.

COPYRIGHT

Copyright (c) 2010 Rich Bowen. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

The full text of the license can be found in the LICENSE file included with this module.

veggietime

    print veggietime('5:17'); 
    print veggietime; # defaults to current time 

Returns the veggie time equivalent of a 12-hour time expressed in the format hh:mm. Will round to the nearest vegetable.