|
Acme::Time::FooClock - Base class for picture clocks |
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',
];
return Acme::Time::FooClock::time($time);
``And now it's time for silly songs with Larry.''
Figures out time on the vegetable clock. See http://www.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
rich@DrBacchus.com
http://www.DrBacchus.com/
http://www.CooperMcGregor.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) 2002 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', 'en_GB');
print veggietime('5:17'); # defaults to US English
print veggietime; # defaults to current time and US English
Returns the veggie time equivalent of a 12-hour time expressed in the format hh:mm. Will round to the nearest vegetable.
|
Acme::Time::FooClock - Base class for picture clocks |