Lines Matching refs:decode

62 $dst = $utf8->decode($src, FB_DEFAULT);
72 eval{ $dst = $utf8->decode($src, FB_CROAK) };
82 eval{ $dst = $utf8->decode($src, FB_CROAK) };
92 $dst = $utf8->decode($src, FB_QUIET);
108     $dst = $utf8->decode($src, FB_WARN);
122     $dst = $utf8->decode($src, WARN_ON_ERR);
134 $dst = $ascii->decode($src, FB_PERLQQ);
135 is($dst, $up, "FB_PERLQQ decode");
136 is($src, $ao, "FB_PERLQQ residue decode");
144 $dst = $ascii->decode($src, FB_HTMLCREF);
145 is($dst, $uh, "FB_HTMLCREF decode");
146 is($src, $ao, "FB_HTMLCREF residue decode");
154 $dst = $ascii->decode($src, FB_XMLCREF);
155 is($dst, $ux, "FB_XMLCREF decode");
156 is($src, $ao, "FB_XMLCREF residue decode");
164 $dst = $ascii->decode($src, sub{ sprintf "[%02X]", shift });
165 is($dst, $uc, "coderef decode");
166 is($src, $ao, "coderef residue decode");
175 $dst = $ascii->decode($src, sub{ $_[0] });
177 $dst = decode("ascii", (pack "C*", 0xFF), sub{ $_[0] });
178 is $dst, 0xFF."", q{decode("ascii", (pack "C*", 0xFF), sub{ $_[0] })};
182 $dst = $utf8->decode($src, sub{ $_[0] });
184 $dst = decode("utf8", $src, sub{ $_[0] });
185 is $dst, 0x80."", q{decode("utf8", (pack "C*", 0x80), sub{ $_[0] })};
200 $dst = $utf8->decode($src, sub { chr($_[0]) });
201 is $dst, "\x{ff}", q{$utf8->decode($src, sub { chr($_[0]) })};
202 $dst = decode("utf8", $src, sub { chr($_[0]) });
203 is $dst, "\x{ff}", q{decode("utf8", $src, sub { chr($_[0]) })};
208     $dst = $utf8->decode($src, sub { utf8::downgrade(my $r = "\N{LATIN SMALL LETTER Y WITH DIAERESIS}"); $r });
209     is $dst, "\N{LATIN SMALL LETTER Y WITH DIAERESIS}", q{$utf8->decode($src, sub { utf8::downgrade(my $r = "\N{LATIN SMALL LETTER Y WITH DIAERESIS}"); $r })};
210     $dst = decode("utf8", $src, sub { utf8::downgrade(my $r = "\N{LATIN SMALL LETTER Y WITH DIAERESIS}"); $r });
211     is $dst, "\N{LATIN SMALL LETTER Y WITH DIAERESIS}", q{decode("utf8", $src, sub { utf8::downgrade(my $r = "\N{LATIN SMALL LETTER Y WITH DIAERESIS}"); $r })};