{
    package Foo::foo_bar;
    our $bar = 'BAR';
  }

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

##</code><code>##

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

        do {
            require Carp;
            Carp::croak("You cannot specify an import list to " . __PACKAGE__);
        } if @_ > 1;

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

##</code><code>##

  use Exporter::Pattern qr/PATTERN/;