That comes close, but I want something like this (the code below does NOT work):

use strict;

sub hubba {
}

for my $symbol qw(hubba bubba) {
  print "$_: ";
  print defined *My::$symbol{CODE} ? "yep": "nope";
  print "\n";
}
[download]

That should print

hubba: yep
bubba: nope
[download]

How can I do that?