package Foo; use strict; use warnings; use Exporter::Lexical -exports => [ qw(foo) ]; sub foo { "FOO" } 1;