$ perl -MData::Dumper -e'
   sub Foo::Bar::baz {}
   print(Dumper(\%{ $::{"Foo::"}{"Bar::"} }));
'
$VAR1 = {
          'baz' => *Foo::Bar::baz
        };