Lines Matching refs:encode

17 use Encode qw(decode encode find_encoding _utf8_off);
27 my $utf16 = encode('UTF-16', $utf8on);
28 my $utf32 = encode('UTF-32', $utf8on);
54     my $test = encode($jp, $utf8on);
58 is (decode('Guess', encode('euc-jp', $utf8on)), $utf8on, "decode('Guess')");
59 eval{ encode('Guess', $utf8on) };
60 like($@, qr/not defined/io, "no encode()");
65     my $euc_jp = my $euc_jp_clone = encode('euc-jp', $utf8on);
88     my $test = encode($name, decode('utf8', $utf8off));
96     my $test = encode("$utf$bl" => $english);
101     my $test = encode("UTF-16$bl" => $ambiguous);
115     $test = encode($jp, $test . "\n\x{65e5}\x{672c}\x{8a9e}");