Select Code to Download

#!perl
use strict;
...

print Dumper(\%dispatch);

Encountered CODE ref, using dummy placeholder at C:/Perl/lib/Data/Dump
+er.pm line 179.
$VAR1 = {
...
        };
$VAR1->{'original_a'} = $VAR1->{'a'};

perl -MData::Dumper -e "$h{a} = sub{print qq(AAA\n)}; $h{alias} = \&{$
+h{a}}; print Dumper(\%h)"

...
          'a' => sub { "DUMMY" },
          'alias' => $VAR1->{'a'}
        };