DB<30> sub test { "bla" }

  DB<31> x map { \&$_ } grep {defined &$_ } values %::
0  CODE(0x3477178)
   -> &main::test in (eval 40)[C:/Perl_524/lib/perl5db.pl:737]:2-2
1  CODE(0x3463838)
   -> &main::dumpvar in C:/Perl_524/lib/dumpvar.pl:474-501
2  CODE(0x3457a78)
   -> &main::dumpValue in C:/Perl_524/lib/dumpvar.pl:33-40
  DB<32>