1 2 3 4 5 6 7 8 9 10 11
package Foo; use strict; use warnings; use Exporter::Lexical; our @EXPORT = ('foo'); sub foo { "FOO" } 1;