package Foo;
use 5.10.0;
require Exporter;
@Foo::ISA = qw(Exporter);
our @EXPORT = qw(foo);

sub foo { say "Foo::foo at line ".(caller)[2] }
1;