Select Code to Download

use Data::Dumper;
$foo = sub {return []};
$bar = {arefpromise => $foo};
...
print "foo is a coderef $foo returning ".$foo->()."\n";
$d->Seen ({$foo => $foo->()});
print $d->Dump();

foo is a coderef CODE(0x8154684) returning ARRAY(0x8153c28)
$VAR1 = {
          'arefpromise' => sub { "DUMMY" }
        };