use Data::Dumper;

sub a {
    print "abc";
}

sub b {
    print "123"
}

$hash = {"a",\&a, "b", \&b};
$Data::Dumper::Deparse = 1;
print Dumper($hash);
[download]

use Data::Dumper;

sub b {
    print "123"
}

$hash = {"a",sub {print "abc"}, "b", \&b};
$Data::Dumper::Deparse = 1;
print Dumper($hash);
[download]

That's not mentioned in my copy (came with ActiveState 5.6.1). I guess it was added in a newer version, and AS doesn't track the latest versions of modules with their updates.

—John

First, recursively walk through the hash, and use the new version of Storable to serialize all code-references. Now you can use Data::Dumper to dump the hash. Easy.

use Storable qw(freeze thaw);
sub rec_walk {
    my $hash = shift;
    foreach (keys %$hash) {
        if (ref $hash->{$_} eq 'CODE') {
            $hash->{$_} = freeze $hash->{$_}
        }
        elsif (ref $hash->{$_} eq 'HASH') {
            $hash->{$_} = rec_walk($hash->{$_})
        }
    }
    $hash
}

my %hash = (...);
print Dumper rec_walk(\%hash);
[download]

That just uses B::Deparse. Rather than wire in Storable go directly to the deparser.

---

Fun Fun Fun in the Fluffy Chair

Carter's compass: I know I'm on the right track when by deleting something, I'm adding functionality

I see several solutions. You could use tie to change the stringification of your coderefs (I think). You could just emit code to chage the DUMMYies after the Data::Dumper generated code. You could do some sort of parsing of the Data::Dumper output. You could write the thing yourself. You could use another serialization provider that /does/ provide the ablity to hook into it. You could use the Toaster or Freezer methods of Dumper (though I'm not sure how well they'd work for you).

Oh, bingo: See the examples section of the docs, and the Seen method.

The only example that uses Seen gives me "Only refs supported, ignoring non-ref item $*c" on the call to Seen.