package Foo;
use Exporter::Tidy _map => { '$foo' => \my $foo };

$foo = 3;

##</code><code>##

use Foo qw($foo);
print $foo;