view release on metacpan or  search on metacpan

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

package Acme::Magic8Ball;

use strict;

require Exporter;
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$/ } @_;