The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

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.