allow getting functions to export from other places

1 files changed, 22 insertions, 0 deletions

diff --git a/t/export-hash.t b/t/export-hash.t
new file mode 100644
index 0000000..e637a40
--- /dev/null
+++ b/t/export-hash.t
@@ -0,0 +1,22 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+
+package Foo {
+    use Exporter::Lexical -exports => {
+        foo => sub { "FOO" },
+    };
+    BEGIN { $INC{'Foo.pm'} = __FILE__ }
+}
+
+sub foo { 'foo' }
+
+is(foo(), 'foo');
+{
+    use Foo;
+    is(foo(), 'FOO');
+}
+is(foo(), 'foo');
+
+done_testing;