in reply to Avoiding the "Encountered CODE ref" message when using Data::Dumper

local $Data::Dumper::Deparse = 1;

[download]
or 
local $SIG{__WARN__} = sub {
   print(STDERR $_[0])
      if $_[0] !~ /^Encountered CODE ref, using dummy placeholder/;
};

[download]

In Section Seekers of Perl Wisdom