Lines Matching refs:encode

18 use Encode qw(from_to encode decode
34 my $uni = $sym->decode(encode(ascii => 'a'));
36 $str = $sym->encode("\N{Beta}");
45   $cpy = $tab->encode($uni);
119   is encode('utf8',$c),$o,"utf8 encode by name broken for $i";
143 ok(encode(utf8   => Encode::Dummy->new("foobar")), "foobar");
153   encode($name, $kopy, Encode::FB_CROAK);
154   is $key, "whatever\x{CA}", "encode $name with shared hash key scalars";
158   encode($name, $kopy, Encode::FB_CROAK | Encode::LEAVE_SRC);
159   is $key, "whatever\x{CA}", "encode $name with LEAVE_SRC and shared hash key scalars";
175   $enc->encode($kopy, Encode::FB_CROAK);
176   is $key, "whatever\x{CA}", "encode obj $name with shared hash key scalars";
180   $enc->encode($kopy, Encode::FB_CROAK | Encode::LEAVE_SRC);
181   is $key, "whatever\x{CA}", "encode obj $name with LEAVE_SRC and shared hash key scalars";
197 is $latin1->encode($1), $orig, '[cpan #115168] passing magic regex globals to encode';
201     is $latin1->encode(*a), '*main::'.$orig, '[cpan #115168] passing typeglobs to encode';