gistfile1.txt

sub _dump_with_unicode ($self, $val) {
    my $dumped = Dumper($val);
    $dumped
        =~ s/\\x\{([^}]+)\}/$self->_unicode_char_for($1)/eg;
    return $dumped;
}

sub _unicode_char_for ($, $hex) {
    my $num = eval '0x' . $hex;
    die $@ if $@;
    return '\N{U+' . sprintf( '%04x', $num ) . '}';
}