Test::Moreでマルチバイト文字列を出力する可能性がある場合。

Perl 
use Test::More;
use Term::Encoding;

{
    my $builder  = Test::More->builder;
    my $encoding = Term::Encoding::get_encoding;

    binmode $builder->output,         ":encoding($encoding)";
    binmode $builder->failure_output, ":encoding($encoding)";
    binmode $builder->todo_output,    ":encoding($encoding)";
}

出力文字コードをTerm::Encodingで取ることでLinuxでもWindowsでも動く。

それにしても、こんなのいちいち毎回書くのは面倒なんでどうにかしたい。