package My::Exporter::BeforeAfter;
use base 'Badger::Exporter';

our ($DONE_BEFORE, $DONE_AFTER) = (0) x 2;

our $EXPORT_BEFORE = sub {
    my ($class, $target, $imports) = @_;
#   print "base before export [$class] [$target] [$imports]\n";
    push(@$imports, wibble => 99 );
    $DONE_BEFORE++;
    return $imports;
};

our $EXPORT_AFTER = sub {
    my ($class, $target) = @_;
    $DONE_AFTER++;
#   print "base after export [$class] [$target]\n";
};

1;