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