Acme::Time::FooClock - Base class for picture clocks
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);
}
"And now it's time for silly songs with Larry."
Figures out time on the vegetable clock. See http://DrBacchus.com/images/clock.jpg
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.
You're kidding, right? Stop being so silly!
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 (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.
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.
