view release on metacpan or  search on metacpan

t/03_flags.t  view on Meta::CPAN

my $fmt = '[%s]';

$fmt %= "foo$tainted";

ok tainted($fmt), 'assign';

# UTF8

my $unistr = "\x{307b}\x{3052}\x{ff01}"; # [hoge] in Japanese hiragana

ok utf8::is_utf8($unistr), 'deals with utf8 string';

ok utf8::is_utf8("[%s]$unistr" % 'foo'), 'lhs';
is "[%s]$unistr" % 'foo', "[foo]$unistr";

ok utf8::is_utf8('[%s]' % $unistr), 'rhs';
is '[%s]' % $unistr, "[$unistr]";

$fmt = '[%s]';
$fmt %= $unistr;

ok utf8::is_utf8($fmt), 'assign';
is $fmt, "[$unistr]";