package The::Package {
    use Carp;
    use base "Exporter";
    BEGIN { our @EXPORT = qw( my_generator foo takes_coderef ) };
    
    my $scratchpad;
    sub my_generator (&) {
        $scratchpad = {};
        shift->();
        my $tmp = $scratchpad;
        undef $scratchpad;
        return $tmp;
    }