Data::DumperでUTF-8を表示させる

Dumper.pm

package Dumper;

use utf8;
use base 'Exporter';
our @EXPORT = qw/Dumper/;

use Data::Dumper;

no warnings 'redefine';
sub Dumper
{
    my $dump = Data::Dumper::Dumper(@_);
    $dump =~ s/\\x\{([0-9A-Za-z]{4})\}/pack('U',hex($1))/ge;
    $dump;
}
1;