blob: b62f0414a2ae4ce4b752bd355e2f811e1562ce25 (
plain) (
tree)
|
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Exporter::Lexical ();
sub foo { 'foo' }
is(foo(), "foo");
{
BEGIN { Exporter::Lexical::lexical_import(foo => sub { "FOO" }) }
package Forget::Me::Not;
::is(foo(), "FOO");
}
is(foo(), "foo");
done_testing;
|