Select Code to Download

  {
    package Foo::foo_bar;
...

  use Foo;
  print $foo_bar::bar; # 'BAR'!

    sub import {
        my $caller = caller() . '::';

...
        *{"$caller$_"} = *{__PACKAGE__ . "::$_"}
            for grep !/::$/ && /$exported/, keys %{__PACKAGE__ . '::'}
+;
    }