Select Code to Download

        @EXPORT    = qw(afunc $scalar @array);   # afunc is a function
        @EXPORT_OK = qw(&bfunc %hash *typeglob); # explicit prefix on 
+&bfunc

  my $exports = \@{"$pkg\::EXPORT"};
  # ...
...
    s/^&//, $export_cache->{$_} = 1
      foreach (@$exports, @{"$pkg\::EXPORT_OK"});
  }

sub _rebuild_cache {
    my ($pkg, $exports, $cache) = @_;
...
    @{$cache}{@$ok} = (1) x @$ok;
    }
}

sub heavy_export {
    # ...
...

    # ...
}