$ cat Foo.pm
package Foo;
use strict;
use warnings;
use base "Exporter";
our @EXPORT = "bar";
sub bar { "baz" }
1;

$ perl -we'use Foo; use B; print B::svref_2object(\&bar)->STASH->NAME'
Foo