Select Code to Download

my $self = {};  # hash ref
...
foreach my $method (@method_names_from_file) {
   $self->{$method} = makeCommandSub($stuff);
}

my $code = sub {
   my $self = shift;
   print "Dang, it worked.\n";
};
return $code;

$myDB           <hash>
   ->{method1}  <CODE>
   ->{method2}  <CODE>

$myDB->method1();

Can't locate object method "method1" via package "BigDB" at line...