Lines Matching refs:decode

18 use Encode qw(from_to encode decode
34 my $uni = $sym->decode(encode(ascii => 'a'));
37 is "B",decode(ascii => substr($str,0,1)),"Symbol 'B' does not map to Beta";
44   $uni = $tab->decode($str);
120   is decode('utf8',$o),$c,"utf8 decode by name broken for $i";
142 ok(decode(latin1 => Encode::Dummy->new("foobar")), "foobar");
163   decode($name, $kopy, Encode::FB_CROAK);
164   is $key, "whatever", "decode $name with shared hash key scalars";
168   decode($name, $kopy, Encode::FB_CROAK | Encode::LEAVE_SRC);
169   is $key, "whatever", "decode $name with LEAVE_SRC and shared hash key scalars";
185   $enc->decode($kopy, Encode::FB_CROAK);
186   is $key, "whatever", "decode obj $name with shared hash key scalars";
190   $enc->decode($kopy, Encode::FB_CROAK | Encode::LEAVE_SRC);
191   is $key, "whatever", "decode obj $name with LEAVE_SRC and shared hash key scalars";