Data::DumperではなくData::Printerを使うと日本語もいいかんじに表示できる

長らくPerlのオブジェクトをダンプするのにData::Dumperを使っていたけど，フラグの立った文字を見にくかったりして，なにかと困っていた．
日本語見れるDumperないんかな…という話をしていて，Data::Printerなら見れることが分かったので，EmacsでDDってDを2回押すとData::Printerでデバッグできるようにした．

(define-key
  cperl-mode-map
  (kbd "D")
  (smartchr
   '("D" "use DDP { show_unicode => 1, use_prototypes => 0, colored => 0 }; p `!!';")))

smartchr.elを使っていて，大文字のDを2回入力するとカーソル位置にこれが出る．

use DDP { show_unicode => 1, use_prototypes => 0, colored => 0 }; p (ここにカーソル)

追記，Atomだとこんなかんじ

smartchr:
    chrs: [
      {
        candidates: [
          "D"
          "use DDP { show_unicode => 1, use_prototypes => 0, colored => 0 }; p "
        ]
        chr: "D"
      }
  ]