~ $ perl -lwe '{package My; sub x {}} $INC{"My.pm"}=1; eval "use My"; use Data::Dumper; $Data::Dumper::Deparse = 1; print Dumper \&$_ for values %{"My::"}'
$VAR1 = sub {
            package My;
            
        };

$VAR1 = sub ;;