/usr/local/CPAN/Acme-Time-Asparagus/Acme/Time/DimSum.pm

• package Acme::Time::DimSum
  • sushitime
• EOF

package Acme::Time::DimSum;
use strict;

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

    $times = [
        'Potsticker',          'Perl Ball',
        'Custard Tart',        'Crab Craw',
        'Stuffed Bell Pepper', 'Spring Roll',
        'Shrimp Dumpling',     'Fried Won Ton',
        'Sui Mai',             'Fortune Cookie',
        'Fried Taro',          'Pork Bun'
    ];
}

# sub sushitime {{{

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

1;