Acme::Time::Aubergine - Vegetable clock, in the King's English. Or is it

Acme-Time-Asparagus documentation Contained in the Acme-Time-Asparagus distribution.

Index

Code Index:

NAME

Top

Acme::Time::Aubergine - Vegetable clock, in the King's English. Or is it the Queen?

SYNOPSIS

Top

    use Acme::Time::Aubergine;
    print veggietime("5:38");

See Acme::Time::Asparagus and Acme::Time::FooClock for more details.

Acme-Time-Asparagus documentation Contained in the Acme-Time-Asparagus distribution. 
package Acme::Time::Aubergine;
use strict;

BEGIN {
    use Exporter();
    use vars qw ($VERSION @ISA @EXPORT $times );
    use Acme::Time::FooClock;
    $VERSION   = 1.12;
    @ISA       = qw (Exporter);
    @EXPORT = qw ( veggietime );

    $times = [
        'Tomato',       'Aubergine',      'Carrot',     'Garlic',
        'Spring Onion', 'Pumpkin',        'Asparagus',  'Onion',
        'Sweetcorn',    'Brussel Sprout', 'Red Pepper', 'Cabbage',
    ];
}


# sub veggietime {{{

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

1;