view release on metacpan or  search on metacpan

t/10_basic.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More tests => 5;

# encoded/decoded Japanese hiragana (a)
my $str  = "\x{3042}";
my $char = "\x{82}\x{A0}";
my $data = {str => $str, array => [$str]};
my $re   = qr/\\x\{[^\}]+\}/;

require Data::Dump;
my $dump = Data::Dump::dump($data);
like $dump => qr/$re/;

require Data::Dump::AutoEncode;