1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 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;