1 2 3 4 5 6 7 8 9
package Foo; use strict; use warnings; use Exporter::Lexical -exports => [ qw(foo) ]; sub foo { "FOO" } 1;