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

##</code><code>##

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