package My::Exporter::BeforeAfterOne;

our ($DONE_BEFORE, $DONE_AFTER);

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

__PACKAGE__->export_any('wibble wobble wubble');

__PACKAGE__->export_before(
    sub {
        my ($class, $target, $imports) = @_;
#       print "sub one before export [$class] [$target] [$imports]\n";
        pop @$imports;
        push(@$imports, 'wobble');
        $DONE_BEFORE = 1;
        return $imports;
    }
);

__PACKAGE__->export_after(
    sub {
        my ($class, $target) = @_;
        $DONE_AFTER = 1;
#       print "sub one after export [$class] [$target]\n";
    }
);

sub wibble {
    return 'wibblesome';
}

sub wobble {
    return 'wobblesome';
}

sub wubble {
    return 'wubblesome';
}

1;