view release on metacpan or  search on metacpan

lib/Acme/Magic8Ball.pm  view on Meta::CPAN

use vars qw($VERSION $CONSISTENT @EXPORT_OK @ISA);



# are we ever going to need enhancements? Apparently yes :(
$VERSION    = "1.3"; 
$CONSISTENT = 0;
@ISA        = qw(Exporter);
@EXPORT_OK  = qw(ask);

use Data::Dumper;

sub import {
    $CONSISTENT = grep { /^:consistent$/ } @_;
    @_ = grep { !/^:consistent$/ } @_;
    goto &Exporter::import;
}

=head1 NAME

Acme::Magic8Ball - ask the Magic 8 Ball a question