Mojoliciousでダンプ

日本語もちゃんと表示したい場合、以下のように定義した。

{   
    package D;
    sub dump {
        require Data::Dumper;
        require Data::Recursive::Encode;
        my $text = Data::Dumper::Dumper(Data::Recursive::Encode->encode('utf8', $_[1]));
        die Encode::decode_utf8($text);    }
   }
}

参考

• Perlで簡単にデータをダンプする方法 - サンプルコードによるPerl入門
• Mojoliciousでデータをダンプする - サンプルコードによるPerl入門